sig   type level = Quiet | App | Error | Warning | Info | Debug   type ('a, 'b) msgf =       (?header:string ->        ('a, Format.formatter, unit, 'b) Pervasives.format4 -> 'a) ->       'b   type 'a log = ('a, unit) Brr.Log.msgf -> unit   val msg : Brr.Log.level -> 'Brr.Log.log   val app : 'Brr.Log.log   val err : 'Brr.Log.log   val warn : 'Brr.Log.log   val info : 'Brr.Log.log   val debug : 'Brr.Log.log   val kmsg : (unit -> 'b) -> Brr.Log.level -> ('a, 'b) Brr.Log.msgf -> 'b   type kmsg = {     kmsg :       ''b. (unit -> 'b) -> Brr.Log.level -> ('a, 'b) Brr.Log.msgf -> 'b;   }   val set_kmsg : Brr.Log.kmsg -> unit end