import Control.Applicative
import Control.Monad

type Coord = (Int, Int)

solver :: [Coord] -> String
solver = unwords . (map show) . solver'

solver' :: [Coord] -> [Int]
solver' [(x1, y1), (x2, y2)] =
    let dx = x2 - x1
        dy = y2 - y1
        in [x2-dy, y2+dx, x1-dy, y1+dx]


myRead :: String -> [Coord]
myRead s = [(x, y), (z, w)]
    where (x:y:z:w:_) = (map read) . words $ s

main :: IO ()
main = getLine >>= putStrLn . solver . myRead
