   (-seq [string] (prim-seq string 0))
 
   ICounted
-  (-count [s] (.-length s))
+  (-count [s] (alength s))
 
   IIndexed
   (-nth

(set! cljs.core.HashMap/EMPTY (HashMap. nil 0 (js-obj) 0))

(set! cljs.core.HashMap/fromArrays (fn [ks vs]
  (let [len (.-length ks)]
    (loop [i 0, out cljs.core.HashMap/EMPTY]
      (if (< i len)
        (recur (inc i) (assoc out (aget ks i) (aget vs i)))

      nil
      (let [editable (.ensure-editable inode e)
            earr     (.-arr editable)
            len      (alength earr)]
        (set! (.-bitmap editable) (bit-xor bit (.-bitmap editable)))
        (array-copy earr (* 2 (inc i))
                    earr (* 2 i)
