 (defn describe-list [call xs]
   (str "(" call " " (clojure.string/join " " xs) ")"))
 
+(defn standard-describe-mismatch [x]
+  (str "was " (pr-str x)))
+
 (defn =
   "matches based on equality of the value given
 

   :description
   (describe-list "includes" [x])
   :describe-mismatch
   (fn [xs]
     (describe-list
       "includes"
       (->> xs
         (filter #(not (#{x} %))))))})

(defn run-match
  "runs a matcher, given a value to match against.

   (describe-list "any-of" (map :description ms))

   :describe-mismatch
   standard-describe-mismatch})

(defn some
  [m]
