Sieve Of Eratosthenes - Stream of Primes

sieve.clj

(defn theNats [init]
      (lazy-seq (cons (+ init 1) (theNats (+ init 1))))
      )

(defn sieve [nats]
      (lazy-seq (cons (first nats) (filter (fn [x] (> (mod x (first nats)) 0)) (rest nats)))
      ))

(def thePrimes (sieve (theNats 2)))