(defn gen-graph []
  (reduce #(do (println (str %2)) (flush)
             (let [srcid (str (%2 :srcid))
                   newid (str (%2 :id))
                   graph (add-node % (keyword newid) (str (%2 :score)))]
             (add-edge
                graph
                (keyword (str srcid "-" newid))
                (keyword srcid)
                (keyword newid))))
          (reduce #(add-node % %2 "")
                  (graph :width 2000 :height 1000) [:1])
          (sort-by :srcid data)))

(let [g (-> (gen-graph)
            ;(layout :radial :radius 500)
            (layout :hierarchical) ;:layer-space 300 :inlayer-space 100)
            (build))]
  (export g "tree.svg" :indent "yes"))