gameP :: P.Parser Game
gameP =
  make
    <$> (P.decimal <* P.string " players; last marble is worth ")
    <*> (P.decimal <* P.string " points")
gameP :: P.Parser Game
gameP =
  make
    <$> (P.decimal <* P.string " players; last marble is worth ")
    <*> (P.decimal <* P.string " points")
gameP =
  make
    <$> (P.decimal <* P.string " players; last marble is worth ")
    <*> (P.decimal <* P.string " points")