(define score:score)

(while (read-line)
  (bayes-train (find-all {\S+} (current-line)) 'score))

(dolist (pair (score))
  (println (pair 0) " " (pair 1 0)))

(exit)