            xpaths-scored        (score-actions xpaths-tokenized)
            mean-richness        (/ (apply + (map second xpaths-scored))
                                    (count xpaths-scored))
+
+           ; return xpaths and scores of items who clocked above the
+           ; mean richness of the webpage
+           
            decision             (filter
                                  (fn [[xpath score]]
                                    (>= score mean-richness))
                                  (reverse
                                   (sort-by second xpaths-scored)))
+
+           ; links at the chosen XPaths
            decision-links       (flatten
                                  (map
                                   (fn [[a-decision score]]

                                     (in-host-xpaths-hrefs a-decision)))
                                  decision))

           decision-scores      (/ (reduce
                                    (fn [acc [a-decision score]]
                                      (+ acc score))
                                    0
                                    decision)
                                   (count decision))]
       {:links decision-links
        :action-score decision-scores
        :xpaths (map first decision)})))

(defn pagination?
  "Args:

        :action-score (xpaths-scored decision)})))

(defn extract-above-average-richest
  "Extract above-average richness XPaths"
  ([page-src url]
     (extract-above-average-richest page-src url (set [])))

