Vocabulary
kernel

Inputs
xan object
yan object
zan object
quota quotation with stack effect ( obj -- ... )


Outputs
None

Word description
Applies the quotation to x, then to y, and finally to z.

Examples
The following two lines are equivalent:
[ p ] tri@ [ [ p ] dip p ] dip p

The following two lines are also equivalent:
[ p ] tri@ [ p ] [ p ] [ p ] tri*


Definition

: tri@ ( x y z quot -- ) dup dup tri* ; inline