   (doseq [x array] 
 
      (swap! pages conj 
-
-        ;{:pageid pageid :updated "jhkjh"}
         {: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 [


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

        (Integer. pageid)
        pageid
    )
    ]

    (if-let [
      page (check-page-cache-need-refresh id)
        ]


        (if-let [outarr 
                    (parse-zerohedge-page page id)
          ]
          outarr)
        (reverse(filter #(= (compare (% :pageid) id) 0 ) @pages ))
        
    )
  )
)