module Main where

import Control.Applicative
import Control.Monad
import Text.Printf (printf)

main :: IO ()
main = do
    [x1, y1, x2, y2] <- fmap read . words <$> getLine :: IO [Int]
    let dx = - (y2 - y1)
    let dy = x2 - x1
    printf "%d %d %d %d\n"
        (x2 + dx) (y2 + dy) (x1 + dx) (y1 + dy)