sig
  type t = Normal | Low
  val normal : Priority.t
  val low : Priority.t
  val sexp_of_t : Priority.t -> Sexplib.Sexp.t
end