 
        (string? coll)
        (array-reduce coll f)
-       
+
        (native-satisfies? IReduce coll)
        (-reduce coll f)
 

      (string? coll)
      (alength coll)

      (native-satisfies? ICounted coll)
      (-count coll)

      :else (accumulating-seq-count coll))
    0))

(defn- linear-traversal-nth


      (string? coll)
      (when (< n (.-length coll))
        (.charAt coll n))

      (implements? ISeq coll)
      (linear-traversal-nth coll n)
