replace-in:useful — ordinary primitive
( to-xt from-xt n "name" -- )(
will handle the body of the named word as a sequence of cells (or tokens)
and replaces the n'th occurences of from-xt into to-xt. A negative value
will change all occurences. A zero value will not change any.