A simple spam filter written in Common Lisp (taken from PCL by Peter Seibel)