(defun dot-print (x) (when (plusp x) (format t ".") (dot-print (1- x))))
(defun dot-print (x) (dotimes (i x) (format t ".")))