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