(display ">  (let ((a 1) (b (lambda (x) (begin x 1)))) (b a))")
(newline)
(run-test (parse '(let ((a 1) (b (lambda (x) (begin x 1)))) (b a))) '(applic (lambda-simple (a b) (applic (var b) ((var a)))) ((const 1) (lambda-simple (x) (seq ((var x) (const 1)))))))
(newline)
(newline)

(display ">  (let ((a 1) (b (lambda (x) (begin x (if (= x 1) (+ x 1) (* x x)))))) (b a))")
(newline)
(run-test (parse '(let ((a 1) (b (lambda (x) (begin x (if (= x 1) (+ x 1) (* x x)))))) (b a))) '(applic (lambda-simple (a b) (applic (var b) ((var a)))) ((const 1) (lambda-simple (x) (seq ((var x) (if3 (applic (var =) ((var x) (const 1))) (applic (var +) ((var x) (const 1))) (applic (var *) ((var x) (var x))) )))))))
(newline)
(newline)