type sir=array[1..25001] of integer;
var a,b:sir;
    x,y,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;

for j:=1 to n do begin

  read(f,x);
  if x>0 then nr:=x else nr:=not (-x);

  for i:=1 to t-1 do begin
    read(f,x);
    if x>0 then nr:=nr and x
           else nr:=nr and (not (-x));
  end;

  nr2:=nr2 or nr;

  writeln('exp ',nr2);

end;
writeln('alta');

end;

function verific:boolean;
var    x,y:integer;
begin
cit(t,x);
cit(u,y);   writeln(x,' ',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;}
     write(g,'DA');
close(g);
END.