var n,i,j,l,k:longint;
    v:array[1..36001] of string[17];
    f,g:text;
    c:char;
    ok:boolean;
begin
        assign(f,'restante.in');
        assign(g,'restante.out');
        reset(f);
        rewrite(g);
        readln(f,n);
        for i:=1 to n do begin
                          readln(f,v[i]);
                          for j:=1 to length(v[i])-1 do
                           for l:=j+1 to length(v[i]) do
                                if v[i][j]>v[i][l] then begin
                                                        c:=v[i][j];
                                                        v[i][j]:=v[i][l];
                                                        v[i][l]:=c;
                                                        end;
                          ok:=true;
                          for j:=1 to i-1 do if v[i]=v[j] then begin
                                                                ok:=false;
                                                                break;
                                                               end;
                          if ok then inc(k);
                         end;
        write(g,k-1);
        close(f);
        close(g);
end.