(def all (test seq) (~some (complement (testify test)) seq)) (def keep (test seq) (rem (complement (testify test)) seq))