sig
  type t =
      X of float * float
    | Y of float * float
    | XY of float * float * float * float
    | Date of Core.Std.Date.t * Core.Std.Date.t
    | Time of Core.Std.Time.t * Core.Std.Time.t
end