DictionaryLookup Examples

W=Flatten[Map[(Thread[# ->DeleteCases[Nearest[DictionaryLookup["shall*"],
#,6],#]])&,DictionaryLookup["shall*"]]];
GraphPlot[W,VertexShapeFunction->({Text[Style[#2,20,Italic,
Hue[3-#1],Opacity[1]],#1,Background->White]}&),
EdgeShapeFunction->"CarvedArcArrow",EdgeStyle->Opacity[.2],
GraphLayout->"RadialEmbedding",ImageSize->500]