CL-USER defun layer level max-level format make-string max-level level

CL-USER> (defun layer (level max-level)
           (format t "~A" (make-string (- max-level level)
                                       :initial-element #\space))
           (format t "~A~%" (make-string (+ 1 (* 2 level))
                                         :initial-element #\#)))
LAYER
CL-USER> (let ((n 10))
           (dotimes (i n)
             (layer i n)))
          #
         ###
        #####
       #######
      #########
     ###########
    #############
   ###############
  #################
 ###################
NIL
CL-USER>