(define make-adder
  (lambda (k)
    (lambda (x)
      (+ k x))))

(define one-more (make-adder 1))
(define two-more (make-adder 2))