var a,temp,b:ansistring;
    n,i:byte;
    c:longint;
    b1,b2:array[1..2000000] of longword;
    f,g:text;

begin
  assign(f,'ahocorasick.in');
  assign(g,'ahocorasick.out');
  settextbuf(f,b1);
  settextbuf(g,b2);
  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,1,pos(b,temp));
        end;
      writeln(g,c);
    end;
  close(f);
  close(g);
end.