program disjoint;   
type lista = ^articol;   
     articol = record  
               lungime:longint;   
               lider:lista;   
               end;   
  
var a:array [1..100000] of lista;   
    i,m,n,k,p,op:longint;   
    xp,xk:lista;   
procedure conectare(p,k:longint);   
begin  
  xp:=a[k];   
  xk:=a[p];   
  
  while xp<>xp^.lider do  
    xp:=xp^.lider;   
  
  while xk<>xk^.lider do  
    xk:=xk^.lider;   
  
  xp^.lider:=xk;   
  xk^.lungime:=xk^.lungime+xp^.lungime;   
  
end;   
  
begin  
  assign(input,'disjoint.in');   
  assign(output,'disjoint.out');   
  reset(input);   
  rewrite(output);   
  
  readln(n,m);   
  
  for i:=1 to n do  
  begin  
    new(a[i]);   
    a[i]^.lider:=a[i];   
    a[i]^.lungime:=1;   
  end;   
  
  for i:=1 to m do  
  begin  
    readln(op,k,p);   
    if op = 1 then  
    begin  
      if a[k]^.lungime>a[p]^.lungime then  
        conectare(p,k)   
      else  
        conectare(k,p);   
    end  
    else  
    begin  
      xp:=a[k];   
      xk:=a[p];   
  
      while xp<>xp^.lider do  
        xp:=xp^.lider;   
  
      while xk<>xk^.lider do  
        xk:=xk^.lider;   
  
      if xp^.lider = xk^.lider then  
        writeln('DA')   
      else  
        writeln('NU');   
    end;   
  end;   
  
  close(input);   
  close(output);   
  
end.