sig
  type log_level = Error | Report | Warning | Notice | Info | Trace | Debug
  val log :
    Logger.log_level -> ('a, Format.formatter, unit) Pervasives.format -> 'a
  val slog :
    Logger.log_level -> ('a, Format.formatter, unit) Pervasives.format -> 'a
  val error : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val report : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val warning : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val notice : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val info : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val trace : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val debug : ('a, Format.formatter, unit) Pervasives.format -> 'a
  val set_priority : Logger.log_level -> unit
  val flush : unit -> unit
end