(defn take-tweets [n]
  (take n (map read-json
               (line-seq (reader
                          (get-stream))))))

(defn tweet-text [n]
  (map #(get % "text")
       (take-tweets n)))

(defn search-text [s coll]
  (let [regex-pattern (re-pattern (str s))]
    (filter #(re-find regex-pattern %) coll)))