module test

import iTasks
import iTasks.Extensions.DateTime

Start w = startEngine (
		allTasksInPool 3 (repeat task)
	>&> viewSharedInformation "result" []) w

task :: Task Int
task = enterInformation "int" [] >>= treturn