7 Start w = doTasks viewer w
10 [(Embedded, \stl->appendTask Embedded (\_->t <<@ ArrangeHorizontal) stl
11 >>= \tid->viewSharedInformation "Task Value" []
12 (sdsFocus (Right tid) (taskListItemValue stl)) @! 42)
15 t = updateInformation "Left" [] 42
16 -||- (enterInformation "Right" [] -||- chooseAction [(Action "Fire", 42)])