        (merge-with concat acc {:bodies  (utils/random-take
                                          10
                                          stuff)
-                               :visited (utils/random-take
-                                         10
+                               :visited (map
+                                         :href
                                          hrefs-and-texts)})))
    {}
    xpaths-and-urls))

                            new-corpus))))))))

(defn crawl-random
    ([entry-point leaf? extract stop?]
     (crawl-random entry-point 1 leaf? extract stop?))
  
  ([entry-point lookahead leaf? extract stop?]

                       (catch NullPointerException e nil))]
                 (do
                   (recur (concat (rest url-queue) new-bodies)
                          (clojure.set/union visited
                                             (set [url])
                                             (set new-visited))
                          lookahead
                          leaf?
                          extract
