sig
  val start :
    ?callback:(elapsed:Core.Std.Time.Span.t -> unit) -> unit -> unit
  val ounit_tests : unit -> OUnit.test
end