>>17を拾ってXlisp-statで実行してみそ
Schemeは方言がきついので貴方にScheme上で>>17のソースを
実行するのは無理。