                                     (let [potential-xpath xpath
                                           potential-score (reduce
                                                            (fn [acc an-info]
-                                                             (+ acc (:num-chars an-info)))
+                                                             (+
+                                                              acc
+                                                              (:num-chars an-info)))
                                                            0
                                                            info)
                                           potential-hrefs (reduce

                                                            set)]
                                     [xpath (filter
                                             (fn [{_ :node href :href _1 :text}]
                                               (not (some #{href} template-links)))
                                             infos)]))
                                 xpaths-hrefs-text)


     (state-action page-src url template-removed []))

  ([page-src url template-removed blacklist]
     (let [proc-pg              (dom/html->xml-doc page-src)

           ; xpaths nodes and associated anchor-text
           xpaths-hrefs-text    (dom/xpaths-hrefs-tokens-no-position proc-pg
                                                                     url
                                                                     blacklist)

           template-removed     (map
                                 (fn [[xpath infos]]
