program restante;
var f,g:text;
    v:array[1..40000]of string;
    p:array[1..40000]of longint;
    k,i,n,l,ok,cont,y,j:longint;

function poz(li,ls:longint):longint;
var i,j,modi,modj,m:longint;
man:char;
begin
i:=li;
j:=ls;
modi:=0;
modj:=-1;
while (i<=j)do
  begin
    if (v[y,i]>v[y,j])then
      begin
        man:=v[y,i];
        v[y,i]:=v[y,j];
        v[y,j]:=man;
        m:=modi;
        modi:=-modj;
        modj:=-m;
      end;
    i:=i+modi;
    j:=j+modj;
  end;
poz:=i;
end;

procedure quick(li,ls:longint);
begin
if (li<ls)then
  begin
    k:=poz(li,ls);
    quick(li,k-1);
    quick(k+1,ls);
  end;
end;

begin
assign(f,'restante.in');
assign(g,'restante.out');
reset(f);
rewrite(g);
readln(f,n);
for y:=1 to n do
  begin
    readln(f,v[y]);
    l:=length(v[y]);
    quick(1,l);
    ok:=0;
    for j:=1 to y-1 do
      if (v[j]=v[y])then
        begin
          ok:=1;
          p[j]:=1;
        end;
    if (ok=1)then
      p[y]:=1;
  end;
for i:=1 to n do
  if (p[i]=0)then inc(cont);
writeln(g,cont);
close(f);
closE(g);
end.