main :: IO ()
main = do
  print $ V.and part1Tests
  input <- T.readFile "input"
  let game = either error id (P.parseOnly gameP input)
  print $ part1 game
  print $ part2 game
main :: IO ()
main = do
  print $ V.and part1Tests
  input <- T.readFile "input"
  let game = either error id (P.parseOnly gameP input)
  print $ part1 game
  print $ part2 game
main = do
  print $ V.and part1Tests
  input <- T.readFile "input"
  let game = either error id (P.parseOnly gameP input)
  print $ part1 game
  print $ part2 game