/ countgroup load words w@:=#:'w:0:"/a/k/w.txt" J:{(<':x)||<':|x:~^x} E:{-1_&~(-1 1+b y)'0,b:+\^x} F:{x E[x]y} / b(board) c(touch) d(letters) a:"qusevir" b:+(" zest ";" c ";"a am ";"x month ";"l pi " "i e ";"khat t ";"e roadie a ";" e r ";" sandiest " " i ";" club";" ";" ";" ") f:{$[&/^x;y;y@&y sm"?"|x]} d:+{@[x;i;:;{$[2>#r:(f[x]w@#x)[;*@:'d[x]y]F'x} W:{x@&x in w@#*x} H:{+((35*7=#z)+S[y;j]'r;y;*j;r:(W@@[a;&^a;:;]';)[k]f[,/d[y]z]x k:(#z)=#a@:j:E[a:b y](*z;*|z))} G:{$[#i@:(&(x|/':c[z]i)>x|/':""~/:d[z]i:&^b z)+\:!x;,/H[y;z]'i;()]} / brute force all rows all cols R:{,/G[x;1 W\{$[7>#a;,/(a,/:"abcdefghijklmnopqrstuvwxyz")[;x];a x]}cmb[-x]7]'!15} / 1 through 7 letters \t x@:>x:,/R'1+!7 5#x