chainperform
* chainperform ( list -- ) \ gforth

 : chainperform  BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;

gforth ordinary primitive