A Haskell port of Peter Seibel's Bayesian spam filter, for pedagogic purposes