\ dictionary search
.: _chrs  s= 0=; s2 @ cfa |} ;
.: chrs  dup wbuf { _chrs 2 } ;
.: end?;  .w@ lmask .0=;; - ;
.: words  dup nfa { chrs 1 } end?; me;
.: vocs  .@ lfa { words 1 } 8+ @ .0>me ;
: find  bl word
: _find  path @ {| vocs 0 |} ;