\ tail-recurse 05.10.2 NAB
\ Provides a tail-recurse word that
\ will cause an unconditional branch
\ back to the beginning of a word.

variable topcs 
: :  :  cshere topcs ! ; 
: tail-recurse  topcs @ postpone again ; immediate