Counting and Combine with Clojure functional approch