      (for [[condition id] root-conditions]
        [id (hash production)]))))
 
-(defn get-insertions 
+(defn- get-insertions 
   "Returns the insertions done by a production."
   [production]
   (if-let [rhs (:rhs production)]

           [hiccup.core :as h]
           [clojure.string :as string]))

(defn get-productions [sources]
  (mapcat
   #(if (satisfies? eng/IRuleSource %)
      (eng/load-rules %)
      %)
   sources))

(defn condition-to-html 
  "Returns an HTML-based description of the given condition. "
  [condition]
  (h/html 

          conditions
          (range)))))

(defn- production-to-dot [production]
  (let [condition-to-ids (condition-to-id-map production) 

        ;; Identify root conditions by first finding all children,
