Пример 15.22. Использование функции loop-for-count

(loop-for-count 2

(printout t "Hello world" crlf))

(loop-for-count (?cntl 2 4) do

(loop-for-count (?cnt2 1 3) do

(printout t?cntl " "?cnt2 crlf)))

Рис. 15.19. Использование функции loop-for-count

Функция progn предназначена для выполнения нескольких вычислений (действий) в рамках одной команды, т. е. эта функция позволяет группиро­вать и объединять набор действий в одну логическую команду.