module Time: sig .. end
sig
end
type t
val elapsed_time : unit -> float
unit -> float
val create : string -> t
string -> t
val kill : t -> unit
t -> unit
val start : t -> unit
val stop : t -> unit
val time : string -> ('a -> 'b) -> 'a -> 'b
string -> ('a -> 'b) -> 'a -> 'b