Today's Example

(define make-adder | (define make-counter
  (lambda (x)      |   (lambda (balance)
    (lambda (y)    |   (lambda (amt)
      (+ x y))))   |     (set! balance
                   |           (+ balance amt))
                   |     balance)))

Jim Miller