let nset_iter f set = IntMap.iter (fun _ n -> f n) set