            (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.")
+           (swap! state assoc :scenario "Scenario 2b: But she forgot to turn off the stove!")
+           (<! (timeout 4000))
+           (stove-on)
+           (swap! state assoc :scenario "Scenario 2c: The still hot stove is shown to the user.")
            (<! (timeout 8000))
 
            ; out shopping

  (go-loop []
           ; fire alarm
           (reset! state initial-state)
           (swap! state assoc :scenario "Scenario 1: A fire has broken out and the fire alarm goes off!")
           (<! (timeout 4000))
           (swap! state assoc-in [:diagnostics :fire-alarm] :activated!)
           (swap! state assoc :view :diagnostics)
           (swap! state assoc :scenario "Scenario 1: The graphics show that the fire alarm has been activated.")
           (<! (timeout 8000))

           ; stove still on

           (swap! state assoc-in [:rooms :garage :lights-off?] true)
           (swap! state assoc-in [:rooms :bedroom :lights-off?] true)
           (swap! state assoc-in [:rooms :bathroom :lights-off?] true)
           (swap! state assoc :scenario "Scenario 5a: At nighttime, the motion detector has detected an intruder!")
           (<! (timeout 4000))
           (swap! state assoc-in [:diagnostics :burglary-alarm] :activated!)
           (burglary-alarm)
           (swap! state assoc :scenario "Scenario 5b: The graphics shows that the burglary alarm has been activated.")
           (<! (timeout 8000))

           ; unlocked door
           (reset! state initial-state)
           (swap! state assoc-in [:rooms :hall :front-door-locked?] true)
           (swap! state assoc-in [:rooms :livingroom :tv-on?] true)
           (swap! state assoc :scenario "Scenario 6a: The inhabitant 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)
