RosettaCodeData/Task/Loops-For/Common-Lisp/loops-for-1.lisp

(loop for i from 1 upto 5 do
  (loop for j from 1 upto i do
    (write-char #\*))
  (terpri))
A-M baby 2013-04-10 21:29:02 -07:00			`(loop for i from 1 upto 5 do`
			`(loop for j from 1 upto i do`
			`(write-char #\*))`
Family Day update 2020-02-17 23:21:07 -08:00			`(terpri))`