let build_ctrl_dpds_selection ?(nd_marks=[]) mark =
  (T.CwCtrlDpds, mark)::nd_marks