var a,b,n :word; label konec, sem, tam; 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) and ((b-n)mod a = 0) then if (((b-n) div a)>(n div a)) then goto sem else goto tam; if (n mod a = 0) then begin sem: b:=0; repeat writeln('fill A');writeln('pour A B'); b:=b+a; until b=n; goto konec; end; if ((b-n)mod a = 0) then begin tam: 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.