                                       {:url h
                                        :src-xpath (cons xpath src-xp)
                                        :src-url url
-                                       :src-nav-num (cons (if body l-score 0) src-nav-num)})
+                                       :src-nav-num (cons (if body score 0) src-nav-num)})
                                     hrefs)))
                                 mined))))
                              :url)
-                            (catch Exception e []))]
+                            (catch Exception e []))
+
+              mined-obs-links (if-not leaf?
+                               (/ (- (count obs-links)
+                                     (count mined-links))
+                                  (count obs-links))
+                               :leaf)
+
+              _ (println :retained mined-obs-links)]
           (cond
            (and (not leaf?) (seq mined-links))
            (recur (concat (rest queue)

                               concat
                               (map
                                (fn [{xpath :xpath
                                     l-score :score
                                     hrefs :hrefs
                                     text  :texts}]
                                  ;; take only a 25 % sample from here.

                                      :src-url url
                                      :src-nav-num (cons (if body l-score 0) src-nav-num)})
                                   hrefs))
                                observed))))
                            :url)
                           (catch Exception e []))              
              
