solve :: [Int] -> [Int]
solve [x1, y1, x2, y2] = [x3, y3, x4, y4]
  where vector1to2 = (x2 - x1, y2 - y1)
        vector2to3 = (y1 - y2, x2 - x1)
        x3 = x2 + fst vector2to3
        y3 = y2 + snd vector2to3
        vector3to4 = (x1 - x2, y1 - y2)
        x4 = x3 + fst vector3to4
        y4 = y3 + snd vector3to4

main :: IO ()
main = do
  positions@[x1, y1, x2, y2] <- map read . words <$> getLine
  putStrLn $ unwords $ map show $ solve positions