            ]]]]))))
 
 (def app-model
-  (atom {:current-slide 6
+  (atom {:current-slide 4
          :slides
          ;; TODO Add cardinal such that each slide has its own number to avoid react warning
          (vec

    (when (pos? c)
      (<! (timeout 30))
      (recur (dec c)))))

(defn put-and-take-slide [data owner opts]
  (reify

            {:subtitle "timeouts"
             :custom timeout-slide
             :opts {:font-size "72pt"}}

            {:subtitle "alts!"
             :custom alts-slide
