              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)})

  ([entry-point leaf? extract stop? build-model]
     (let [body           (do (utils/download-with-cookie entry-point)
                              (utils/download-with-cookie entry-point))
           xpath-texts    (if (:body body)
                            (similarity/char-frequency-representation
                             (similarity/page-text-xpaths
                              (:body body)))
                            {})
           body-queue-ele {:url  entry-point
                           :body (:body body)
                           :xpath-texts xpath-texts}]
       (crawl-with-estimation-example [body-queue-ele]
                                      [entry-point]
                                      leaf?
