uses crt;

var x,n,k:integer; rasp:string;



 procedure citire;
 var ok:boolean; p:integer;
 begin

  ok:=false;

  while (ok=false) and (k<>0) do
        begin
                           writeln;

         write('query: '); readln(p);

                                   writeln;

         write('answer ("broke","survived") : '); readln(rasp);

         if rasp='broke' then begin
                              k:=k-1;
                              writeln;
                              writeln('query ',p,' ',rasp);
                              writeln;
                              if x=p-1 then begin x:=p; ok:=true; end;
                              end

         else if rasp='survived' then begin
                                      writeln;
                                      writeln('query ',p,' ',rasp);
                                      writeln;
                                      x:=p;
                                      end;
        end;


  if (ok=true) and (k>0) then writeln('answer ',x)
     else writeln('error');

 end;


begin

 clrscr;

 write('numbers of query: '); readln(n);

 write('numbers of eggs: '); readln(k);

 x:=0;

 citire;

end.