modify q02.005.scm