module Main where

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

module Main where

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

