let build_simple_node_selection ?(nd_marks=[]) mark =
  (T.CwNode, mark)::nd_marks