`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`