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

##</code><code>##

real    0m0.043s
user    0m0.039s
sys     0m0.002s