area :: Int -> Int -> Int
area x y = x * y

solve :: Int -> Int -> IO ()
solve a b
    | a < b = print b
    | b <= a = print a

main = do
    line <- getLine
    let [a,b,c,d] = map read (words line)
    solve (area a b) (area c d)