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