W3:system"wget -qO- http://www.yak.net/kablooey/scrabble/3letterwords.html|grep ''|cut -d'>' -f2|cut -d'<' -f1" W:system"wget -qO- http://www.scrabble.org.au/words/fours.htm" W4:first each"<"vs'W{x[0]+til x[1]-x 2}raze 1 -1 1+1 -1 1#\:where W like"*

*" W:system"wget -qO- http://www.poslarchive.com/math/scrabble/lists/common-5.html" W:(1+first where W like"*

*")_W
W5:upper -1_" "vs first"<"vs raze W,'" "

graph:{W:(W3;W4;W5)@-3+l:count x:string x;update p:`$x from flip[enlist[`c]!(`$enlist distinct raze W where each W like/:x^/:neg[til l]rotate'l#enlist l$"* ")]}

ladder:{[s;e]
 `G set select from graph[s]where p<>c;
 while[not e in G`c;{G,:select from graph[x]where not c in distinct raze value flip G}each exec c from G where not c in exec p from G];
 reverse raze over(exec p by c from G)scan e}
 
\
/ http://interactivepython.org/courselib/static/pythonds/Graphs/graphbfs.html
ladder[`FOOL;`SAGE]
/ http://blog.wolfram.com/2012/01/11/the-longest-word-ladder-puzzle-ever/
ladder[`BEST;`MATH]
/ http://en.wikipedia.org/wiki/Word_ladder
ladder[`COLD;`WARM]
/ http://books.google.com/books?id=JkQCAAAAQAAJ&dq=charles%20dodgson&pg=PP1#v=onepage&q&f=false
ladder[`HEAD;`TAIL]
/ mlp prognosis
ladder[`MARK;`FAIL]

/ http://thinks.com/puzzles/doublets.htm
ladder[`MILK;`PAIL]
`MILK`MILL`PILL`PALL`PAIL
ladder[`WELL;`DONE]
`WELL`DELL`DOLL`DOLE`DONE
ladder[`MICE;`RATS]
`MICE`RICE`RACE`RATE`RATS
ladder[`CAMP;`SITE]
`CAMP`SAMP`SAME`SATE`SITE
ladder[`INK;`PEN]
`INK`INN`ION`DON`DEN`PEN
ladder[`OIL;`GAS]
`OIL`AIL`AAL`GAL`GAS
ladder[`FISH;`BIRD]
`FISH`BISH`BISK`BIRK`BIRD
ladder[`FIRE;`HEAT]
`FIRE`HIRE`HERE`HERD`HEAD`HEAT
ladder[`HAND;`FOOT]
`HAND`FAND`FOND`FOOD`FOOT
ladder[`FOUR;`FIVE]
`FOUR`FOUD`FOND`FIND`FINE`FIVE
ladder[`DEAD;`LIVE]
`DEAD`LEAD`LEND`LIND`LINE`LIVE
ladder[`TEARS;`SMILE]
`TEARS`SEARS`SPARS`SPARE`SPIRE`SPILE`SMILE
ladder[`GREEN;`BROWN]
`GREEN`GREES`BREES`BREWS`BROWS`BROWN
ladder[`SLEEP;`DREAM]
`SLEEP`BLEEP`BLEED`BREED`DREED`DREAD`DREAM
ladder[`ELM;`OAK]
`ELM`ELF`EFF`OFF`OAF`OAK
ladder[`ONE;`TWO]
`ONE`ONO`OHO`THO`TWO
ladder[`BLACK;`WHITE]
`BLACK`CLACK`CLICK`CHICK`CHINK`CHINE`WHINE`WHITE
ladder[`BREAD;`TOAST]
`BREAD`BREAK`BLEAK`BLEAT`BLEST`BLAST`BOAST`TOAST
ladder[`FLUTE;`CELLO]
`FLUTE`FLITE`FLITS`FLATS`FEATS`FELTS`CELTS`CELLS`CELLO
ladder[`LINEN;`SHEET]
`LINEN`LIKEN`LIKER`SIKER`SAKER`SAYER`SHYER`SHEER`SHEET