%
% stack: search-obj var-name starting
%
all\# second gt
{
 !\
 0
 {
%
% stack: [ . . . ] search-obj var-name counter
%
  _Values.Flags
  fourth fourth *findvalx not ?
  + _\ second 3 add 1 roll
  _\ + !\
 } loop
%
% stack: [ . . . ] search-obj var-name list-count
%
 pop2&3
}
{
 pop2
 0
} ifelse
%
% stack: [ . . . ] list-count
%