Update 5B.scm