program mire;
var f,g:text;
     bufin,bufout:array[1.. 1 shl 16] of byte;
     n,m,c,x,y,i:longint;
    t:array[1..100000] of longint;
function rad(nod:longint):longint;
begin
 while t[nod]<>0 do
  nod:=t[nod];
 rad:=nod;
end;
begin
assign(f,'disjoint.in'); reset(f);
assign(g,'disjoint.out'); rewrite(g);
settextbuf(f,bufin); settextbuf(g,bufout);
  readln(f,n,m);

  for i:=1 to m do
    begin
       readln(f,c,x,y);
       if c=1 then
          begin
             t[y]:=x;
          end
       else
         begin
            if rad(x)=rad(y) then
               writeln(g,'DA')
             ELSE
                writeln(g,'NU')
         end;

    end;
close(f);
close(g);
end.