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