rewrite 020.scm