 
 (defn count-text-task [extractor txt feed]
   (let [items (feed-children feed)
-        re (Pattern/compile (str "(?i" txt ))]
+        re (Pattern/compile (str "(?i)" txt))]
     (->> items
          (map extractor)
          (mapcat #(re-seq re %))

 title
 "Erlang"
 "http://feeds.feedburner.com/ElixirLang")

  (:require (clojure [xml :as xml]))
  (:require (clojure [zip :as zip]))
  (:import (java.util.regex Pattern)))

(time (let [x (future (do (Thread/sleep 5000)
                          (+ 41 1)))]
        [@x @x]))

(defn feed->zipper [uri-str]
  (->> (xml/parse uri-str)
       zip/xml-zip))

(defn normalize [feed]
  (if (= :feed (:tag (first feed)))
