WIP decrement

expr/basic/tests/an_example.expr

-((fun x -> x + 1) 7)
+(fun x -> (fun y -> x - y) 12) 8
\ No newline at end of file

expr/fun/toPfx.ml

@@ -3,6 +3,8 @@ open BasicPfx.Ast
 
 let increment env = env := (List.map (fun (name, v) -> print_endline (name ^ " is now associated to index " ^ (string_of_int (v+1))); (name, v+1)) !env)
 
+(* let decrement env = env := (List.map (fun (name, v) -> print_endline (name ^ " is now associated to index " ^ (string_of_int (v-1))); (name, v-1)) !env); [] *)
+
 let add_var var env = env := (var, -1)::(!env) ; print_endline (var ^ " was added to env with index -1")
 
 let rec generate env = function