var a,b,c,d,e,f:longint;
begin
read(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:=a div 100 mod 10;
e:=a div 1000;
f:=b*1000+c*100+d*10+e;
if a>f then write(a,'-',f,'=',a-f)
        else write(f,'-',a,'=',f-a);
        end.
/**************************************************************
	Problem: 1709
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/