The 500 card game. Implemented in clojure