module Main where


main = do
	input <- getLine
	let a = (read . head . words $ input) :: Integer
	let b = (floor . (*100) . read . head . tail . words $ input) :: Integer
	putStrLn $ show . (\n -> n `div` 100) $ a * b

