          (string? coll)
          (when (< n (.-length coll))
            (aget coll n))
+
+         (type_satisfies_ IIndexed coll)
+         (-lookup coll n)
          
          :else
          (linear-traversal-nth coll (.floor js/Math n)))))

     (prim-seq array i)))

(extend-type array
  ICounted
  (-count [a] (alength a))

  IReduce
  (-reduce [col f] (array-reduce col f))
  (-reduce [col f start] (array-reduce col f start)))

           (aget coll n)
           not-found)
         
         (type_satisfies_ IIndexed coll)
         (-lookup coll n)

         :else
         (linear-traversal-nth coll (.floor js/Math n) not-found))
       not-found)))
