sig
  val label : string
  val it : Common.Util.Info.t
  val info : ('a, unit, string, unit) format4 -> 'a
  val nt : Common.Util.Notice.t
  val notice : ('a, unit, string, unit) format4 -> 'a
  val wt : Common.Util.Warning.t
  val warning : ('a, unit, string, unit) format4 -> 'a
  val dt : Common.Util.Debug.t
  val debug : ('a, unit, string, unit) format4 -> 'a
  val fatal : ('a, unit, string, 'b) format4 -> 'a
  val enable_debug : int -> unit
  val all_quiet : bool -> unit
  val enable_bars : bool -> Common.Util.label list -> unit
  val enable_timers : bool -> Common.Util.label list -> unit
end