let
nset_fold f s set =
IntMap
.fold (
fun
_ n s
->
f s n) set s