编的一些小的scheme程序