sig
  type t = EMERG | ALERT | CRIT | ERR | WARNING | NOTICE | INFO | DEBUG
  val all : Syslog.Level.t list
  val of_string : string -> t
  val to_string : t -> string
  val t_of_sexp : Sexplib.Sexp.t -> Syslog.Level.t
  val sexp_of_t : Syslog.Level.t -> Sexplib.Sexp.t
  val compare : Syslog.Level.t -> Syslog.Level.t -> int
end