forgotten :: Int -> Int -> Int -> Int -> [Int]
forgotten x1 y1 x2 y2 = [x2 - diffy, y2 + diffx, x1 - diffy, y1 + diffx]
 where diffx = x2 - x1
       diffy = y2 - y1

main = do
  points <- fmap (map read.words) getLine
  let x1:y1:x2:y2:_ = points
  mapM_ print $ forgotten x1 y1 x2 y2
  