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