import qualified Data.ByteString.Char8 as BS
import Data.Maybe
import Control.Monad

readString = map BS.unpack . BS.words

getString = readString <$> BS.getLine

main = do
  [a, b] <- getString
  print $ floor ((read a :: Float) * ((read b :: Float) * 100)) `div` 100
