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