val level : int Stdlib.refval dprintf : int -> ('a, Stdlib.Format.formatter, unit) Stdlib.format -> 'aval is_logging : int -> boolval eprintf : ('a, Stdlib.Format.formatter, unit) Stdlib.format -> 'aval raw_dprintf : int -> ('a, Stdlib.Format.formatter, unit) Stdlib.format -> 'aval classic_display : bool Stdlib.refval event : ?pretend:bool -> string -> string -> Tags.t -> unitval init : string option -> unitval finish : ?how:[ `Error | `Quiet | `Success ] -> unit -> unitval display : (Stdlib.out_channel -> unit) -> unitval update : unit -> unitval mode : string -> boolval at_end : name:string -> ([> `Error | `Quiet ] -> unit) -> unitval at_failure : name:string -> ([> `Error ] -> unit) -> unit