program PascalGuru;
var i:integer;
    f:text;
    s:string;
 
function estinet(s:string):boolean;
var j,p:integer;
    x:string;
    b:boolean;
begin
j:=0;
b:=false;
repeat
inc(j);
p:=pos(' ',s);
x:=copy(s,1,p-1);
if p=0 then x:=s;
{x - слово}
if (x[1]='р') and (x[length(x)]='а') then b:=true;
delete(s,1,p);
until p=0;
 
estinet:=b;
end;
{----------------------------}
begin
assign(f,'fail.txt');  reset(f);
i:=0;
while not eof(f) do
      begin
      readln(f,s);
      inc(i);
      if estinet(s) then write('V ',i,' esti') else write('V ',i,' net');
      writeln;
      end;
 
 
close(f);
readln;
end.