Yow! Loop macrosでググれ。
Comp.Lang.schemeの記事が見つかる。
それをコピペすれば解決。