rewrite 021.scm