Raj ported to Clojure/Script

raj.clj

(defn program [{:keys [init, update, done, view]}]
  (let [state (atom nil)
        running (atom true)
        change (fn [dispatch [newState effect]]
          (do
            (if effect
              (effect dispatch))
            (reset! state newState)
            (view @state dispatch)))
        dispatch (fn dispatch [message]
          (if @running
            (change dispatch (update message @state))))]
      (do
        (change dispatch init)
        (fn []
          (do
            (reset! running false)
            (done @state))))))