add part progs from chapter 04, book on lisp