From Newsgroup: comp.lang.lisp
Kenny Tilton wrote:
(loop for n from 10 to 15
do (format t "~&~v,,,'.<~a~>" n "hi, mom!"))
..hi, mom!
...hi, mom!
....hi, mom!
.....hi, mom!
......hi, mom!
.......hi, mom!
Gauche Scheme
(use srfi-13) ;; string-pad
(for-each (^n (print (string-pad "hi, mom!" n #\.)))
(lrange 10 16))
..hi, mom!
...hi, mom!
....hi, mom!
.....hi, mom!
......hi, mom!
.......hi, mom!
--- Synchronet 3.21a-Linux NewsLink 1.2