(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((d (write-to-string (* 108 (read))))
         (c (- (length d) 2)))
    (format t "~a.~a~%"  (subseq d 0 c) (subseq d c))))

(main)