(do
	(let (i 0
		  a [])
		(while (< i 10)
			(append a i)
			(set! i (+ i 1)))
		(let (x 100
			  y 200
			  z 300)
			(say y))
		(say a)))