cleave>quot ( seq -- quot )

Vocabulary
combinators

Inputs
seqan object
Outputs
quotan object
Definition
USING: kernel sequences ;
IN: combinators
: cleave>quot ( seq -- quot )
[ [ keep ] curry ] map concat [ drop ] append [ ] like ;