var     f,g:text;
        v:array['a'..'z'] of integer;
        i,n,j,nr,cod,num:integer;
        b:array[1..10000] of string;
        s,y,a:string;
        l:char;
        lafel:boolean;
        ok:array[1..10000] of boolean;
begin
assign (f,'restante.in');reset (f);
assign (g,'restante.out');rewrite (g);
readln (f,n);
fillchar(ok,sizeof(ok),true);
for i:=1 to n do begin
 readln (f,s);
 fillchar(v,sizeof(v),0);
 a:='';
 for j:=1 to length(s) do
  inc(v[s[j]]);
 for l:='a' to 'z' do
  if v[l]<>0 then begin
   str(v[l],y);
   a:=a+y+l;
  end;
 lafel:=false;
 for j:=1 to nr do
  if b[j]=a then begin
   ok[j]:=false;
   lafel:=true;
  end;
 if not lafel then begin
  inc(nr);
  b[nr]:=a;
 end;
end;
num:=0;
for i:=1 to nr do
 if ok[i] then inc(num);
writeln (g,num);
close(f);close(g);
end.