 
     
     ;introduction
-    ;"kjjhkhkjhjkhjk"
     (subs source 
       (+
         (.indexOf source "</a> on"


    
    ;reference
    ;"jkhjhkhkjhjk"
    (str 
      (URLEncoder/encode 
        (subs source 

  (doseq [x array] 

     (swap! pages conj 
        {:pageid id :downloaded (now) :updated (:updated x) :introduction (:introduction x) :title (:title x) :reference (:reference x) }
     )
  )
)

(defn parse-zerohedge-page [page id]
  (
    let [outarr   (take-last (- (count (map get-introduction (str/split page #"<div class=\"content-box-1\">"))) 1) 
      (map get-introduction (str/split page #"<div class=\"content-box-1\">")))
    ]
    (refresh-page-cache id outarr)
    outarr
  )
)


(defn loadPage [pageid]
  (let [
