val activate : t -> level -> unit
val deactivate : t -> unit
val set_output : Format.formatter -> unit
-val log : t -> level -> string -> unit
+val log : t -> level -> ('a, Format.formatter, unit) format -> 'a
+val print : Format.formatter -> ('a, Format.formatter, unit) format -> 'a
val available : unit -> string list
+