var

m,n:int64;

i,j,k:longint;

s:string;

begin

readln(m,n);

m:=m-n;

str(m,s);

i:=length(s); k:=i;

j:=0;

repeat

j:=j+1;

if (j mod 3=0) then insert(',',s,i);

i:=i-1;

until i=1;

if (s[1]='-') and ((k-1)mod 3=0) then delete(s,2,1);

writeln(s);

end.