(add-to-load-path (dirname (current-filename)))

(import
    (srfi srfi-41)
    (extra-functional)
    (my-streams))



(define base (stream-from 2))



(define-stream (sieve input)
    (stream-cons
        (stream-car input)
        (sieve (stream-ordered-diff
                    (stream-cdr input)
                    (stream-map ((curry *) (stream-car input)) input)))))



(define euler (sieve base))