readInt :: String -> Int
readInt = read

main = do
    s <- map readInt.words<$>getLine
    putStr $ unwords $ map show (solve s)

solve :: [Int] -> [Int]
solve [a, b, c, d] = [b - d + c, c - a + d, b - d + a, c - a + b]