import Data.List


main = do
    [x1, y1, x2, y2] <- map read . words <$> getLine
    let positions = ans x1 y1 x2 y2
    putStrLn $ intercalate " " $ map show positions
    

ans x1 y1 x2 y2 = [x3, y3, x4, y4]
    where
        x4 = x1 + y1 - y2
        y4 = y1 + x2 - x1
        x3 = x2 + x4 - x1
        y3 = y2 + y4 - y1
