dateNumOrDateToString :: DateNumOrDate -> String
dateNumOrDateToString (DateNum datenum) = showGregorian $ dateNumToDate datenum
dateNumOrDateToString :: DateNumOrDate -> String
dateNumOrDateToString (DateNum datenum) = showGregorian $ dateNumToDate datenum
dateNumOrDateToString (DateNum datenum) = showGregorian $ dateNumToDate datenum