sig
  val on : unit -> unit
  val off : unit -> unit
  val set : int -> unit
  val put : ?level:int -> ('a, unit, string, unit) Pervasives.format4 -> 'a
end