      (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]

                                \i "implicit"
                                \c "cut"
                                \f "full"
                                \h "help"
                                }
                        :has-data #{:full}
                        } args)
        opt #(get-in ac [:opts %])


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

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


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