 
   }
   ]
-  """
+
+  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 $

                 #(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 $)
    (reduce (fn [vs [t coll]] (apply disj vs coll)) (set vectors) $)))

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