((fn [& s]
   (letfn [(min-s [s] (mapcat identity (map rest (lazy-seq (filter #(= (first %) (apply min (map first s))) s)))))
           (remaining-s [s] (mapcat identity (lazy-seq (filter #(not= (first %) (apply min (map first s))) s))))
           (f [s]
              (do
                (println (map first s))
                (if (apply = (map first s))
                  (ffirst s)
                  (recur (lazy-seq (remaining-s s) (min-s s))))))]
              (f s))) (range 0 100) (range 0 100 7/6) [2 3 5 7 11 13])