sig   type t   val to_string : BatLog.Level_sig.t -> string   val default_level : BatLog.Level_sig.t   val compare : BatLog.Level_sig.t -> BatLog.Level_sig.t -> int end