RosettaCodeData/Task/Loops-For/NewLISP/loops-for.l
2023-07-01 13:44:08 -04:00

4 lines
60 B
Common Lisp

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