sig
  type t = OUnitTest.path
  val compare : 'a -> 'a -> int
  val to_string : OUnitTest.node list -> string
end