              url-ds (if (= pick-from :first)
                       (-> url-queue first)
                       (-> url-queue last))]
-
+         
          (utils/sayln :url url)
          (utils/sayln :src-url src-url)
          (utils/sayln :src-path (:path url-ds))

                                      {entry-point {:body (:body body)
                                                    :url entry-point
                                                    :src-url nil
                                                    :src-text nil}}
                                      (if (leaf? {:anchor-text nil
                                                  :src-url     nil
                                                  :body        (:body body)})

                                                                  (leaf? {:anchor-text (:src-text x)
                                                                          :src-url     (:url x)
                                                                          :body        (:body x)}))
                                                                 (catch Exception e nil))

                                                         :xpath-texts (if (:body x)
                                                                        (similarity/char-frequency-representation
                                                                         (similarity/page-text-xpaths
                                                                          (:body x)))
                                                                        {})}))
                                             sampled-corpus)
                                  :new-visited links-list
                                  :crawled (map :url links-and-texts)})))
