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