program recnik;
var j,k,i,n,t:integer; s:array[1..1000] of string;
f,g:text;          x,c:char;

function konkatencija(a,b:string):string;
begin
konkatencija:=a+b;
end;

procedure sort(l,r:longint);
var i,j:longint;   x,y:string;
begin
i:=l;
j:=r;
x:=s[(l+r) div 2];
repeat
 while s[i]<x do
  i:=i+1;
 while x<s[j] do
  j:=j-1;
 if i<=j then
             begin
              y:=s[i];
              s[i]:=s[j];
              s[j]:=
              y;
              i:=i+1;
              j:=j-1;
             end;
 until i>j;
 if l<j then sort(l,j);
 if i<r then sort(i,r);
end;


begin
assign(f,'recnik.in');
assign(g,'recnik.out');
reset(f);
rewrite(g);
readln(f,t);
while not eof(f) do
 begin
  readln(f,x);
 end;



k:=t mod 2;
t:=t div 2;
for i:=1 to t do
 begin
  writeln(g,'dvosmislen');
  writeln(g,'nedvosmislen');
 end;
if k=1 then writeln(g,'dvosmislen');
close(f);
close(g);
end.

