   (dc/quick-check 1000 anti-symmetric-prop)
   (dc/quick-check 1000 total-prop)
   (dc/quick-check 100 (building-prop gen-assoc))
-  (dc/quick-check 1000 (building-prop gen-action))
+  (dc/quick-check 100 (building-prop gen-action))
   (dc/quick-check 100 (lookup-prop gen-action))
   (dc/quick-check 100 iterator-prop)
+
 
   (defn f []
     (time

                  (do
                    (set! end? true)
                    nil))
                (do
                  (set! ix (.seek node key ix))
                  (let [ix-key (aget (.-keys node) ix)]
                    (if (and (not (nil? (.-children node))) (lt key ix-key))
                      (do
                        (set! node (aget (.-children node) ix))
                        (set! ix 0)
                        (recur))
                      #js [(aget (.-keys node) ix) (aget (.-vals node) ix)])))))))))

(defn iterator [tree]
  (loop [node (.-root tree)]

              (set! ix 0)
              #js [(aget (.-keys node) ix) (aget (.-vals node) ix)]))))
  (seek [this key]
        (loop []
          (when (false? end?)
            (let [upper (.-upper node)]
              (if (lt upper key)
                (if (instance? Node (.-parent node))
                  (do
                    (set! ix (.-parent-ix node))
