;;;; Created on 2007-03-21 17:55:19


(defun o (&rest l) 
  (dolist (x l) 
    (format t "~a" x)))

(defun say (n) 
  (let ((r 0.001))
    (format nil "~a"
            (* (round (/ n r))
               r))))