%
% stack: [ [|]token . . . ] count idx idx-word
%
pop
dup + -1 roll pop
%
% we remove the label, reduce count, compensate for
% later decrement, i.e., stay same ordinal in idx,
% no more word content
%
exch - exch +
empty