update 004.scm