"text" was copy - pasted from http://www.math-chocolate-circus.com/the-conservation-of-guilt. Below is a less selective alternative.

text=Import["http://www.math-chocolate-circus.com/the-conservation-of-guilt"];

WordCloud[DeleteStopwords@text, ImageSize->720]