(define (sieve stream)
  (stream-cons
   (stream-car stream)
   (sieve (stream-filter
           (lambda (x)
             (not (= 0 (modulo x (stream-car stream)))))
           (stream-cdr stream)))))
(define primes (sieve (integers-from-n 2)))