              (when-let [forms (<! evaluator)]
                ;; TODO: evaluate forms. Do this update inside the
                ;; callback of the evaluation instead
-               (om/transact! data :output
+               (om/transact! data [:repls 0 :output]
                              (fn [xs]
                                (conj xs forms))))
              (recur)))))

    (render-state
     [this {:keys [input namespace]}]
     (dom/div nil
      (dom/input #js {:placeHolder (str namespace " =>")
                      :type "text"
                      :ref "to-read"}
                 nil)

   om/IWillUnmount
   (will-unmount
    [_]
    (comment (let [evaluator (om/get-state owner :evaluated)]
               (async/close! evaluator))))))

(defn reader
  [data owner]
