let fold_env f x (env:environment) =
  List.fold_left (fun x (n, v) -> f n v x) x env