1(time (let [path "/usr/share/dict/american-english-insane"
2            cnt (with-open [rdr (clojure.java.io/reader path)]
3                  (count (line-seq rdr)))
4            idx (int (rand cnt))
5            word (with-open [rdr (clojure.java.io/reader path)]
6                   (nth (line-seq rdr) idx))]
7        (println (str "Word #" idx ": " word " (from " cnt " words)."))))