sig
  val safe_create : (unit -> unit) -> Core.Std.Thread.t
  val ounit_tests : unit -> OUnit.test
end