var

a,b:int64;

ans:qword;

s:string;

i,j:integer;

b1:boolean;

begin

read(a,b);

b1:=true;

if a=b then

begin

writeln(0);

halt;

end;

if (a>0) and (b<0) then ans:=a-b;

if (a<0) and (b>0) then

begin

ans:=-a+b;

b1:=false;

end;

if (a>0) and (b>0) then

if a<b then

begin

ans:=b-a;

b1:=false;

end

else ans:=a-b;

if (a<0) and (b<0) then

if abs(a)>abs(b) then

begin

ans:=-a+b;

b1:=false;

end

else ans:=-b+a;

if not b1 then write('-');

str(ans,s);

for i:=length(s) downto 2 do

begin

write(s[length(s)-i+1]);

if i mod 3=1 then write(',');

end;

writeln(s[length(s)]);

readln;

readln;

end.