6

What is the best approach to a problem like this in Mathematica?
I can only manage this:
func[stringlist_] :=
With[{i =
Last@Flatten@
Table[DictionaryLookup[StringTake[#[[2]], n]], {n, 14}]}, {i,
StringDrop[#[[2]], StringLength@i]}] &@stringlist;
func1[string_] :=
Rest@NestWh...