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