var
x,y:string;a,b,c,d:integer;
z1,z2,z3:array[1..401]of integer;
procedure sub(wei:integer);
var a,c,d:integer;
begin d:=0;for a:=wei to wei+b do begin
c:=z1[a]+10-z2[a-wei+1]+d;z1[a]:=c mod 10;d:=c div 10-1;end;end;
begin
assign(input,'div.in');reset(input);
assign(output,'div.out');rewrite(output);
readln(x);a:=length(x);
for c:=1 to a do z1[c]:=ord(x[a-c+1])-48;
readln(y);b:=length(y);
for c:=1 to b do z2[c]:=ord(y[b-c+1])-48;
if (a<b)or((a=b)and(x<y))then begin writeln('0');exit;end;
if x=y then begin writeln('1');exit;end;
for a:=a downto 1 do begin d:=0;
repeat for c:=a+b downto a do if z1[c]<>z2[c-a+1] then break;
if z1[c]>=z2[c-a+1] then begin sub(a);z3[a]:=z3[a]+1;end
else d:=1;until d=1;end;d:=0;
for a:=length(x) downto 1 do begin if z3[a]<>0 then d:=1;
if d=1 then write(z3[a]);end;
close(input);close(output);end.
FoolMike