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