program task_d;

var
  count_sym, i, counter, first: integer;
  n, n_1, p, r: string;

begin
  readln(p);
  readln(r);
  count_sym := 1;
  counter := 0;
  first:= 1;
  for i := 1 to length(r) do
  begin
    
    n := Copy(r, first, count_sym);
    n_1 := Copy(r, first, count_sym+1);
    if (Pos(n, p) <> 0 ) and (Pos(n_1, p) = 0) then
    begin
      counter := counter + 1;
      first := i+1;
      count_sym := 0;
    end
    else count_sym := count_sym +1;
    
    if i = length(r) then counter := counter + 1;
    
  end;
  
  writeln(counter);
end.