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

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

    (automaton-output-handler [_ data owner msg]
      (let [corp-quantity
            (get-in @data [:automaton :specific :corp-quantity] 4)
            year-period
            (get-in @data [:automaton :specific :year-period] 12)
            corps (corps corp-quantity)
            competitor-count
            (count (filter (fn [[k v]] (>= v 0))
                           (dissoc (:capital msg) :government)))
            command-info-c (om/get-state owner :command-info-channel)]
        (when (zero? (mod (:iteration msg) (/ year-period 2)))
          (doseq [corp corps]
            (let [cmd
                  (update-in (a/conservative-corp
