     ([array f]
        (ci-reduce array f))
     ([array f start]
-       (ci-reduce array f start)))
-  )
+       (ci-reduce array f start))))
 
 (defn seq
   "Returns a seq on the collection. If the collection is

  (-seq [coll] coll)

  ICounted
  (-count [coll] count)
  )

(deftype EmptyList [meta]
  IWithMeta

  (-hash [coll] (hash-coll coll))

  ISeqable
  (-seq [coll] coll))

(defn cons
  "Returns a new seq where x is the first element and seq is the rest."
