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