var n,i,x:longint;
    s:string;
begin
        readln(n);
        for i:=1 to n do
        begin
          readln(s);
          if (s[length(s)]<>'1')and(s[length(s)]<>'0')
             then writeln('NOT SECURE')
             else if s[length(s)]='1'
                     then writeln('SECURE')
                     else if s[length(s)]='0'
                             then writeln('DANGEROUS')
        end;
end.