mdy           = (\m d y -> fromGregorian y m d) <$> month <* sep <*> day   <* sep <*> year <* eof :: Parser Date
mdy           = (\m d y -> fromGregorian y m d) <$> month <* sep <*> day   <* sep <*> year <* eof :: Parser Date
mdy           = (\m d y -> fromGregorian y m d) <$> month <* sep <*> day   <* sep <*> year <* eof :: Parser Date