(runs) ( runs n seq -- runs n )


Vocabulary
tools.completion

Definition
USING: kernel math sequences ;

IN: tools.completion

: (runs) ( runs n seq -- runs n )
[
[
2dup number=
[ drop ] [ nip V{ } clone pick push ] if 1 +
] keep pick last push
] each ;