program amlei; var n,u,t,i,k,p:integer; suma1,suma2:array [1..500] of integer; f,g:text; begin assign(f,'amlei.in'); assign(g,'amlei.out'); reset(f); rewrite(g); while not(eof(f)) do begin read (f,n,t,u); if (n>0) and (u>0) and (t>0) then begin k:=0; for i:=1 to n*t do begin read (f,p); if i mod n<>1 then suma1[k]:=suma1[k]+p else begin k:=k+1; suma1[k]:=p; end; end; k:=0; for i:=1 to n*u do begin read (f,p); if i mod n<>1 then suma2[k]:=suma2[k]+p else begin k:=k+1; suma2[k]:=p; end; end; k:=1; for i:=1 to t do begin for p:=1 to u do begin if suma1[i]=suma2[p] then break; if p=u then begin writeln(g,'NU'); k:=0; end; end; if k=0 then break; end; if k=1 then for i:=1 to u do begin for p:=1 to t do begin if suma2[i]=suma1[p] then break; if p=t then begin writeln(g,'NU'); k:=0; end; end; if k=0 then break; end; if k=1 then writeln(g,'DA'); end; end; close(f); close(g); end.