module Test: sig .. end

---

val time  : ?cout:Pervasives.out_channel -> ('a -> 'b) -> 'a -> 'b

val sf  : ?cout:Pervasives.out_channel -> string -> ('a -> 'b) -> 'a -> 'b

val timesf  : ?cout:Pervasives.out_channel -> string -> ('a -> 'b) -> 'a -> 'b

val get_time  : ('a -> 'b) -> 'a -> 'b * float

val repeat  : int -> ('a -> 'b) -> 'a -> 'b