(define (stream-limit stream tolerance)
  (let ([s1 (stream-car stream)]
        [s2 (stream-car (stream-cdr stream))])
    (if (< (abs (- s2 s1)) tolerance)
        s2
        (stream-limit (stream-cdr stream) tolerance))))