program project1;

var s:ansistring;

l,i,j,k,g:longint;

begin

readln(s);

l:=length(s);

g:=0;

for i:=1 to l-2 do

if s[i]='F'then

for j:=i+1 to l-1 do

if s[j]='B'then

for k:=j+1 to l do

if s[k]='I'then inc(g);

writeln(g);

readln;

end.