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