4tri* ( l m n o s t u v w x y z p q r -- )
Extra combinators

Prev:	3tri* ( o s t u v w x y z p q r -- )
Next:	3tri@ ( r s t u v w x y z quot -- )

Vocabulary
combinators.extras

Inputs

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

Outputs
None

Word description
Appliesp to l, m, n and o, then applies q to s, t, u, v, and finally applies r to w, x, y and z.

Definition

USING: generalizations kernel ;

IN: combinators.extras

: 4tri* ( l m n o s t u v w x y z p q r -- )
    [ 8 ndip ] 2dip [ 4dip ] dip call ; inline