numbersP :: Parser [Int]
cardsP = cardP `sepBy` endOfLine
-cardP = Card <$> (("Card" *> skipSpace *> decimal) <* ":" <* skipSpace)
- <*> (numbersP <* " |" <* skipSpace)
+cardP = Card <$ "Card" <* skipSpace
+ <*> decimal <* ":" <* skipSpace
+ <*> numbersP <* " |" <* skipSpace
<*> numbersP
numbersP = decimal `sepBy` skipSpace