sub test_boggle_word {
  ($w,$n,@b)=@_;
  for(@b){push@{$h{$_}},$x++}
  @c=split'',$w;
  for(@c){return 0 if!$h{$_}}
  @l=map{$h{$_}}@c;
  $c=-1;
  $i=-1;
  my@t;
  I:while(1){
    $j=$i+1;
    $t[$j]=@t>$j?$t[$j]+1:0;
    while($t[$j]<@{$l[$j]}){
      $t=$l[$j][$t[$j]];
      $a=$t;
      $b=$c;
      ($a,$b)=($b,$a)if($a>$b);
      if($a==-1||($b-$a==1&&$b%$n>0)||($b-$a==$n-1&&$a%$n>0)||
         $b-$a==$n||($b-$a==$n+1&&$b%$n>0)){
         return 1 if$i==@l-2;
         ++$i;
         $c=$t;
         next I
      }
      ++$t[$j]
    }
    --$i;
    pop@t;
    last if$i<-1;
    $c=$i==-1?-1:$l[$i][$t[$i]]
  }
}