rewrite 014.scm