program pascal;
var f,g:text;
    v:array[1..100000] of 0..1;
    x:string[20];
    nr,k:int64;
    aux,s:ansistring;

begin
assign(f,'abc2.in'); reset(f);
assign(g,'abc2.out'); rewrite(g);
readln(f,s);
nr:=0;
 while not eof(f) do
    begin
      readln(f,x);
      aux:=s;
      k:=pos(x,s);
      while k<>0 do
        begin
          if v[k]=0 then
             begin
               inc(nr);
               v[k]:=1;
               aux[k]:=' ';
               k:=pos(x,aux);
             end
             else k:=0;
         end;
     end;

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