 
   (shutdown-agents)) ;;kill thread-pool
 
-
-
-
-
 ;(apply -main *command-line-args*)
 
 


        graph-builder simple-bigraph
        graph-builder (if (opt :digraph) simple-digraph graph-builder)
        graph-builder (if (opt :undig) simple-bigraph graph-builder)

        graph-reader read-simple
        graph-reader (if (opt :paired) read-pairs graph-reader)
        graph-reader (if (opt :simple) read-simple graph-reader)

        print-cut? (get-in ac [:opts :cut])
        ]
    (cond
     (opt :version) (prn 'Gecf __gecf-version__)
     (opt :help) (prn "-b -d, -p -s ... some help")
     (opt :full) (->> (read-string (opt :full)) full-graph (compute-print print-cut?))
     (opt :random) (->> (read-string (opt :random)) rand-graph (compute-print print-cut?))
     :else (->> (graph-reader) (apply graph-builder) (compute-print print-cut?))

(defn read-all
  ([] (read-all *in*))
  ([input]
   (binding [*read-eval* false]
     (let [eof (Object.)]
       (take-while #(not= % eof) (repeatedly #(edn/read {:eof eof} input)))))))


(defn read-pairs [] (read-all))
