sig
  type t =
      [ `Day of int
      | `Month of int
      | `Sec of int
      | `Week of int
      | `Year of int ]
  val of_string : string -> t
  val to_string : t -> string
  val tws_of_t : t -> Tws_prot.raw_tws
  val t_of_tws : Tws_prot.raw_tws -> t
  val val_type : t Tws_prot.Val_type.t
  val t_of_sexp : Sexplib.Sexp.t -> Bar_span.t
  val __t_of_sexp__ : Sexplib.Sexp.t -> Bar_span.t
  val sexp_of_t : Bar_span.t -> Sexplib.Sexp.t
end