sig
val log : ?label:string -> int -> string -> unit
val logl : ?label:string -> int -> string Lazy.t -> unit
val logged : string -> int -> bool
val f : ('a, unit, string) Pervasives.format -> 'a
val start : Dtools.Init.t
val stop : Dtools.Init.t
end