program pascal;
var f,g:text;
    s:array[1..10000001] of char;
    v:array[1..50001] of string[20];
    n,m,i,nr,q,t:longint;
    ok,bun:boolean;
    p:char;
    z:string;

     procedure citire;
     begin
          n:=1;
          ok:=true;
          repeat
            read(f,p);
            if (p<>'a') and (p<>'b') and (p<>'c') then ok:=false
                                                  else s[n]:=p;
            n:=n+1;

          until not ok;
          n:=n-2;
     end;

begin
assign(f,'abc2.in'); reset(f);
assign(g,'abc2.out'); rewrite(g);
citire;
readln(f);
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
  z:='';
  for i:=1 to length(v[m]) do  z:=z+s[i];

    for q:=i+1 to n+1 do
     begin
      if z=v[m] then nr:=nr+1;
      delete(z,1,1);
      z:=z+s[q];
     end;
  end;
end;

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