let build_data_dpds_selection ?(nd_marks=[]) mark =
  (T.CwDataDpds, mark)::nd_marks