            (<! (timeout 2000))
            (swap! state assoc-in [:rooms :bathroom :laundry :whites] 100)
            (<! (timeout 2000))
-           (swap! state assoc :view :bathroom)
-           (swap! state assoc :scenario "Scenario 4: The laundry is full and the bathroom view is presented.")
+           (laundry)
+           (swap! state assoc :scenario "Scenario 4b: The bathroom view is presented.")
            (<! (timeout 8000))
 
            ; burglary alarm

           (swap! state assoc-in [:rooms :hall :front-door-locked?] false)
           (swap! state assoc-in [:rooms :livingroom :tv-on?] false)
           (swap! state assoc-in [:rooms :garage :car-in?] false)
           (swap! state assoc :scenario "Scenario 6: He forgot to lock the front door!")
           (<! (timeout 4000))
           (swap! state assoc :view :hall)
           (swap! state assoc :scenario "Scenario 6: The hall view with the front door is presented.")
           (<! (timeout 8000))

           ; dishwasher finished
           (reset! state initial-state)
           (swap! state assoc :scenario "Scenario 7: The dishwasher is almost done..")
           (swap! state assoc-in [:rooms :kitchen :dish-washer :active?] true)
           (swap! state assoc-in [:rooms :kitchen :dish-washer :time-remaining] 9)
           (<! (timeout 2000))
           (swap! state assoc-in [:rooms :kitchen :dish-washer :time-remaining] 6)
           (<! (timeout 2000))
           (swap! state assoc-in [:rooms :kitchen :dish-washer :time-remaining] 3)
           (<! (timeout 2000))
           (swap! state assoc-in [:rooms :kitchen :dish-washer :time-remaining] 0)
           (<! (timeout 2000))
           (swap! state assoc :view :kitchen)
           (swap! state assoc :scenario "Scenario 7: The dishwasher is done and the kitchen view is presented.")
           (<! (timeout 8000))

           ; weather in the morning

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

           ; stove still on
