Update p47.lisp