program Noname49;
var a,b,filename:string; i,c:integer;
fl:text;
begin
 assign(fl,'strmatch.in');
 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);
     end;
 end;
 until pos(a,b) = 0;
   assign(fl,'strmatch.out');
   rewrite(fl);
   writeln(fl,c);
   close(fl);
end.