path: root/tests/each.bth

(let (a [2 3 4 5 6])
	(each (x a)
		(say (* x x))
		(let (q 100 r 200 s 300) (say r))))