 
 (deftraced notebook! [index x] [x]
   (check (= :notebook (:type x))
+         (id! index (:id x))
          (sequential? (:pages x))
          (every? #(page! index (get index %)) (:pages x))))
 


(deftraced page! [index x] [x]
  (check (= :page (:type x))
         (sequential? (:args x))
         (every? #(page-arg! index (get index %)) (:args x))
         (sequential? (:steps x))


(def example-b
  {"example_b" {:type :notebook
                :id "example_b"
               :pages ["root"]}
   "root" {:type :page
           :id "root"
           :args ["x"]
           :steps ["result"]}
   "result" {:id "result"
