            (swap! state assoc-in [:rooms :bathroom :door-open?] true)
            (swap! state assoc-in [:rooms :bedroom :door-open?] true)
            (swap! state assoc :scenario
-                  "Scenario 2: The inhabitant has cooked and eaten breakfast, and is about to leave the house..")
+                  "Scenario 2a: The inhabitant has cooked and eaten breakfast, and is about to leave the house..")
            (<! (timeout 4000))
            (swap! state assoc-in [:rooms :livingroom :lights-off?] true)
            (swap! state assoc-in [:rooms :garage :lights-off?] true)

           (swap! state assoc-in [:rooms :hall :front-door-locked?] true)
           (swap! state assoc-in [:rooms :livingroom :radio-on?] false)
           (swap! state assoc-in [:rooms :garage :car-in?] false)
           (swap! state assoc :scenario "Scenario 2: But she forgot to turn off the stove!")
           (<! (timeout 4000))
           (swap! state assoc :view :kitchen)
           (swap! state assoc :scenario "Scenario 2: The still hot stove is shown to the user.")
           (<! (timeout 8000))

           ; out shopping

           (swap! state assoc-in [:rooms :bedroom :lights-off?] true)
           (swap! state assoc-in [:rooms :bathroom :lights-off?] true)
           (swap! state assoc-in [:rooms :garage :car-in?] false)
           (swap! state assoc :scenario "Scenario 3a: The inhabitant is not at home.")
           (<! (timeout 4000))
           (shopping)
           (swap! state assoc :scenario
                  "Scenario 3b: When she visits the website, the shopping list is shown.")
           (<! (timeout 8000))

           ; laundry
           (reset! state initial-state)
           (swap! state assoc :scenario
                  "Scenario 4a: The inhabitatnt has the day off and the white clothes laundry is about to be full.")
           (swap! state assoc-in [:rooms :bathroom :laundry :whites] 54)
           (swap! state assoc-in [:rooms :bathroom :laundry :colors] 63)
           (<! (timeout 2000))
