Функция ввода-вывода в Lisp печатает числа в виде трапеции

(defun pr1 (k m)
    (print k)
    (cond (=m k) (terpri))
    (t (pr(+ 1 k) m))))
 
PR1
 
>(pr1 1 4)
1

(defun up-to (k)
 (let (lst)
    (dotimes (n (- k 1))
    (push (+ n 1) lst) )
    lst))
 
(defun prl (k m)
        (print (cons k (up-to k)))
        (if (= m 1)
        t
        (prl (+ k 1) (- m 1)) ))
(prl 4 5)

(defun up-to (k)
 (let (lst)
    (dotimes (n (- k 1))
    (push (+ n 1) lst) )
    lst))
 
(defun prl (k m)
        (print (cons k (up-to k)))
        (if (= m 1)
        t
        (prl (+ k 1) (- m 1)) ))
 
>(prl 8 3)

(defun trapeze (n m)
  (loop for a from n below (+ n m) 
        do (row a) (terpri)))
 
(defun row (n)
  (loop for a from n downto 1
        do (princ a)))
 
> (trapeze 4 6)
4321
54321
654321
7654321
87654321
987654321
NIL

(defun trapeze (n m)
  (loop for a from n below (+ n m)
        do (loop for e from a downto 1
                 do (princ e))
        (terpri)))
 
> (trapeze 4 6)
4321
54321
654321
7654321
87654321
987654321
NIL

(defun trapeze (n m)
  (loop for a from n below (+ n m)
        do (format t "~{~a~}~%" 
                   (loop for e from a downto 1
                         collect e))))
 
> (trapeze 4 6)
4321
54321
654321
7654321
87654321
987654321
NIL