(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read))) (format t "~f~%" (/ (float n 0d0) 2d0)))) (main)