(defvar D)
(defvar P)
(defvar temp)
(setq temp (read-line))
(setq temp (read-from-string (concatenate 'string "(" temp ")" )))
(setq D (nth 0 temp))
(setq P (nth 1 temp))
;(print D)
;(print P)
(format 't "~d~%" (floor (+ (* D 100) (* D P)) 100))