main :: IO ()
main = do
    [x1, y1, x2, y2] <- fmap (map read . words) getLine :: IO [Int]
    let dx = x1 - x2
        dy = y1 - y2
    putStrLn $ unwords $ map show [x2 + dy, y2 - dx, x1 + dy, y1 - dx]
