RosettaCodeData/Task/Loops-For/NewLISP/loops-for.l

5 lines
60 B
Common Lisp

(for (i 1 5)
(for(j 1 i)
(print "*"))
(print "\n"))