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