2cleave>quot ( seq -- quot )

Vocabulary
combinators

Definition

USING: kernel sequences ;

IN: combinators

: 2cleave>quot ( seq -- quot )
    [ [ 2keep ] curry ] map concat [ 2drop ] append [ ] like ;