(define (adder x)
  (lambda (y)
    (+ x y)))

((adder 3) 4)



(define (adder x)
  (list (lambda (self y)
          (+ (nth self 1) y))
        x))

(let ((closure (adder 3)))
  ((nth closure 0) closure 4))