Update p02.scm