(defn
some
"Returns the first logical true value of (pred x) for any x in coll,\n else nil. One common idiom is to use a set as pred, for example\n this will return :fred if :fred is in the sequence, otherwise nil:\n (some #{:fred} coll)"
[pred coll]
(when (seq coll) (or (pred (first coll)) (recur pred (next coll)))))