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