arr4.bth « tests - badthing - the best scheme that i have, and that's bad enough for me

summary refs log tree commit diff

path: root/tests/arr4.bth

blob: 2521e63164d89a417b917c768ccf0d7ecc307c09 (plain)

(say
	(let (A (append [1 2 3 (let (x 2) (* x x)) 5] 6))
		(let (B (append A 7)) (append B 8))
		(append (append A 9) 10)))