Plaster

CL-USER> (loop for i below 4 do (loop for j upto i do (format t "~a ~a~&" i j))) 0 0 1 0 1 1 2 0 2 1 2 2 3 0 3 1 3 2 3 3 NIL