var n,d,i,j:longint;
    s:array[1..36000] of string[16];
    k:array[1..36000] of byte;
    f, g : text;

procedure aranj();
 var ok:boolean;
     i,j:longint;
     h:string[16];
     aux:char;
 begin
  for i:=1 to n do begin
   h:=s[i];
   repeat
    ok:=true;
    for j:=1 to length(h)-1 do
     if ord(h[j])>ord(h[j+1]) then begin
      ok:=false;
      aux:=h[j];
      h[j]:=h[j+1];
      h[j+1]:=aux;
      end;
     s[i]:=h;
   until ok=true;
   end;
   end;
begin
 assign(f,'restante.in');reset(f);
 readln(f,n);
 for i:=1 to n do begin
  readln(f,s[i]);
  k[i]:=0;
  end;
 close(f);
 aranj();
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if (s[i]=s[j]) then begin
    k[i]:=1;
    k[j]:=1;
    end;
  d:=0;
 for i:=1 to n do
  d:=d+k[i];
 n:=n-d;
 assign(g,'restante.out'); rewrite(g);
 writeln(g,n);
 close(g);
end.