program restante;
type cuvant=array[1..26]of byte;
     vector=array[1..36000]of cuvant;
var v:vector;
    nou:array[1..36000]of boolean;
    gol,cuv:cuvant;
    i,k,j,n,nr,p:word;
    f1,f2:text;
    s:string;
    orig:boolean;
//v[1][3]=nr ap 'c' in primul cuv

begin
for i:=0 to 26 do
  gol[i]:=0;
nr:=0;
k:=0;
assign(f1,'restante.in');
reset(f1);
readln(f1,n);
for i:=1 to n do
  begin
  readln(f1,s);
  cuv:=gol;
  while length(s)>0 do
    begin
    p:=ord(s[1])-ord('a')+1;
    cuv[p]:=cuv[p]+1;
    delete(s,1,1);
    end;
 orig:=true;
 for j:=1 to k do      //while
   if cuv=v[j] then
     begin
     orig:=false;
     if nou[j] then
       nr:=nr-1;
     nou[j]:=false;
     end;

  if orig then
    begin
    k:=k+1;
    v[k]:=cuv;
    nou[k]:=true;
    nr:=nr+1;
    end;

  end;
close(f1);
assign(f2,'restante.out');
rewrite(f2);
writeln(f2,nr);
close(f2);
end.