var
  m,k,c,i,num,n,t,j:longint;
  flag:boolean;
  a:array [1..10000] of boolean;
begin
  read(m);
  while m<>0 do
  begin
  readln(k);
  flag:=true;
  fillchar(a,sizeof(a),0);
  for i:=1 to m do
    begin
      read(c);
      a[c]:=true;
    end;
  readln;
  for i:=1 to k do
    begin
      read(num,n);
      t:=0;
      for j:=1 to num do
        begin
          read(c);
          if a[c] then t:=t+1;
        end;
      if t<n then flag:=false;
      readln;
    end;
  if not flag then writeln('no') else writeln('yes');
  read(m);
  end;
end.