+ ||- forever (enterChoice "Choose led to enable" [] [LED1, LED2, LED3]
+ >>= \p->sendMsg (fst (makeMsgs 0 (bc2 p))) ch)
+ ||- forever (enterChoice "Choose led to disable" [] [LED1, LED2, LED3]
+ >>= \p->sendMsg (fst (makeMsgs 0 (bc3 p))) ch)
+ ||- viewSharedInformation "channels" [ViewAs lens] ch