program sir;
var a,b,c:array [ 1..1000] of longint;
    f,g:text;
    n,nr,i,j,k,pas,t,z:longint;
    stop:boolean;

begin
  assign (f,'zvon.in');
  reset (f);
  assign (g,'zvon.out');
  rewrite(g);
  readln (f,n);
  z:=0;
  for i:=1 to n do
   begin
     readln(f,nr);
     if nr-1=0 then inc(z);
     for j:=1 to nr-1 do readln(f);
   end;
  reset(f);
  readln (f,n);
  for i:=1 to n-z do
   begin
     readln (f,nr);
     if nr-1 = 0 then begin
                      writeln(g,0);
                      readln(f,nr);
                      end;
     for j:=1 to nr-1 do begin
                          read (f,a[j]);
                          readln (f,b[j]);
                        end;
   pas:=0;
   t:=0;   stop:=true;
   while stop do
    begin
      for j:=1 to t do
       for k:=1 to nr-1 do
        if c[j]=b[k] then begin
                            b[k]:=0;
                            break;
                          end;
     STOP:=false;
      for j:=1 to nr-1 do
       if a[j]<>0 then begin
                         inc(pas);
                         for k:=j to nr-1 do
                          if b[j]=a[k] then begin
                                            a[k]:=0;
                                           inc(t);
                                            c[t]:=b[j];
                                            break;
                                            end;
                          a[j]:=0;

                          stop:=true;
                          break;
                        end;
   end;
  writeln (g,pas);
  end;
 close (g); close (f);
 end.