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