;; guile: 00
;; mes: 01

(define (x)
  (define b 1)
  (define (y) b)
  (set! b 0)
  (list b
        (let ((b 2))
          (y))))

(display (x))
(newline)
""