var a,b,c:string;
    n,i,j,l1,l2,nr:integer;
    f,g:text;
begin
assign(f,'subsir.in');reset(f);
assign(g,'subsir.out');rewrite(g);
readln(f,a);
read(f,b);
l1:=1;
l2:=length(b);
nr:=0;
for i:=1 to length(b) do
for j:=length(b) downto 1 do
    begin
    if (i>l1)and(j<l2) then c:=copy(b,i,j-i);
    if pos(c,a)<>0 then
       begin
       l1:=i;
       l2:=j;
       inc(nr);
       c:='';
       end;
    end;
write(g,nr);
close(f);close(g);
end.