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

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


(comment

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

  )
