year          = read <$> (try (count 4 digit) <|> ("20" ++) <$> count 2 digit)    :: Parser Integer
year          = read <$> (try (count 4 digit) <|> ("20" ++) <$> count 2 digit)    :: Parser Integer
year          = read <$> (try (count 4 digit) <|> ("20" ++) <$> count 2 digit)    :: Parser Integer