program p1368;

var c:qword;

a,b,d:int64;

str0:ansistring;

procedure init;

begin

readln(a,b);

if a-b>0 then begin c:=a-b; str(c,str0); end

else begin d:=a-b; str(d,str0); end

end;

procedure print;

var k:byte;

i:longint;

begin

if str0[1]='-' then begin delete(str0,1,1); write('-'); k:=(length(str0)-1) mod 3 end

else k:=length(str0) mod 3;

if k0 then begin for i:=1 to k do write(str0[i]); write(','); end;

for i:=k+1 to length(str0) do

begin

write(str0[i]);

if ilength(str0) then if i mod 3=k then write(',');

end;

end;

begin

init;

print;

end.