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