import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  [x1, y1, x2, y2] <- map (read::String -> Int) . words <$> getLine
  let (x3, y3) = (x2 - y2 + y1, y2 + x2 - x1)
      (x4, y4) = (x1 - y2 + y1, y1 + x2 - x1)
  putStrLn $ show x3 ++ " " ++ show y3 ++ " " ++ show x4 ++ " " ++ show y4