(defun f (s) (if (string-not-equal (subseq s 0 1) "#")(f (print(concatenate 'string (subseq s 1) "#"))) s)) 
(f (make-string 11 :initial-element #\Space))