SYMBOLS: mark1 mark2 ; : move-until ( seq1 seq2 -- seq1 seq2 ) [ unclip ] dip swap dup { { mark1 [ drop ] } { mark2 [ drop ] } [ suffix move-until ] } case ;