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