import Data.Fixed

main = do
  [v, t] <- fmap (map read . words) getLine :: IO [Pico]
  putStrLn $ takeWhile (/= '.') $ showFixed True $ v * t