                   (gen-app-view
                    a/market-model market-model-customization)
                   {:corp-quantity 4
-                   :year-period 12}))))))
+                   :year-period 12
+                   :stop-after 0}))))))
 
 (defn render-menu-view
   []

      [_]
      {:config-changed (chan)
       :year-period (:year-period data)
       :corp-quantity (:corp-quantity data)})
    om/IWillMount
    (will-mount [_]

            reset-c (om/get-state owner :reset)]
        (go
          (while true
            (let [[corp-quantity year-period stop-after] (<! config-c)]
              (om/transact! data #(assoc %
                                    :corp-quantity corp-quantity
                                    :year-period year-period
                                    :stop-after stop-after))
              (put! reset-c true))))))
    om/IRenderState
    (render-state [_ {:keys [corp-quantity year-period config-changed
                             stop-after command-info-channel]
                      :as state}]
      (let [started (:started data)]
        (dom/div
