program avion;
var avio:array[1..5] of string;
    i,j:integer;
    koji,a:string;
begin
     for i:= 1 to 5 do readln(avio[i]);
     koji:='UTEKO';
     for i:=1 to 5 do for j:=1 to length(avio[i])-2 do if (avio[i,j]='F') and (avio[i,j+1]='B') and (avio[i,j+2]='I') then if koji='UTEKO' then str(i,koji)
                                                                                                                                            else begin
                                                                                                                                                      str(i,a);
                                                                                                                                                      if koji[length(koji)]<>a then koji:=koji+' '+a;
                                                                                                                                                 end;
     writeln(koji);
end.