program avion;

var
   n, i, j, k : integer;
   z : char;
   reg : array[1 .. 5] of string[10];
   isp : array[1 .. 5] of integer;

begin
   repeat
      Inc (n);
      repeat
         read (z); reg[n] := Concat(reg[n], z);
      until eoln;
      readln;
   until eof;
   for i := 1 to n do
      if Pos('FBI', reg[i])>0 then Inc (k);
   if k=0 then
      writeln ('UTEKO')
   else begin
      for i := 1 to n do
         if Pos('FBI', reg[i])>0 then begin
            Inc (j); isp[j] := i;
         end;
      for i := 1 to j-1 do write (isp[i], ' ');
      writeln (isp[j]);
   end;
end.