latest.clj

(ns scratch.core
  (require [clojure.string :as str :only (split-lines join)]))

(defn sieve [s]
  (cons (first s)
        (lazy-seq (sieve (filter #(not= 0 (mod % (first s)))
                                 (rest s))))))
(defn nth-prime [n]
  (last (take n  (sieve (cons 2 (iterate (partial + 2) 3))))))

(defn print-primes [[x & xs]]
  (prn x)
  (if (seq xs)
    (recur xs)))

(let [input "2\n3\n6"
      ranks (rest (map read-string (str/split-lines input)))
      primes (map nth-prime ranks)]
  (print-primes primes))