let
get_sgn ff =
let
fm = ff.
T
.ff_marks
in
Some
(
FI
.sgn (get_marks fm))