(define a 4)

(do
	(assert-eqv! 4 a)
	(define a 'hello)
	(assert-eqv! 'hello a)

	(set! a 28)
	(assert-eqv! 28 a)
)

(assert-eqv! 4 a)

(do
	(set! a -63)
)

(assert-eqv! -63 a)