 
 
 
-(def example-view (to-model
+(def example-view-small (to-model
                    "@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
 @prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
 @prefix : <http://logangilmour.com/data-binder#> .

        (doseq [onlooker onlookers] ;;end end-children
          (url-index model onlooker (+ index 1)))))))

(defn generics [model node parent-context parent-children local-part] ;;end end-children
  (let [local-context (build-context model parent-context node)

        local-context (if parent-children (merge-context local-part local-context) local-context)

        context (merge parent-context local-context)

        thing (println "\n\n1: " parent-context "\n\n2: " local-context "\n\n3: " context)

        ;; children (doall (relate-right model (prop (bind :child)) node))
        children
        (map #(generics model % parent-context nil nil)
             (rdf-seq model (get parent-context (bind :children)))) ;;TODO holy shit I'm here

        children (if parent-children (concat parent-children children) children)

        base (res (first (get-property model node (prop (bind :base)))))



         (let [url-parts (parse-uri url)
               my-part (get url-parts (- index 1))
               ;;fuck (println "Mine: " my-part " at index " index " of " url)
               my-res (res my-part)

               my-res (if my-res
