;; guile: 01
;; mes: 00
(define free 0)
(define bla #f)
(let ()
(set! bla (lambda () free))
#t)
(display (bla))
(set! free 1)
(newline)