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