(define double (lambda (x) (+ x x))) (define getTwelve ((((lambda (x) (lambda (y) (display y) (newline) (x (x y)))) double) 3))) (display getTwelve)
Standard input is empty
3
Error: call of non-procedure: 12 Call history: <syntax> (##core#lambda (y) (display y) (newline) (x (x y))) <syntax> (##core#begin (display y) (newline) (x (x y))) <syntax> (display y) <syntax> (newline) <syntax> (##core#begin (x (x y))) <syntax> (x (x y)) <syntax> (x y) <eval> ((((lambda (x) (lambda (y) (display y) (newline) (x (x y)))) double) 3)) <eval> (((lambda (x) (lambda (y) (display y) (newline) (x (x y)))) double) 3) <eval> ((lambda (x) (lambda (y) (display y) (newline) (x (x y)))) double) <eval> (display y) <eval> (newline) <eval> (x (x y)) <eval> (x y) <eval> [double] (+ x x) <eval> [double] (+ x x) <--