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