(define (perfect-numbers integers)
(stream-filter perfect?
(stream-cdr integers)))
(define (perfect? n)
(= n (sum-stream (stream-filter (lambda (x) (zero? (remainder n x)))
(stream-range 1 (+ (/ n 2) 1)))))))