main = do
  l <- getLine
  let xy12 = map read $ words l
  putStrLn $ unwords $ map show $ abc108b xy12

abc108b :: [Int] -> [Int]
abc108b [x1,y1,x2,y2] = [x3,y3,x4,y4]
  where
    (dx,dy) = (x2-x1,y2-y1)   -- d = v2-v1
    (rdx,rdy) = (-dy,dx)      -- r = d rot 90
    (x3,y3) = (x2+rdx,y2+rdy) -- v3 = v2+r
    (x4,y4) = (x3-dx,y3-dy)   -- v4 = v3-d
