%
% get the list of all values
%
_\ @^*Values
%%% "getvalues" text!bin
%%% stop
execstr
"treeruneA" log)(
%
% refer to the _Arching.* values
%
1 2 rot
{
 pop
"treeruneB" log)(
 dup 9 left "_Arching." eq$
 {
"treeruneC" log)(
  -1 left !
 }
 {
  pop2
 } ifelse

} for
"treeruneD" log#