main=do
 [x,y,v,w]<-map read.words<$>getLine
 let a = abs(x-v)
     b = abs(y-w)
 putStrLn$unwords$map show$if(v-x)*(w-y)>0 then(if x<v then [v-b,w+a,x-b,y+a]else[x+b,y-a,v+b,w-a])else if x<v then[x+b,y+a,v+b,w+a]else[v-b,w-a,x-b,y-a]