let ff_svar ff = fi_svar (ff.T.ff_fct)