(** Whom a celebration is of. [Temporal] is the temporal cycle's own office. *)
type t = Temporal | Saint | Bvm | Lord [@@deriving sexp]

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