let
iter_env f (env:environment) =
List
.iter (
fun
(n, v)
->
f n v) env