Update 3B.scm