{$IFDEF NORMAL}
  {$I-,Q-,R-,S-}
{$ENDIF NORMAL}
{$IFDEF DEBUG}
  {$I+,Q+,R+,S-}
{$ENDIF DEBUG}
{$IFDEF RELEASE}
  {$I-,Q-,R-,S-}
{$ENDIF RELEASE}

var fi,fo:text;
    m1,m2:array[1..505,1..55] of integer;
    i,j,n,t,u,a,p:longint;
        ok:boolean;

 function egal(a,b:integer):boolean;
   var i,j:integer;
     begin
      egal:=true;
      for i:=1 to n do
       if m1[a,i]<>m2[b,i] then
         begin
           egal:=false;
           exit;
         end;
     end;




begin
 assign(fi,'amlei.in'); reset(fi);
 assign(fo,'amlei.out'); rewrite(fo);
while not eof(fi) do
begin
 readln(fi,n,t,u);
 for i:=1 to t do
  begin
     for j:=1 to n do
    begin
     read(fi,a);
     p:=abs(a);
     if a>0 then m1[i,p]:=1
       else m1[i,p]:=0;
    end;
  end;
 readln(fi);
 for i:=1 to u do
  begin
   for j:=1 to n do
    begin
     read(fi,a);
     p:=abs(a);
     if a>0 then m2[i,p]:=1
       else m2[i,p]:=0;
    end;
  end;

 ok:=true;
 for i:=1 to t do
  for j:=1 to u do
   begin
    if egal(i,j) then
      break
    else if j=u then
     begin
      ok:=false;
      break;
     end;
    if ok=false then break;
   end;
 if ok then writeln(fo,'DA')
    else writeln(fo,'NU');
 readln(fi);
end;
close(fi);
close(fo);
end.