sig
  val level : int ref
  val dprintf : int -> ('a, Format.formatter, unit) format -> 'a
  val eprintf : ('a, Format.formatter, unit) format -> 'a
  val raw_dprintf : int -> ('a, Format.formatter, unit) format -> 'a
  val classic_display : bool Pervasives.ref
  val event : ?pretend:bool -> string -> string -> Tags.t -> unit
  val init : string option -> unit
  val finish : ?how:[ `Error | `Quiet | `Success ] -> unit -> unit
  val display : (Pervasives.out_channel -> unit) -> unit
  val update : unit -> unit
  val mode : string -> bool
end