(loop for str = "1"
      then (format nil "~{~a~}"
		   (nreverse (reduce (lambda (plist char)
						       (if (eq char (car plist))
								   (progn (incf (cadr plist)) plist)
								   `(,char 1 ,@plist)))
						     str
						     :initial-value nil)))
      repeat 11
      do (print str))