import Control.Applicative

main :: IO ()
main = solve <$> f  <*> f >>= print
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> [Int] -> Int
solve [hw, ww] [hb, wb] = (hw - hb) * (ww - wb)
