{
Here's an example where i have a spam mailbox and my inbox.
I train a filter on the spam and the first half of my inbox,
and then filter my inbox do a spamReport on the spam.
}
;;; Training Spam examples:
(length (set! spam (readMessages "//ale/d/eudora/oldspam.mbx")))

;;; My Inbox:
(length (set! inbox (readMessages  "//ale/d/eudora/In.mbx")))

;;; Training good examples.
(length (set! goodMessages (take (/ (length inbox) 2) inbox)))

(define FILTER (plan.Filter.))

(learn FILTER spam goodMessages)

;;; Filtering
;;; Find spams in inbox.
(time (length (set! spams (filter (lambda (m)
			      (display ".")
			      (> (spammyness FILTER m) 0.99)) inbox))) 1)

(for-each (lambda (m) (spamReport FILTER m)) spams)