Longest Common Subsequence...in Scheme