let nmap_fold f s map = IntMap.fold (fun _ (n, v) s -> f s n v) map s