(** Liturgical colours, shared by all Roman rites. *)
type t = White | Red | Green | Violet | Rose | Black [@@deriving sexp]

val all : t list
val to_string : t -> string
val of_string : string -> t option