import Data.List

toInt :: String -> Int
toInt = read :: String -> Int

main = do
  l <- words <$> getLine
  let a = toInt (l !! 0)
  let b = toInt [x | x <- l !! 1, not (elem x ".")]
  print $ div (a*b) 100
