module Main where

import Commons
import qualified Part1
import qualified Part2


main = do snapshot <- parse
          let afterFallSnapshot = fall snapshot
          let part1Res = Part1.getDestroyables afterFallSnapshot
          print $ length part1Res
          let part2Res = Part2.getReactions afterFallSnapshot
          print $ sum $ map length part2Res