it #(-> %1 :coord->units (get %2) count range) on my (reduce f game coords) until i (s/valid? ::game game*)