%
% check for exact spec, anything besides dot next
%
% stack: specific
%
false !exact
1
{
%
% stack: specific char-idx
%
 _body third rot 0 instr
"find " count & &" " log)(
%
% stack: specific posn
%
 dup zero ?
%
% see what is before and past the specific
%

 _body
 second - 1 mid !start
 _body
 third length) third add 1 mid !end

 _start asc 32 le
 {
  true
 }
 {
  _start
  ",/:;|{[=+-(*&^%!<>?\"
  Str.Find
 } ifelse
 {
  _end asc 32 le
  {
   true
  }
  {
   _end
   ",/:;|}[]=+-()*&^%!<>?\"
   Str.Find
  } ifelse
  {
   true !exact
  } if
 } if

%
% stack: specific posn
%
 exch length rot add

} loop
%
% stack: specific char-idx
%
pop
%
% stack: specific
%