Construct re patterns

I'd suggest not re-creating the list every time, but outside of the closure:

```clojure
(let [patterns (mapv re-pattern origins)]
  (fn [origin]
    (some #(re-find % origin) patterns)))
```