USING: sequences kernel combinators tools.test ; IN: bench SYMBOLS: mark1 mark2 ; : move-until ( seq1 seq2 -- seq1 seq2 ) [ unclip ] dip swap dup { { mark1 [ drop ] } { mark2 [ drop ] } [ suffix move-until ] } case ; [ { } { 1 2 } ] [ { 1 2 mark1 } { } move-until ] unit-test [ { } { 1 2 } ] [ { 1 2 mark2 } { } move-until ] unit-test