     
     page (
       if (= (count (filter #(= (compare (% :reference) reference) 0 ) @stories )) 0)
-        (slurp (URLDecoder/decode reference))
+        (slurp (str "http://zerohedge.com" (URLDecoder/decode  reference)) )
         
     )
     listofintro

(defn get-introduction [source]
   ( let [
       reference (str 
            (URLEncoder/encode (str "http://zerohedge.com"
              (subs source 
                (+
                  (.indexOf source "href=\""

          ; body
          (subs page 
            (+ (.indexOf page "<div class=\"content\">" 0) 21 )
            (+ 
               (if ( = (.indexOf page "<div class=\"taxonomy\">" (.indexOf page "<div class=\"content\">" 0)) -1) 
		              (.indexOf page "<div class=\"node-full_links\">" (.indexOf page "<div class=\"content\">" 0) )
                  (.indexOf page "<div class=\"taxonomy\">" (.indexOf page "<div class=\"content\">" 0) ) 
               ) 0 )
          )
        )
