program Restante;
const
   abc : string = 'ABCDEFGHIJKLMNOPQRSTUVXYZabcdefghijklmnopqrstuvxyz';
var
   Fl : text;
   a : array[1..36000] of string[16];
   k : array[1..36000] of byte;
   n, i, j, l : longint;
   s1 : char;
   s : longint;

begin
   assign(fl,'restante.in');
   reset(fl);
   readln(fl,n);
   for i := 1 to n do
      begin
         readln(fl,a[i]);
         for l := 1 to length(a[i]) do
            for j := l+1 to length(a[i]) do
               if pos(a[i][l],abc) > pos(a[i][j],abc) then
                  begin
                     s1 := a[i][l];
                     a[i][l] := a[i][j];
                     a[i][j] := s1;
                  end;
        k[i] := 0;
      end;
   close(fl);

   for i := 1 to n do
      for j := i+1 to n do
         if a[i] = a[j] then
            begin
               k[i] := 1;
               k[j] := 1;
            end;

   s := 0;
   for i := 1 to n do
      if k[i] = 0 then
         s := s + 1;

   assign(fl,'restante.out');
   rewrite(fl);
   writeln(fl,s);
   close(fl);
end.