%
% stack: build-str tree-val-name
%
dup \_ quoter &" !Val." ^ catcr & 
%
% stack: new-build-str
%