Finally I get good results, not sure how to make this Clojure friendly