-module test
-
-import qualified Data.Map as DM
-import iTasks
-
-Start w = startEngine t w
-
-t = withShared ["somedata"] \l->
- forever (chooseAction [((Action "Empty"), ())] >>- \_->set [] l)
- //-&&- updateSharedInformation [UpdateAs 11
- -&&- viewSharedInformation "View" [] l