: find  bl word (find) ;
: (find)  path @ {| vocs 0 |} ;
.: vocs  .@ { words 1 } 8+ @ .0>me ;
.: words  dup 2+ { chars 1 } end?; me [
.: end?;  .w@ .0=;; - ;
.: chars  setup { (chars) 3 } ;
.: setup  dup wbuf .c0 1+ ;
.: (chars)  check nudge .0>me gotit ;
.: check  s2 @ c@ mask s1 @ c@ =; ;;
.: nudge  s2 1+! s1 1+! 1- ;
.: gotit  s2 @ align |} ;
.: align  3 + 3 not and ;
.: mask  x:7F and ;