import qualified Data.Text as T
import Control.Applicative
main = do
	inputs<-fmap (read.T.unpack)<$>T.split (==' ')<$>T.pack<$>getLine::IO [Int]
	print$(inputs!!0)*(100+inputs!!1) `div` 100