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