sig
  val info : string -> unit
  val error : string -> unit
  val debug : string -> unit
  val fatal : string -> 'a
  val get : unit -> (string * string) list
  val remember_debug : bool Pervasives.ref -> string -> unit
  val dump : string -> unit
end