import Data.Maybe
import qualified Data.ByteString.Char8 as C

main :: IO ()
main = do
  [a, b] <- map (fst . fromJust . C.readInteger . C.filter (/= '.')) . C.words <$> C.getLine
  print $ (a * b) `div` 100