4cleave>quot ( seq -- quot )


Vocabulary
combinators

Inputs
seqan object


Outputs
quotan object


Definition
USING: kernel sequences ;

IN: combinators

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