                  #(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."


  }
  ]

  p=<758,2493,568>, v=<-88,-150,-64>, a=<4,-9,3>
  p=<-1336,-2115,-1172>, v=<80,104,68>, a=<5,11,5>
"""

(defn part-2
  []
  (as-> vectors $
