type cv=string[16];
var f,g:text;
    cnt,k,j,i,n:longint;
    a:cv;
    v:array[1..36000] of cv;
    ok:boolean;
procedure sort(var s:cv);
var i,j:byte; aux:char;
begin
for i:=1 to length (s)-1 do
for j:=i+1 to length (s) do
if s[i]>s[j] then
begin aux:=s[i]; s[i]:=s[j]; s[j]:=aux; end;
end;
BEGIN

assign(f,'restante.in');reset(f);readln(f,n);
assign(g,'restante.out');rewrite(g);
for i:=1 to n do
begin
 readln(f,a);
 sort(a);
 v[i]:=a;
end;
for i:=1 to n-1 do
 begin
  ok:=false;
  for j:=i+1 to n do
   if v[i]=v[j] then
     begin
      v[j]:='0';
      ok:=true;
     end;
   if ok then v[i]:='0'
  end;
cnt:=0;
for i:=1 to n do
if v[i]<>'0' then cnt:=cnt+1;
write(g,cnt);
close(f);close(g);
END.