program Noname49;
uses sysutils;
var a,b,filename,rr:string; i,c:integer;
fl:text;
begin
 filename := 'C:\strmatch.in';
 assign(fl,filename);
 reset(fl);
 readln(fl,a);
  readln(fl,b);
   close(fl);

 repeat begin
 if (pos(a,b) > 0) then begin
 c:=c+1;
 delete(b,pos(a,b),1);
 
 // b := StringReplace(b, 'ab', '',[rfIgnoreCase]);
                        //  writeln(b);
     end;
 end;
 until pos(a,b) = 0;
   filename := 'C:\strmatch.out';
   assign(fl,filename);
   rewrite(fl);
   writeln(fl,c);
   close(fl);
  WriteLn(c);
  Readln;
end.