import Control.Applicative

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

solve :: [Int] -> String
solve [x1, y1, x2, y2] = unwords . map show $ [y1-y2+x2, x2-x1+y2, y1-y2+x1, x2-x1+y1]
