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