(define (make-accumulator value)
  (lambda (income)
    (begin (set! value (+ value income)) value)))