var a,b,n :word;
    
begin
while not eof do
begin
 readln(a,b,n);
 if n= a then writeln('fill A') else
   if n=b then writeln ('fill B') else
     if n=(b-a) then begin writeln ('fill B');writeln('pour B A');end else
       if (n=(2*b-2*a)) then begin writeln ('fill B');writeln('pour B A');
        writeln('empty A');writeln('pour B A');writeln('fill B');
	writeln('pour B A');end else
          begin
	    writeln ('fill A');writeln('pour A B');
	    writeln ('fill A');writeln('pour A B')
          end;
 writeln('success');writeln; 
end;
end.