%
% stack: [ [|]token . . . ] count idx idx-word
%
second
{
%
% done parsing words when index less than 1
%
% stack: [ [|]token . . . ] count idx idx-word idx-find
%
 -
 dup unwhole ?
%
% check for a begin line token prefix
%
 dup + + index
%
% stack: [ [|]token . . . ] count idx idx-word idx-find idx-find-word
%
 "|" atleft ?
} loop
%
% stack: [ [|]token . . . ] count idx idx-word idx-find
%
% from idx down to idx-find + 1 ( or end) are the sequential word names
% if only the one name, idx-find + 1 will be same as idx
%