(loop for dim-idx in xyz below x
for y from 0
for letter in (list 'x 'y 'z) in 2
collect x into 1)
(loop for x below 3 in 2
do (format t "~A~%" x))
(asd into)