let get_param_mark ff n = try match FctMarks.get_sgn ff with None -> Marks.bottom_mark | Some sgn -> Marks.get_input_mark sgn n with PdgIndex.NotFound -> Marks.bottom_mark