var a,b,n :word;
label   konec;
    
begin
while not eof do
begin
 readln(a,b,n);
 if n=a then begin writeln('fill A');goto konec; end;
 if n=b then begin writeln('fill B');goto konec; end;
 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');goto konec; end;
 if n=(((b div a)+1)*a-b) then begin writeln ('fill A');writeln('pour A B');
    writeln ('fill A');writeln('pour A B');goto konec; end;
 if n mod a = 0 then 
  begin b:=0;
  repeat 
    writeln('fill A');writeln('pour A B');
    b:=b+a;
  until b=n;
  goto konec;
  end;
 begin
   writeln('fill B');
   repeat
    writeln('pour B A');
    b:=b-a;
    writeln('empty A');
   until b=n;
   goto konec;  
 end;  
konec:	  
 writeln('success');writeln; 
end;
end.