       (process-stdin minlen)
       (doseq [file files]
          (process-fasta-file minlen file))))
+
 
 (defn usage [options-summary]
   (->> ["Print fasta stats"

          (if min-sequence-length (str min-sequence-length) "-")
        max-sequence-length-str
          (if max-sequence-length (str max-sequence-length) "-")
        output-str (str filename "\t"
                        num-sequences-str "\t"
                        num-bases-str "\t"

        options-summary]
       (string/join \newline)))


(defn error-msg [errors]
  (str "The following errors occurred while parsing your command:\n\n"
       (string/join \newline errors)))


(defn exit [status msg]
  (println msg)
  (System/exit status))


(def default-minlen 0)


(def cli-options
  [[nil "--minlen N" "Minimum length sequence to include in stats"
