gforth-chainperform:gforth — ordinary primitive
gforth'
chainperform ( list -- )\ gforth(
)
: chainperform BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;