sig
val
lcs :
'
a list
->
'
a list
->
'
a list
val
ounit_tests : unit
->
OUnit
.test
end