var reg: string;
    a: array[1..5] of integer;
    i,j: integer;
begin
   for i:=1 to 5 do
      begin
         readln (reg);
         for j:=1 to (length(reg)-2) do
            if (reg[j]='F') and (reg[j+1]='B') and (reg[j+2]='I') then a[i]:=1;
      end;
  j:=0;
  for i:=1 to 5 do
     if a[i]=1 then
        begin
           write (i,' ');
           j:=1;
        end;
     if j= 0 then writeln('UTEKO');
end.