-let short_weekday = function
- | Date.Sun -> "Sun" | Date.Mon -> "Mon" | Date.Tue -> "Tue"
- | Date.Wed -> "Wed" | Date.Thu -> "Thu" | Date.Fri -> "Fri"
- | Date.Sat -> "Sat"
-
-let short_month = function
- | 1 -> "Jan" | 2 -> "Feb" | 3 -> "Mar" | 4 -> "Apr"
- | 5 -> "May" | 6 -> "Jun" | 7 -> "Jul" | 8 -> "Aug"
- | 9 -> "Sep" | 10 -> "Oct" | 11 -> "Nov" | 12 -> "Dec"
- | _ -> invalid_arg "short_month"
-
-let long_month = function
- | 1 -> "January" | 2 -> "February" | 3 -> "March" | 4 -> "April"
- | 5 -> "May" | 6 -> "June" | 7 -> "July" | 8 -> "August"
- | 9 -> "September" | 10 -> "October" | 11 -> "November" | 12 -> "December"
- | _ -> invalid_arg "short_month"
-