2quad* ( o t u v w x y z p q r s -- )
Extra combinators

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

Vocabulary
combinators.extras

Inputs

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 ( s t -- ... )
q	a quotation with stack effect ( u v -- ... )
r	a quotation with stack effect ( w x -- ... )
s	a quotation with stack effect ( y z -- ... )

Outputs
None

Word description
Appliesp to s and t, then applies q to u and v, then appliesr to w and x, and finally applies s to y and z.

Definition

USING: generalizations kernel ;

IN: combinators.extras

: 2quad* ( o t u v w x y z p q r s -- )
    [ [ [ 6 ndip ] dip 4dip ] dip 2dip ] dip call ; inline