(define (stream-divisor-iter n i) (if (> (* i i) n) empty-stream (let ((d (lambda () (stream-divisor-iter n (+ i 1)) ))) (if (diviseur? i n) (cons-stream i (cons-stream (/ n i) (d))) (d) ) ))) (define (stream-divisor n) (stream-divisor-iter n 1))