dateNumOrDateToString (Date date)       = show          $ dateToDateNum date
dateNumOrDateToString (Date date)       = show          $ dateToDateNum date
dateNumOrDateToString (Date date)       = show          $ dateToDateNum date