program restante;
var nr,t,n,i,j:longint;
    s:array[1..36000] of string[16];
    ok:array[1..36000] of boolean;
    da:boolean;


procedure citire;
var f:text;
    i:longint;
begin
assign(f,'restante.in');
reset(F);
read(f,n);
for i:=1 to n do
begin
readln(F);
read(f,s[i]);
end;
closE(f);
end;

procedure verificare;
var x,y,nr1,nr2:longint;
    sir1,sir2:string;
begin
sir1:=s[i]; sir2:=s[j];
for x:=1 to 26 do
begin
nr1:=0;nr2:=0;
while pos(chr(x+96),sir1)<>0 do
begin
nr1:=nr1+1;
delete(sir1,pos(chr(x+96),sir1),1);
end;
while pos(chr(x+96),sir2)<>0 do
begin
nr2:=nr2+1;
delete(sir2,pos(chr(x+96),sir2),1);
end;

if nr1<>nr2 then
begin
da:=true;
break;
end;
end;
end;

procedure afisare;
var g:text;
begin
assign(g,'restante.out');
rewrite(G);
write(g,nr);
close(g);
end;


begin
citire;fillchar(ok,n,true);
for i:=1 to n do
if ok[i] then
begin

 for j:=i+1 to n do
  if ok[j] then
   begin
   da:=false;
   verificare;
   if not da then
   begin
   ok[i]:=false;
   ok[j]:=false;
   end;
  end;

if ok[i] then
nr:=nr+1;

end;
afisare;
end.