module Time:sig..end
A module that allows time monitoring.
type t
val elapsed_time : unit -> floatTime passed since the initialization (in seconds).
val create : string -> tcreate s creates a time called s.
val kill : t -> unitkill t kills a time t. This means that this time
won't be monitored anymore.
val start : t -> unitstart t starts the time monitoring t
at the place where it is used.
Already_started if t is already running.val stop : t -> unitstop t sets the end of the time monitoring t
at the place where it is used.
Not_started if no start t was previously called.val time : string -> ('a -> 'b) -> 'a -> 'btime s f arg monitors the time spent in the function f.