%
% stack: [ [|]token . . . ] count idx idx-word idx-find
%
pop2nd
%
% stack: [ [|]token . . . ] count idx idx-find
%
exch -1 third
{
 + -1 roll pop
%
% stack: [ [|]token . . . ] count idx-find
%
% we remove the word, reduce count
%
 exch - exch
} for
%
% compensate index for later decrement
%
+
empty
%
% stack: [ [|]token . . . ] new-count new-idx empty-word
%