sig
  val reset : bool -> unit
  exception NoPerfCount
  val has_performance_counters : unit -> bool
  val time : string -> ('-> 'b) -> '-> 'b
  val repeattime : float -> string -> ('-> 'b) -> '-> 'b
  val print : Pervasives.out_channel -> string -> unit
end