Solve the global take while problem in 4clojure.