program pas;
var s,t,x:ansistring;
    n,poz,l,i,j:longint;
    f,g:text;

begin
    poz:=0;
    assign(f,'abc2.in');
    reset(f);
    assign(g,'abc2.out');
    rewrite(g);
    readln(f,s);
    t:='';
    While not eof(f) do
     begin
      readln(f,x);
      If pos(x,t)=0 then
       begin
        For i:=1 to length(s)-length(x)+1 do
         If x=copy(s,i,length(x)) then
          poz:=poz+1;
        t:=t+x+' ';
       end;
     end;
    close(f);
    write(g,poz);
    close(g);
end.