      (take-while #(not= % eof) (repeatedly #(read input false eof))))))
 
 
-(defn read-pairs [] (read-all *in*))
-(defn read-simple [] (map vec (partition 2 (read-all *in*))))
+(defn read-pairs [] (read-all))
+(defn read-simple [] (map vec (partition 2 (read-all))))
 
 
 (defn compute-print [print-cut? g]

(defn full-graph [size]
  (apply simple-bigraph (for [x (range size) y (range size) :when (< x y)] [x y])))


(defn read-all
  ([] (read-all *in*))

     (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?))
     )))

