program disjoint;
type
        vector1 = array[1..100000] of longword;
var
        n   : longword;
        rad : vector1;

function radd(x : longword) : longword; forward;

procedure main;
var
        f1,f2 : text;
        i ,m ,x ,y : longword;
        cod : byte;
begin
        assign(f1, 'disjoint.in' ); reset(f1);
        assign(f2,'disjoint.out'); rewrite(f2);
        readln(f1, n, m);

        for i := 1 to m do
        begin
                readln(f1, cod, x, y);
                x := radd(x);
                y := radd(y);
                if cod = 1 then rad[x] := y else
                if x = y then write(f2,'DA',#10) else write(f2,'NU',#10);
        end;
        close(f1);
        close(f2);
end;

function radd(x : longword) : longword;
begin
        while rad[x] > 0 do x := rad[x];
        radd := x;
end;

begin
main;
end.