Write a procedure stream-limit that finds
Looks fine to me.  I would only suggest changing (&gt; tol diff) to (&lt; diff tol) because it reads more like the problem specification and is easier to understand.