var a,temp,b:ansistring;
    n,c,i:longint;
    f,g:text;

begin
  assign(f,'ahocorasick.in');
  assign(g,'ahocorasick.out');
  reset(f);
  rewrite(g);
  readln(f,a);
  readln(f,n);
  for i:=1 to n do
    begin
      readln(f,b);
      temp:=a;
      c:=0;
      while pos(b,temp)>0 do
        begin
          inc(c);
          delete(temp,pos(b,temp),length(b));
        end;
      writeln(g,c);
    end;
  close(f);
  close(g);
end.