import qualified Data.ByteString.Char8 as BS
import           Data.Maybe (fromJust)

main :: IO ()
main = do
  [a, b] <- getInts
  print $ a * b

getInts :: IO [Int]
getInts = fmap (fst . fromJust . BS.readInt) . BS.words <$> BS.getLine
