var f,g:text;
v:array[1..50000]of longint;
i,j,n,x,t,k:longint;
begin
assign(f,'nivele.in');reset(f);
assign(g,'nivele.out');rewrite(g);
readln(f,t);
for i:=1 to t do begin
 read(f,n);
 read(f,v[1]);
 k:=1;
 for j:=2 to n do begin
  read(f,x);
  if x=v[k] then begin
    v[k]:=x-1;
    while (v[k]=v[k-1])and (k>0) do begin
     v[k-1]:=v[k-1]-1;
     v[k]:=0;
     k:=k-1;
     end;
    end else begin
    k:=k+1;
    v[k]:=x;
    end;
  end;
 readln(f);
 if i<>t then begin
 if (k=1)and (v[k]=1) then writeln(g,'DA') else writeln(g,'NU');
 end else begin
 if (k=1)and (v[k]=1) then write(g,'DA') else write(g,'NU');
 end;
 end;
close(f);close(g);
end.