(let ((n 10))
           (dotimes (i n)
             (format t "~A~A~%"
                     (make-string (- n i 1) :initial-element #\space)
                     (make-string (+ i 1) :initial-element #\#))))