Solve the reimplement iterate problem in 4clojure.com.