13.6.2 编写S函数