main :: IO ()
main = getNums >>= print . f
  where
    getNums = map read . words <$> getLine :: IO [Int]
    f [a,b] = a * (100 + b) `div` 100