(bind-func expr_problem (lambda () (let ((e1 (Add (Lit 1) (Lit 2))) (e2 (Sub (Lit 10) e1))) (println "e1 =" (eval e1)) (println "e2 =" (eval e2)) void)))