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