module Main where

import Commons
import Data.Map (keys)


main = do network <- parse
          let part1Res = iterateUntilPartition (keys network) network
          print $ uncurry (*) part1Res