(define (make-withdraw balance)
  (define (withdraw! amount)
    (if (> amount balance)
        'insufficient-funds
        (begin
          (set! balance (- balance amount))
          balance)))
  withdraw!)

(visualize
  (define withdraw (make-withdraw 100))
  (withdraw 25)
  (withdraw 80)
  (withdraw 35))