BLIMP PASCAL

Var    m,n,d:longint;
    s:string;

procedure xuli;
var    i:longint;
begin
    readln(n);
    d:=0;
    for i:=1 to n do
       begin
           readln(s);
           if pos('FBI',s)>0 then
          begin
              write(i,' ');
              inc(d);
          end;
       end;
    if d=0 then write('GO');
end;

begin
    assign(input, 'blimp.inp');reset(input);
    assign(output, 'blimp.out');rewrite(output);
    xuli;
    close(input);close(output);
end.