let nmap_map f map = IntMap.map (fun _ (n, v) -> (n, f v)) map