#!/usr/bin/env gosh

(define (main _)
  (let* ([d (read)][p (read)])
    (display
     (regexp-replace #/\..*$/
		     (format "~f" (* d ( + 1 (/ p 100))))
		     "")))
  (newline)
  0)