4clojure 99 - product digits