Counting and Combine with Clojure Functional Approch