3B.scm corrected