type Coord = (Int, Int)

rotateClockWise :: Coord -> Coord
rotateClockWise (x, y) = (y, -x)

plus :: Coord -> Coord -> Coord
plus (x1, y1) (x2, y2) = (x1 + x2, y1 + y2)

minus :: Coord -> Coord -> Coord
minus (x1, y1) (x2, y2) = (x1 - x2, y1 - y2)

pairToList :: (a, a) -> [a]
pairToList (x, y) = [x, y]

main = do
    [x1, y1, x2, y2] <- map read . words <$> getLine
    let v1 = (x1, y1)
    let v2 = (x2, y2)
    let v3 = v2 `plus` rotateClockWise (v1 `minus` v2)
    let v4 = v3 `plus` rotateClockWise (v2 `minus` v3)
    putStrLn $ unwords ([v3, v4] >>= pairToList)
