                  #(if (contains? #{nil :*} %) % (Math/round (double %))))
                set))
         rs-matter (remove #(contains? % :*) rs)]
-    (prn rs)
     (if (empty? rs-matter)
       #{:*}
       (apply clojure.set/intersection rs-matter))))

          (println "v1:" v1 " intersects with v2:" v2 " at: " t))
        [its v1 v2]))
    (remove (comp empty? first) $)
    (->events $)))

(defn -main
  "I don't do a whole lot ... yet."


(defn solve-quad
  [a b c]
  (let [t1 (- 0 b)
        t2 (Math/sqrt (- (* b b) (* 4 a c)))
        t3 (* 2 a)
