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