4quad* ( g h i j k l m n o t u v w x y z p q r s -- )
Extra combinators

Prev:	3quad* ( k l m n o t u v w x y z p q r s -- )
Next:	quad@ ( w x y z quot -- )

Vocabulary
combinators.extras

Inputs

g	an object
h	an object
i	an object
j	an object
k	an object
l	an object
m	an object
n	an object
o	an object
t	an object
u	an object
v	an object
w	an object
x	an object
y	an object
z	an object
p	a quotation with stack effect ( k l m n -- ... )
q	a quotation with stack effect ( o p q r -- ... )
r	a quotation with stack effect ( s t u v -- ... )
s	a quotation with stack effect ( w x y z -- ... )

Outputs
None

Word description
Applies p to g, h, i and j, then applies q to k, l, m and n, then applies r to o, t, u and v, and finally applies s to w, x, y and z.

Definition

USING: generalizations kernel ;

IN: combinators.extras

: 4quad* ( g h i j k l m n o t u v w x y z p q r s -- )
    [ [ [ 12 ndip ] dip 8 ndip ] dip 4dip ] dip call ; inline