from practical common lisp, simple spam filter