val leap_year_table : Base.Int.t Base.Array.tval non_leap_year_table : Base.Int.t Base.Array.tval ordinal_date : t -> Base.Int.tDate.Privateval leap_year_table : Base.Int.t Base.Array.tval non_leap_year_table : Base.Int.t Base.Array.tval ordinal_date : t -> Base.Int.t