sig
  type error = Invalid_level_string of string | Invalid_level_int of int
  exception Exception of Level.error
  type t = FATAL | ERROR | WARN | INFO | DEBUG | TRACE
  val levels : Level.t list
  val to_string : Level.t -> string
  val of_string : string -> Level.t
  val to_int : Level.t -> int
  val of_int : int -> Level.t
end