 (defn relator [statement model resource]
 
   (let [binder (.getURI (.getPredicate statement))]
-    (if (= binder (db :binds))
+    (if (= binder (bind :object))
       (iterator-seq (.listResourcesWithProperty model (prop (.getURI (.asResource (.getObject statement)))) resource ))
       (iterator-seq
        (.listObjectsOfProperty model resource


(defn qbuild [inf uri]
  (let [root (.asResource (.getObject (.getProperty inf
                                                        (res (:root db))
                                                        (prop (:haschild db)))))
        init (qb root inf uri)

        numbered (loop [loc (z/vector-zip (flatten-seq init))

  rdf:type w:column8 ;
  dc:title \"Person\" ;
  dc:description \"A person\" ;
  bind:rank 2 .

ex:person-container bind:child ex:person-name-container , ex:person-age ,  ex:person-deleter .

ex:person-deleter rdf:type w:deleter ;
                  bind:subject rdf:type ;
                  dc:title \"Remove\" ;
                  bind:rank 3 ;
                  dc:description \"Permanently delete a person from the database\" .

ex:person-name-container
  bind:child ex:person-name ;
  dc:title \"thing\" ;
  dc:description \"stuff\" ;
  rdf:type w:h1 .

ex:person-name rdf:type w:text-field ;
               bind:rank 1 ;
               bind:subject ont:name ;
               dc:title \"Name\" ;
               dc:description \"The name of a person\" .

ex:person-age rdf:type w:text-field ;
              bind:rank 2 ;
              bind:subject ont:age ;
              dc:title \"Age\" ;
              dc:description \"The age of a person\".

