sig   val level : BatLog.easy_lev Pervasives.ref   val output : unit BatIO.output Pervasives.ref   val log : ?fp:string -> BatLog.easy_lev -> string -> unit   val logf :     ?fp:string ->     BatLog.easy_lev -> ('a, unit BatIO.output, unit) Pervasives.format -> 'a end