A toy scheme in clojure