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 j,x,nr:integer;
begin

nr2:=0;
j:=0;


while not eoln(f) do begin
  read(f,x); inc(j);


  if j mod t=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=t then  begin nr2:=nr2 or nr; j:=0; end;
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 not verific then writeln(g,'DA')
             else writeln(g,'NU');
end;

close(g);
END.