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