let
add_node_to_select select (node,z_opt) m =
add_to_select select (mk_select_node ~z_opt node) m