             (->> outs
                  (map
                   (fn [[k [_ opts]]]
-                    (str (:id v) "->" (:id k) "[label=" (pr-str opts) "];\n")))
+                    (str (:id v) "->" (:id k) "[label=\"" (pr-str opts) "\"];\n")))
                  (cons
                   (format
                    "%d[label=\"%d (%s)\"];\n"

%s}")
       (spit path)))

(def g (compute-graph))
(def ctx
  (async-context
   {:graph     g
    :bus-size  64

(defprotocol IGraphExecutor
  (execute! [_])
  (stop! [_])
  (notify! [_ evt])
  (include-vertex! [_ v]))

(defn simple-collect
  [collect-fn]
