-- Parsing
-playerP = ("1" *> pure Player1) <|> ("2" *> pure Player2)
+playerP = (Player1 <$ "1") <|> (Player2 <$ "2")
playerStateP = playerify <$> ("Player " *> playerP) <*> (" starting position: " *> decimal)
where playerify name pos = (name, PlayerState {position = pos, score = 0})