sig
  val level : int Pervasives.ref
  val dprintf : int -> ('a, Format.formatter, unit) Pervasives.format -> 'a
  val eprintf : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val raw_dprintf :
    int -> ('a, Format.formatter, unit) Pervasives.format -> 'a
end