What does it mean to make a word cloud out of a word square..
wordsquare[s_String] :=
Module[{n = StringLength[s], c = {{Characters[s]}}, w, m = 1},
w = Characters /@
Select[WordList[], StringMatchQ[#, Repeated[_, {n}]] &];
NestWhile[computewords[w, n, m++, #] &, c, m < n &]]
computewords[w_, n_Integer, m_Integer, c_List] :=
Flatten[
DeleteCases[
Map[Cases[w,
p : Append[#[[All, m + 1]], Repeated[_, {n - m}]] :>
Append[#, p]] &, c], {}], 1]
Table[WordCloud[wordsquare["twain"][[i]][[j]]], {i, 1,
Length[wordsquare["twain"]]}, {j, 1, 3}]
