initial answer to grains in clojure (no external libs)