(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((*read-default-float-format* 'double-float)
         (n (read)))
    (princ (/ (float n 1d0)) *standard-output*)
    (terpri *standard-output*)))

(main)