改用 Scheme 编写，编译器选择 Petite Chez Scheme