普通高精度55555

var
s2,s1,t:string;
a,b,c:array [0..20000] of longint;
la,lb,i,j:longint;
begin
readln(s1);
readln(s2);
la:=length(s1);
lb:=length(s2);
if s1=s2 then write('0');
if (la<lb) or ((la=lb) and (s1<s2)) then
begin  write('-');t:=s1;s1:=s2;s2:=t; end;
la:=length(s1);
lb:=length(s2);
for i:=1 to la do a[i]:=ord(s1[la-i+1])-48;
for i:=1 to lb do b[i]:=ord(s2[lb-i+1])-48;
for i:=1 to la do
begin
if a[i]<b[i] then
begin
a[i+1]:=a[i+1]-1;
a[i]:=a[i]+10;
end;
c[i]:=a[i]-b[i];
end;
j:=10000;

while (c[j]=0)and(j>0) do j:=j-1;
for i:=j downto 1 do
write(c[i]);
end.