This is the BSD game "greed" rewritten in Clojure.