(defun count-down ()
  (format t "~%Please type a number and I will count down from that number to one...")
  (let ((num (read)))
    (cond ((<= num 0) (count-down))
	  (t (do ((num num (- num 1)))
	      ((< num 2) num)
	    (print num))))))


(defun count-down ()
  (format t "~%Please type a number...")
  (let ((answer (read)))
    (cond ((<= answer 0) (count-down))
	  (t (do ((current-number answer (- current-number 1)))
		 ((= current-number 0) nil)
	       (print current-number))))))