%
% get the list of all values
%
_\ "*Values" do
%
% refer to the _Arching.* values
%
1 2 rot
{
 pop

 dup 9 left "_Arching." eq$
 {
  -1 left !
 }
 {
  pop2
 } ifelse

} for