program rest;
type vector=array[1..36000]of string[16];
var  ch:char; p,i,n,x,j,af,k1:longint;
   a,allc:vector;cuv:string[16];  f,g:text;
procedure quick(n:longint;var v:vector);
var aux:string[16]; ok:boolean;k:longint;
begin

     REPEAT
     OK:=FALSE;
       FOR k:=1 TO N-1 DO
         IF V[k]>V[k+1] THEN BEGIN
         AUX:=V[k];
         V[k]:=V[k+1];
         V[k+1]:=AUX;
         OK:=TRUE; END;
       UNTIL NOT OK;
     end;
begin
   assign(f,'restante.in');reset(f);
   assign(g,'restante.out');rewrite(g);
     readln(f,x);
     for i:=1 to x do begin
      p:=0;
       while  not eoln(f) do begin
       read(f,ch);
       p:=p+1;
       a[p]:=ch;end;
       quick(p,a);cuv:='';
       for j:=1 to p do cuv:=cuv+a[j];
       allc[i]:=cuv;
       readln(f);
      end;
      for i:=1 to x do begin
       k1:=0;cuv:=allc[i];
       for j:=1 to x do
       if cuv=allc[j] then k1:=k1+1;
      if k1=1 then af:=af+1;
      end;

       write(g,af);
      close(f);close(g);
      end.