# Pastebin eYZijgwl
breed :: IntMap Int -> IntMap Int
breed = IntMap.fromListWith (+) . foldMap' f . IntMap.assocs
  where
    f (0,n) = [(6,n), (8,n)]
    f (x,n) = [(x-1, n)]