关于#scheme#的问题，如何解决？(语言-lisp)

在sicp的书上实现了递归法的sum,想问下迭代法该怎么写?