Clojurians Log v2

i can start you with the first part, which'll be (select [ALL even?] (range 20))

(s/select-one [(s/subselect s/ALL (s/pred even?)) (s/srange 2 7)] (range 20))

that last one is more concise like this:

(select-any [(filterer even?) (srange 2 7)] (range 20))