(define increment (lambda (x) (+ x 1)))
(define square (lambda (x) (* x x)))
(define compose (lambda (x y) (lambda (z) (x (y z)))))

(define munge (compose increment square))