RosettaCodeData/Task/Loops-For/Common-Lisp/loops-for-1.lisp
2020-02-17 23:21:07 -08:00

4 lines
94 B
Common Lisp

(loop for i from 1 upto 5 do
(loop for j from 1 upto i do
(write-char #\*))
(terpri))