#!/usr/bin/perl

require String::LCSS;
$s1 = '1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 2 18 19 20 21 22 23 7 24';
$s2 = '1 2 3 4 5 7 8 9 11 12 13 10 14 15 16 17 2 18 19 20 21 22 23 7 24';

$result = String::LCSS::lcss ($s1, $s2);
print $result;