program pascal;
var f,g:text;
    s:array[1..100000000] of char;
    v:array[1..500000] of string[20];
    n,m,i,k,j,nr,sum,t:longint;
    ok,bun:boolean;

begin
assign(f,'abc2.in'); reset(f);
assign(g,'abc2.out'); rewrite(g);

readln(f,s);
n:=1;
while (ord(s[n])<>0) do n:=n+1;
n:=n-1;

m:=0;
nr:=0;
while not eof(f) do
 begin
  m:=m+1;
  readln(f,v[m]);

  bun:=false;
  for t:=1 to m-1 do
   if v[t]=v[m] then
          begin
              bun:=true;
              break;
          end;

 if not bun then
 begin
  for i:=1 to n-length(v[m])+1 do
   begin
    k:=i;
    ok:=true;
    for j:=1 to length(v[m]) do
    if s[k]=v[m][j] then k:=k+1
                    else
                     begin
                      ok:=false;
                      break;
                     end;
   if ok then nr:=nr+1;
   end;
 end;
  end;



write(g,nr);
close(f);
close(g);
end.