(defun count-chars1-1000 ()
	   (let ((lst '())
		 (sum 0))
	     (loop for i from 1 to 1000 do
	      (push (format nil "~R" i) lst))
	     (dolist (i lst)
	       (setf i (delete #\- i))
	       (setf i (delete #\Space i)))
	     (print lst)
	     (dolist (i lst)
	       (setf sum (+ sum (length i))))
	     sum))