/COVI - Công viên

              Uses Crt;
        Var x1,x2,y1,y2:longint;
        Begin
            readln(x1,y1,x2,y2);
            if (y1=y2) and (x1<>x2) then
            begin
                writeln(x1,' ',y1-(x1-x2),' ',x2,' ',y2-(x1-x2));
                exit;
            end;
            if (y1<>y2) and (x1=x2) then
            begin
                writeln(x1-(y1-y2),' ',y1,' ',x2-(y1-y2),' ',y2);
                exit;
            end;
            if (x1-x2=y1-y2) then
            begin
                writeln(x2,' ',y1,' ',x1,' ',y2);
                exit;
            end;
            writeln(-1);
        End.