(defun main (&rest argv)
  (declare (ignore argv))
  (format t "~d~%" (read)))

(main)