area :: Int -> Int -> Int
area a b = a * b

rInt :: String -> Int
rInt str = read str :: Int

main :: IO ()
main = do
  input <- getLine
  let doubleInt = map rInt $ words input
  print $ area (head doubleInt) (last doubleInt)