type cv=string[16];
var f,g:text;
    cnt,k,j,i,n:longint;
    a:cv;
    v:array[1..3600] 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
k:=0;
writeln(v[1]);
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);
 j:=1;
 ok:=false;
 while (j<=k) and (ok=false) do
  begin
   if a=v[j] then
    begin
     ok:=true;
     v[j]:='0';
    end;
   j:=j+1;
  end;
  if ok=false then
  begin
   k:=k+1;
   v[k]:=a;
  end;
end;

cnt:=0;
for i:=1 to k do
if v[i]<>'0' then cnt:=cnt+1;
write(g,cnt);
close(f);close(g);
END.