(define q 10)

(define b (let ((a 2))
            (progn 
              (setvar 'a q)
              a)))


(check (= b 10))