solution to #131 of 4clojure with work shown