program NOD_SOFTWARE;   
type vector = array [1..3600] of string[16];
var v:vector;
    rezultat,q,i,j,n,m:word;
    x,z:array ['a'..'z'] of byte;
    fin,fout:text;   
    ok:boolean;
    aux:char;
{*--------------------------*}
procedure ordonare;
begin
     for q:=1 to n do
         for i:=1 to length(v[q])-1 do
             for j:=i to length(v[q]) do

                 if v[q][i]>v[q][j] then
                 begin
                  aux:=v[q][i];
                  v[q][i]:=v[q][j];
                  v[q][j]:=aux;
             end;
end;
{*--------------------------*}
procedure citire;
begin
     assign(fin,'restante.in'); reset(fin);
     assign(fout,'restante.out'); rewrite(fout);
     readln(fin,n);
     for i:=1 to n do readln(fin,v[i]);
     close(fin);
end;
{*-----------MAIN-----------*}
begin
     citire;
     ordonare;
     {for i:=1 to n do}


     rezultat:=0;
     i:=0;
     for i:=1 to n do
     begin
          ok:=false;
          for j:=1 to n do
              if ((v[i]=v[j]) and (i<>j)) then
              begin
                   v[j]:='$';
                   ok:=true;
              end;
          if ok then v[i]:='$';
     end;
    { for i:=1 to n do writeln(fout,v[i]);}
     for i:=1 to n do if v[i]<>'$' then inc(rezultat);
     writeln(fout,rezultat);

     close(fout);
end.