sig
  val accesslog : string -> unit
  val errlog : string -> unit
  val warning : string -> unit
  val debug : (unit -> string) -> unit
  val debug2 : string -> unit
  val debug_noel : (unit -> string) -> unit
  val debug_noel2 : string -> unit
  val console : (unit -> string) -> unit
  val console2 : string -> unit
  val unexpected_exception : exn -> string -> unit
  val access :
    string * Pervasives.out_channel Pervasives.ref *
    Unix.file_descr Pervasives.ref
  val warningfile :
    string * Pervasives.out_channel Pervasives.ref *
    Unix.file_descr Pervasives.ref
  val error :
    string * Pervasives.out_channel Pervasives.ref *
    Unix.file_descr Pervasives.ref
  val open_files : unit -> unit
  val bip : int -> unit
end