q2.78.scm modified solution