              (compute-downloaded-records)
              "\n")
         :append true)
-  (let [data (read-dataset "disqus_stats.csv")
-        dates (sel data :cols 0)
-        cnt (sel data :cols 1)]
-    (save (time-series-plot dates cnt :y-label "Threads List Downloaded")
-          "/bos/www/htdocs/spalakod/disqus/disqus_thread_list.png")))
+  (do (let [data (read-dataset "disqus_stats.csv")
+            dates (sel data :cols 0)
+            cnt (sel data :cols 1)]
+        (save (time-series-plot dates cnt :y-label "Threads List Downloaded")
+              "/bos/www/htdocs/spalakod/disqus/disqus_thread_list.png"))
+      (spit "disqus_samples.html" (generate-samples))))

     0
     stats-files)))

(defn -main
  [& args]
  (spit "disqus_stats.csv"

  "Read stats + make a graph"
  (:gen-class :main true)
  (:require [clj-time.core :as t]
            [clj-time.coerce :as c]
            [clojure.java.io :as io])
  (:use [incanter core stats charts io]))

(defn compute-downloaded-records
