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