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