main :: IO ()
main = do
  (!polymer, !rules) <- readPolymerization <$> T.readFile "test.txt"
  traverse_ (print . ($ (rules, polymer))) [part1, part2]
main :: IO ()
main = do
  (!polymer, !rules) <- readPolymerization <$> T.readFile "test.txt"
  traverse_ (print . ($ (rules, polymer))) [part1, part2]
main = do
  (!polymer, !rules) <- readPolymerization <$> T.readFile "test.txt"
  traverse_ (print . ($ (rules, polymer))) [part1, part2]