nf=Nearest[DictionaryLookup[]]

Nest[Flatten[Thread[#->nf[#,3]]&/@(Last/@#)]&,{""->"fish"},3]

GraphPlot[%,VertexLabeling->True]