a:string;
t:char;
s:array [0..10000] of string;
k,i,j,p,n,i1:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
for i1:=1 to length(a)-1 do 
for j:=i1+1 to length(a) do 
if a[i1]>a[j] then begin  t:=a[i1];a[i1]:=a[j];a[j]:=t;end;
s[i]:=a;
end;
for i:=1 to n do
begin
for j:=1 to i-1 do
if s[i]=s[j] then p:=1;
if p<>1 then k:=k+1;p:=0;
end;
writeln(k);
end.