let fct_info project kf =
    match Marks.get_marks project kf with
      | None -> []
      | Some fm -> [fm,kf]