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