do-chain
* do-chain ( chain* -- )

execute chain
 : do-chain being @ ?dup while dup>r cell+ @execute r> repeat ;

EXTENSIONS chain ordinary primitive