Various utilities.

For heaps:

heap-members ( heap -- seq )

heap-pop-while ( heap quot: ( key -- ? ) -- values )

For deques:

slurp/replenish-deque ( ... deque quot: ( ... obj -- ... seq ) -- ... )