program avion;
uses crt;
var reg:array[1..5] of string;
    br,i:integer;
    dane:boolean;

begin
 for i:=1 to 5 do readln(reg[i]);

 for i:=1 to 5 do
  if pos('FBI',reg[i])>0 then begin
   if dane=false then begin write(i); dane:=true; end
   else write(' ',i);
 end;

 if dane=false then writeln('UTEKO');

end.