reach ( w x y z -- w x y z w )


Vocabulary
kernel

Inputs
wan object
xan object
yan object
zan object


Outputs
wan object
xan object
yan object
zan object
wan object


Definition

: reach ( w x y z -- w x y z w ) [ pick ] dip swap ; inline