一个ansistring加简单的搜索，一遍AC，题目较水。
var
st:ansistring;
n:integer;
procedure try(n:integer; ss:ansistring);
var
i,j:integer;
s:char;
begin
i:=pos('0',ss);
j:=pos('1',ss);
if i=0 then s:='I' else
if j=0 then s:='B' else
s:='F';
if n>1 then
begin
n:=n div 2;
try(n,copy(ss,1,n));
try(n,copy(ss,n+1,n));
end;
write(s);
end;
begin
readln(n);
n:=1 shl n;
readln(st);
try(n,st);
writeln;
end.