(defun main (&rest argv) (declare (ignorable argv)) (let* ((d (* 108 (read)))) (format t "~d.~d~%" (floor d 100) (mod d 100)))) (main)