                  actionss (gen/not-empty (gen/vector (gen/vector (gen-action key-len))))
                  movements (gen/vector (gen-movement key-len))]
                 false))
+
 (comment
   (dc/quick-check 1000 (least-prop 1))
   (dc/quick-check 1000 (least-prop 2))

                  mid-key (aget keys mid)]
              (if (key-lt mid-key key)
                (recur (+ mid 1) hi)
                (if (== mid-key key)
                  mid
                  (recur lo (- mid 1))))))))
  (assoc! [this key val max-keys]
          (let [ix (.seek this key 0)]
            (if (== key (aget keys ix))
              (do
                (aset vals ix val)
                true)

                        (set! ix 0)
                        (recur))
                      (if (or (and (identical? node start-node) (== ix start-ix))
                              (key= key (aget (.-keys node) ix))
                              (nil? (.-children node))
                              (let [lower (.-upper (aget (.-children node) ix))]
                                (key-lt lower key)))
