Var S:string;
N,i:integer;
Begin
WriteLn('Ââåäè ñòðîêó');
ReadLn(S);
For i:= 1 to Length(S) do
 if S[i]='f' then N:=N+1;
WriteLn(N)
End.