Rewriting AIMA's common lisp codes in Scheme (or rather Racket I suppose).