attempted problem 74 from 4clojure.