import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  xy <- map (read::String->Int) . words <$> getLine
  sq xy

sq [x1,y1,x2,y2] = (putStrLn .unwords .map show) [x3,y3,x4,y4]
  where x3 = x2-(y2-y1)
        y3 = y2+(x2-x1)
        x4 = x3-(y3-y2)
        y4 = y3+(x3-x2)