main = do
  [a,b,c,d] <- (map read . words) <$> getLine :: IO [Int]
  let
    acmax = max a c
    bdmin = min b d
  putStrLn $ show $ (b-a+1)*(d-c+1)-if acmax>bdmin then 0 else bdmin-acmax+1