toInt :: String -> [Int]
toInt x = map read $ words x :: [Int]

product' :: ([Int], [Int]) -> (Int, Int)
product' (a, b) = (product a, product b)

cmp :: (Int, Int) -> Int
cmp (a, b) 
    | a >= b = a
    | a < b = b

main = do
    x <- getLine
    putStrLn $ show $ cmp $ product' $ splitAt 2 $ toInt x
    