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