program pascal;
var f,g:text; k,i,nr,q:longint; x:array[1..50000] of string[20];
    s,aux:ansistring; t:string; ok:boolean;

   procedure citire;
   begin
   readln(f,s);
   k:=0;
   while not eof(f) do
     begin
     readln(f,t);
     ok:=true;
     for i:=1 to k-1 do
     if x[i]=t then
         begin
         ok:=false;
         break;
         end;
     if ok then
            begin
            inc(k);
            x[k]:=t;
            end;
     end;
   end;

   procedure caut;
   begin
   nr:=0;
   for i:=1 to k do
       begin
       aux:=s;
       q:=pos(x[i],aux);
       while q<>0 do
             begin
             nr:=nr+1;
             delete(aux,1,q);
             q:=pos(x[i],aux);
             end;
       end;
   write(g,nr);
   end;

begin
assign(f,'abc2.in'); reset(f);
assign(g,'abc2.out'); rewrite(g);
CITIRE;
caut;
close(f);
close(g);
end.