import Data.List (intercalate)

type Point = (Int, Int)

rotL :: Point -> Point
rotL (x, y) = (-y , x)

main = do
    [x1, y1, x2, y2] <- map read . words <$> getLine :: IO [Int]
    let v1 = (x2 - x1, y2 - y1)
    let v2 = rotL v1
    let v3 = rotL v2
    let (x3, y3) = (x2 + fst v2, y2 + snd v2)
    let (x4, y4) = (x3 + fst v3, y3 + snd v3)
    putStrLn $ (intercalate " " . map show) [x3, y3, x4, y4]