§ Common Lisp LOOP Macro

§ Loop with index:

(loop for x in xs for i from 0 do ...)

§ Nested loop appending

(loop for x in `(1 2 3 4) append
      (loop for y in `(,x ,x) collect (* y y))