Creating a new sequence unconditionally:

collector ( quot -- quot' vec )

collector-for ( quot exemplar -- quot' vec )

Creating a new sequence conditionally:

selector ( quot -- selector accum )

selector-for ( quot exemplar -- selector accum )

2selector ( quot -- selector accum1 accum2 )