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