var
  n,i,m,k,l,j,o:integer;
  a:array[1..maxint]of integer;
  mn:boolean;
begin
  read(n);
  while n<>0 do
    begin
      fillchar(a,sizeof(a),0);
      mn:=true;
      readln(m);
      for i:=1 to n do begin read(o);a[o]:=1;end;
      for i:=1 to m do
        begin
         read(k,l);
         for j:=1 to k do begin read(o); if a[o]=1 then dec(l) end;
         if l>0 then mn:=false;
        end;
        if mn then writeln('yes') ELSE WRITELN('no');
      read(n);
    end;
end.


这水题都贡献了2WA，好吧。。。