merge :: (IntSet, Int) -> Int -> (IntSet, Int)
merge (frequencies, frequency) change = (S.insert frequency frequencies, frequency + change)
merge :: (IntSet, Int) -> Int -> (IntSet, Int)
merge (frequencies, frequency) change = (S.insert frequency frequencies, frequency + change)