%
% find exact items in values
%
% stack: value val-name
%
_\ -1
_Find.NameOfValue
_Find.CaseInsens or
%
% stack:
%  search-text
%   value-name
%    start-index
%     end-index
%      match-flags
%
@^Find
%
% stack: next-found-index
%
dup whole
dup
{
 exch !\
}
{
%
% no value of exact match
%
 pop2nd
} ifelse
%
% stack: found
%