-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