sig
  type _date =
    Date.t = private {
    y : int;
    m : Core_kernel.Std.Month.t;
    d : int;
  }
end