Up

module Time

: sig
#
val tick : string -> unit
#
type chrono
#
val fresh : unit -> chrono
#
val chrono : chrono -> (unit -> 'a) -> 'a
#
val display : chrono -> string -> unit
end