Update p06.scm