(defn add-new-child! [db-ref parent-id title]
  (d/transact!
   db-ref
   [{:db/id -1 :entry/title title}
    {:db/id parent-id :entry/children -1}]))

(def schema
  {:entry/children {:db/valueType :db.type/ref
                    :db/cardinality :db.cardinality/many}})

(let [schema {:entity/children {:db/cardinality :db.cardinality/many
                                :db/valueType   :db.type/ref}}
      db     (-> (d/empty-db schema)
                 (d/db-with [{:db/id           -1
                              :entity/title    "Hello"
                              :entity/children #{-2}}
                             {:db/id        -2
                              :entity/title "child A"}
                             {:db/id            -3
                              :entity/title     "child B"
                              :entity/_children -1}]))]
   (d/pull db '[*] 1))