answers :: IO ()
answers = do
  i <- readFile "inputs/is2015/day19-input.txt"

  let part1 = S.size $ expand m $ S.singleton es
        where
          (m,es) = parseMachine i
  putStrLn $ "Part One: " ++ show part1

  let part2 = n - c "Rn" - c "Ar" - 2 * c "Y" - 1
        where
          (_,es) = parseMachine i
          n = length es
          c s = length $ filter (== s) es
  putStrLn $ "Part Two: " ++ show part2
answers :: IO ()
answers = do
  i <- readFile "inputs/is2015/day19-input.txt"

  let part1 = S.size $ expand m $ S.singleton es
        where
          (m,es) = parseMachine i
  putStrLn $ "Part One: " ++ show part1

  let part2 = n - c "Rn" - c "Ar" - 2 * c "Y" - 1
        where
          (_,es) = parseMachine i
          n = length es
          c s = length $ filter (== s) es
  putStrLn $ "Part Two: " ++ show part2
answers = do
  i <- readFile "inputs/is2015/day19-input.txt"

  let part1 = S.size $ expand m $ S.singleton es
        where
          (m,es) = parseMachine i
  putStrLn $ "Part One: " ++ show part1

  let part2 = n - c "Rn" - c "Ar" - 2 * c "Y" - 1
        where
          (_,es) = parseMachine i
          n = length es
          c s = length $ filter (== s) es
  putStrLn $ "Part Two: " ++ show part2