program avion;
var nums, titl : string[10];
    i, f  : integer;

begin
    for i := 1 to 5 do begin
        readln(titl);
        if pos('FBI', titl) <> 0 then
            nums := nums + chr(48+i) + ' ';
    end;
    if nums <> '' then writeln(nums)
    else writeln('UTEKO');
end.