program alex;
var f:text;
    s:array[1..36000]of string[16];
    j,i,n,k,m,nr:integer;
    z:char;
    e:boolean;
begin
assign(f,'restante.in');reset(f);
readln(f,n);
nr:=0;
for i:=1 to n do
    begin
    readln(f,s[i]);
    m:=length(s[i]);
    e:=false;
    k:=1;
    while e=false do
          begin
          e:=true;
          for j:=1 to m-k do
              if s[i][j]>s[i][j+1] then begin
                                        z:=s[i][j];
                                        s[i][j]:=s[i][j+1];
                                        s[i][j+1]:=z;
                                        e:=false;
                                        end;
             k:=k+1;
              end;
    end;
for i:=1 to n do
    begin
    e:=true;
    for j:=1 to n do
        if i<>j then if s[i]=s[j] then e:=false;
    if e=true then nr:=nr+1;
    end;
close(f);
assign(f,'restante.out');rewrite(f);
writeln(f,nr);
close(f);
end.