>>558, >>563
http://uim.googlecode.com/svn/branches/r5rs/scm/util.scm
上記リンクのzipを使うと>>558のようなリストの長さが違う場合も処理できます。
http://codepad.org/j5FehpX1