datenumOrDate = try (DateNum <$> datenum) <|> (Date <$> date)                     :: Parser DateNumOrDate
datenumOrDate = try (DateNum <$> datenum) <|> (Date <$> date)                     :: Parser DateNumOrDate
datenumOrDate = try (DateNum <$> datenum) <|> (Date <$> date)                     :: Parser DateNumOrDate