reformat lists-ch3.lisp