{-# LANGUAGE TypeApplications #-}

import           Control.Monad
import           Control.Applicative
import           Data.List
import           Data.Char
import           Control.Arrow
import           Data.Bits


main = do
  [a, b] <- map (read @Int . filter (/= '.')) . words <$> getLine
  print $ a * b `div` 100
