(define square
  (lambda (x) (* x x)))

(define increment
  (lambda (x)
    (+ x 1)))

(define compose
  (lambda (f g)
    (lambda (x) 
      (f (g x)))))

(define plusonesquared
  (compose square increment))

(define squaredplusone
  (compose increment square))

(define plus
  (lambda (x y)
    (+ x y)))

(define plusc
  (lambda (x)
    (lambda (y)
      (+ x y))))

(define plus2 (plusc 2))