   (LittleEndianDataInputStream. x))
 
 (defmethod little-stream ::fileable [x]
-  (LittleEndianDataInputStream. (input-stream (io/file x))))
+  (little-stream (input-stream (io/file x))))
 
 (defmethod little-stream io/*byte-array-type* [^bytes b]
-  (LittleEndianDataInputStream. (input-stream b)))
+  (little-stream (input-stream b)))
 
 ;; ## Data Extraction
 

                 (take-nth 2 (lazy-months stream))))

;; ## Cascalog Queries
;; [TODO] Add in with-open, where appropriate.

(defmapcatop
  #^{:doc "Unpacks a yearly PREC/L binary file, and returns its

           buf (byte-array arr-size)]
       (if (pos? (.read stream buf))
         (lazy-seq
          (cons buf (lazy-months stream)))
         (.close stream)))))

(defn all-months
  "Returns a lazy seq of all months inside of a yearly rain array."
