sig
exception Error
val verbosity : int Pervasives.ref
val nlogf :
int -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
val warning_loc :
Location.t -> ('a, Format.formatter, unit, unit) Pervasives.format4 -> 'a
val error_loc :
Location.t -> ('a, Format.formatter, unit, 'b) Pervasives.format4 -> 'a
val silent : (unit -> 'a) -> 'a
end