>>= \stm-> sendTaskToDevice "sensing" sensing (nod, OnInterval 1000)
>>= \(st, [t])->sendTaskToDevice "acting" acting (stm, OnInterval 1000)
(\(BCValue s)->set (BCValue $ dynInt (dynamic s) > 0) (shareShare nod a))
>>= \stm-> sendTaskToDevice "sensing" sensing (nod, OnInterval 1000)
>>= \(st, [t])->sendTaskToDevice "acting" acting (stm, OnInterval 1000)
(\(BCValue s)->set (BCValue $ dynInt (dynamic s) > 0) (shareShare nod a))