(def clustered (cluster (seq (org.apache.commons.io.FileUtils/listFiles (new java.io.File "/path/to/documents/") nil false))))

To see this tree visualized, make sure you have the visualize/ dir. Change protovis-json-file in protovis.clj to be the full path to your visualize/protovis-3.2/flare.js Then:

(def json (.replace (pof->js clustered 3) "/path/to/documents/" "")) ; 3 is a good number of interesting words to show. removing the dir path to each file keeps everything much cleaner. (write-protovis-file json)