%
% remove lookup entry
%
% stack: lookup-text lookup-item
%
empty !sumx
nospc$ ^"|" seq121
{
%
% stack: seek lookup-text seek
%
 found?
 {
%
% stack: seek lookup
%
  second slice
%
% stack: seek above-item remain-lookup
%
% must be separator after name
%
  dup 1 left asc 0x21 lt
  {
%
% proper separator after lookup seek str
%
% stack: seek above-item remain-lookup
%
   "|" slice
%
% stack: seek above-item item-cont after-next
%
   notnull
   {
    ^"|"
   } if
%
% stack: seek above-item item-cont after-next
%
   pop2nd
   exch trim &; ^:sumx
   trim &;
   second
   false
  }
  {
%
% matches left part but is not the lookup item
%
% stack: seek above-item remain-lookup
%
   exch &3 ^:sumx
   second
   false
  } ifelse
 }
 {
%
% no lookup item or partial
%
% stack: seek lookup-text
%
  pop2nd
  true
 } ifelse
 ?
} loop
^_sumx
%
% stack: adj-lookup-text
%