var  f,g:text;
     s:string;
     a:array[1..36100] of string;
     c:array[1..18] of char;
     o:array[1..36100] of boolean;
     i,j,n,nr,n1,k,m:longint;
     aux:char;
     ok:boolean;
begin
assign(f,'restante.in');reset(f);
assign(g,'restante.out');rewrite(g);
readln(f,n);
n1:=0;
for i:=1 to n do begin
    readln(f,s);
    m:=length(s);
    for j:=1 to m do
        c[j]:=s[j];
    for j:=1 to m-1 do
        for k:=j+1 to m do
            if c[j]>c[k] then begin
               aux:=c[j];
               c[j]:=c[k];
               c[k]:=aux;
            end;
    s:='';
    for j:=1 to m do s:=s+c[j];
    ok:=false;
    for j:=1 to n1 do
        if a[j]=s then begin o[j]:=false;
                             ok:=true;
        end;
    if ok=false then begin
       inc(n1);
       a[n1]:=s;
       o[n1]:=true;
    end;
end;
nr:=0;
for i:=1 to n1 do
    if o[i]=true then inc(nr);
writeln(g,nr);
close(g);
end.