   IReduce
   (-reduce
     ([array f]
-       (ci-reduce array f (aget array 0) 1))
+       (ci-reduce array f))
     ([array f start]
-       (ci-reduce array f start 0)))
+       (ci-reduce array f start)))
   )
 
 (defn seq


(defn- lt- [x y]
  (js* "(~{x} < ~{y})"))

(deftype IndexedSeq [a i]
  ISeqable

  IVector
  (-assoc-n [coll n val] (-assoc coll n val))

  IReduce
  (-reduce [v f]
    (ci-reduce array f))
  (-reduce [v f start]
    (ci-reduce array start))
  )

(set! cljs.core.Vector/EMPTY (Vector. nil (array)))
