Update 04transpose.scm