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 Not_found -> Marks.bottom_mark