main = do
       a<-getLine
       let (x0:y0:x1:y1:[])=(map read . words) a::[Int]
       putStrLn $ show (y0 - y1 + x1)++" "++show (y1 - x0 + x1)++" "++show (y0 - y1 + x0)++" "++show(x1 - x0 + y0) 
       