import Control.Monad
import Text.Read

newtype Pair = Pair { getPair :: (Int, Int) }

instance Read (Pair) where
  readPrec = Pair .: (,) <$> readPrec <* get <*> readPrec

infixr 8 .:
(.:) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
(.:) = ((.).(.))

main :: IO ()
main = do
  (a, b) <- getPair <$> readLn
  print $ solve a b

solve :: Int -> Int -> Int
solve = (*)
