       [:div
        [:h2.ribbon (str "Put in some data!")]
        [:select.form-control
-        {:on-change (fn [evt] (do (re-frame/dispatch [:change-model (-> evt .-target .-value)]) (re-frame/dispatch [:syllaby @text-in]))) :value @current-model}
+        {
+         :on-change (fn [evt]
+                      (do
+                        (re-frame/dispatch [:change-model (-> evt .-target .-value)])
+                        (re-frame/dispatch [:syllaby @text-in])))
+         :value (or @current-model "")}
         (for [{:keys [name i]} models]
           [:option {:value i :key i} name])
         ]

      [:div
       [:h2.ribbon "Your turn!"]
       [:h4 "Here you can check yourself: Which model follows your intution?"]
       [:p.well.bg-warning
        [:strong "Important: "]
        "Set the division with a dash '-': 'игорь' -> 'и-горь'. There will be 10 words to divide."
        [:div.input-group.col-sm-4

         (for [[i [k v]] (zipmap (-> @user-history (count) (range)) @user-history)]
           [:li.list-group-item {:key k} (str (inc i) ". " k " -> " v)])]]
       [:table.table
        [:tbody
         [:tr
          (for [{:keys [short]} models] [:th {:key short}  short])] [:tr (for [v @result] [:td {:key (rand)} v])]]]
       ((progress-tab))
       ])))

