program avion;
var a,b,c,d,e,f:integer; st1,st2,st3,st4:string;
begin
st3:='';
for a:=1 to 5 do begin
if a=1 then st4:='1';
if a=2 then st4:=' 2';
if a=3 then st4:=' 3';
if a=4 then st4:=' 4';
if a=5 then st4:=' 5';
readln(st1);
b:=length(st1);
for c:=1 to b-2 do begin
st2:=copy(st1,c,3);
if st2='FBI' then st3:=st3+st4;
end; end;
if st3='' then writeln('UTEKO')
else writeln(st3);
end.