(define (outer)
  (define x 0)
  (define (y)
    (set! x 1))
  (y)
  (display x))

(outer)