my $a = "abbacbacccabbacbacccccccccccgcccc";
my $b = "aabaabcbavcvcbvbvnbmhgfdgf";
print "LCS: ", lcs($a, $b), "\n\n";