forth implemented in clojure