module Main where

import Control.Monad
import Control.Applicative
import Data.List
import Text.Printf

getIntList = (map read . words) <$> getLine :: IO[Int]

showingList :: [Int] -> String
showingList (x:[]) = show x
showingList (x:xs) = (show x) ++ " " ++ (showingList xs)

func :: String -> String
func ('.':b) = b
func (c:b) = [c] ++ func(b)

func2 :: String -> String
func2 (x:y:[]) = ""
func2 (x:[]) = "0"
func2 (x:xs) = [x] ++ func2(xs)

main :: IO ()
main = do
    [a, b] <- words <$> getLine
    let c = read a :: Int
    let d = read (func b) :: Int
    putStrLn $ func2 $ show $ c * d