   (let [raw-spam (read-mails spam-dir)
         raw-ham (read-mails non-spam-dir)
         dictionary (->> (concat raw-spam raw-ham)
-                        (pmap #(split % #" "))
+                        (map #(split % #" "))
                         (apply concat)
                         frequencies
                         (remove (fn [[k v]] (< (count k) 2)))

  [dir model]
  (println (str "Testing " dir " ..."))
  (let [results (->> (read-mails dir)
                     (pmap #(classify % model))
                     frequencies)]
    (println (str "Classified as spam: " (or (get results true) 0)))
    (println (str "Classified as nonspam: " (or (get results false) 0)))


(comment

  (time (->> (train "data/spam-train" "data/nonspam-train")
             (test-mails "data/spam-test")
             (test-mails "data/nonspam-test")
             :done))

  )
