%
% stack: builder node
%
_\
"jsphlist " count & &" " log)(
%
% start with first child of the code group
%
dup Tree._First
{
%
% stack: builder code-group current-code
%
 {
  dup Tree._Text &; ^4) tuck
%
% stack: builder code-group current-code
%
  Tree.EndOf ?
 } loop
 pop
} if
%
% stack: builder code-group 
%
pop

%
% stack: builder
%
"Endlist " count & &" " log)(