Text adventure in clojure