program avion;
var i,j,x:integer;
    a:array [1..5] of string[10];
begin
  for i:=1 to 5 do readln(a[i]);
  x:=1;
  for i:=1 to 5 do begin
                    j:=pos('FBI',a[i]);
                    if j<>0 then begin
                                  write(i,' ');
                                  x:=x+1;
                                 end;
                   end;
  if x=1 then write('UTEKO');
end.