((lambda (code) ((lambda (get eval) ((lambda (expr env) (eval expr env get eval)) code ())) (lambda (env pos get eval) (if (null? pos) env ((car pos) ((lambda (env pos) (get env pos get eval)) ((lambda (env pos) (get env pos get eval)) env (cdr pos)) (cdr pos))))) (lambda (expr env get eval) (if (poor-car (poor-car expr)) (if (poor-cdr (poor-car expr)) ((poor-cons env) (poor-cdr expr)) ((lambda (fun) ((lambda (expr env) (eval expr env get eval)) (poor-cdr fun) ((poor-cons ((lambda (expr env) (eval expr env get eval)) (poor-cdr (poor-cdr expr)) env)) (poor-car fun)))) ((lambda (expr env) (eval expr env get eval)) (poor-car (poor-cdr expr)) env))) (if (poor-cdr (poor-car expr)) (poor-car ((lambda (env pos) (get env pos get eval)) env (poor-cdr expr))) ((poor-cdr expr) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #f) #t)) ()))))))))

((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #f) #t)) (cons **i** (cons poor-cdr ())))) ((poor-cons ((poor-cons #f) #t)) (cons poor-cdr ()))))) ((poor-cons ((poor-cons #f) #t)) ()))))))) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #f) #t)) (cons poor-cdr ()))))))) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #f) #f)) (*write-char* #\+))) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #f) #t)) ())))))))) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #t) #f)) ((poor-cons ((poor-cons ((poor-cons #f) #f)) (*write-char* #\-))) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #f) #t)) ())))))))) ((poor-cons ((poor-cons #t) #t)) ((poor-cons ((poor-cons #f) #t)) ())))))
