   (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
 

;; file, with lots of Java support. Might be worthwhile to code that
;; up as a separate input, just in case. (Support for OpenCDF files
;; would sure be nice.)

(ns forma.rain
  (:use cascalog.api

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

;; ## Cascalog Queries

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