var n,t,u:integer;
    f,g:text;

procedure cit1(var n,t,u:integer);
begin
readln(f,n,t,u);
end;

procedure cit(t:integer;var nr2:integer);
var i,j,x,nr:integer;
begin

nr2:=0;
j:=0;            writeln('numerele');
while not eoln(f) do begin
  read(f,x); inc(j);   write(x,' ');
  if j=1 then if x>0 then nr:=x else nr:=not(-x);
  if x>0 then nr:=nr and x
         else nr:=nr and (not (-x));
  if j mod t =0 then  nr2:=nr2 or nr;
end;
readln(f); writeln('exp=',nr2)
end;

function verific:boolean;
var    x,y:integer;
begin
cit(t,x);
cit(u,y);
if x=y then verific:=true
       else verific:=false;
end;


BEGIN
assign(f,'amlei.in');reset(f);
assign(g,'amlei.out');rewrite(g);
while not eof(f) do begin
  cit1(n,t,u);
  if verific then writeln(g,'DA')
             else writeln(g,'NU');
end;

close(g);
END.