module test

import Data.Func
import iTasks 
import iTasks.Extensions.DateTime

Start w = startEngine (
	sequence (map t [0..20]) >>- traceValue) w

t i = waitForTimer 1 -|| viewInformation () [] (toString i +++ "th item")
	>>- \_->treturn i