zeroInMin :: (Int, Int) -> Int
zeroInMin p
  | any (\(a, b) -> a == 0 && b == 0) [p] = 0
  | otherwise = helper ([p] >>= manHeaps)
helper :: [(Int, Int)] -> Int
helper l
  | any (\(a, b) -> a == 0 && b == 0) ll = 1
  | otherwise = helper ll + 1 where
    ll = l >>= manHeaps