main = interact $ show . solve . map (read :: String -> Double) . words

solve :: [Double] -> Integer
solve [a, b] = (floor (a * 10000.0 * b )) `div` 10000