main=do
    (x1:y1:x2:y2:_)<-map read.words<$>getLine::IO[Int]
    --
    let x3 = x2 + (y1-y2)
    let y3 = y2 - (x1-x2)
    let x4 = x1 + (y1-y2)
    let y4 = y1 - (x1-x2)

    putStrLn $ unwords $ map show [x3,y3,x4,y4]