sig
  type 'a logger = ('a, unit, string, unit) Pervasives.format4 -> 'a
  module type LOGGER =
    sig
      val set_lev : Syslog.lev -> unit
      val get_lev : unit -> Syslog.lev
      val may_log : Syslog.lev -> bool
      val generic : Syslog.lev -> 'a Loggers.logger
      val debug : 'a Loggers.logger
      val info : 'a Loggers.logger
      val notice : 'a Loggers.logger
      val warning : 'a Loggers.logger
      val err : 'a Loggers.logger
      val crit : 'a Loggers.logger
      val alert : 'a Loggers.logger
      val emerg : 'a Loggers.logger
    end
  module type SPEC = sig val logger : Syslog.lev -> string -> unit end
  module MakeLogger : functor (Spec : SPEC) -> LOGGER
  module MakeChannel :
    functor (ChannelSpec : sig val oc : Pervasives.out_channel end) -> LOGGER
  module Stderr : LOGGER
  module Syslog : LOGGER
  module Ignore : LOGGER
  val ounit_tests : unit -> OUnit.test
end