add temp program in ch5.lisp ,to be fixed