gistfile1.txt

(defn siever2 [to-sieve sieved end]
		  (if (empty? to-sieve) sieved
		      (let [f (first to-sieve)
			    r (rest to-sieve)]
			(if (> f (Math/sqrt end)) 
			  (into sieved to-sieve)
			  (siever2 (remove #(zero? (mod % f)) r) 
				  (conj sieved f)
				  end)))))
(dotrace [siever2] (siever2 (range 2 32) [] 31))