(princ (format nil "~2R~%" (parse-integer (read-line))))