begin chap2 sicm and chap3 common lisp