.: .chrs  s= 0=; s2 @ cfa |} ;
.: chrs  dup wbuf { .chrs 2 } ;
.: link  .w@ lmask .0=;; - ;
.: words  dup { nfa chrs 1 } link me [
.: voc  .0=; lfa { words 0 } ;
.: vocs  .@ voc drop 8+ @ .0>me ;
: find  bl word
: .find  path @ {| vocs 0 |} ;