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