old/sequence_slow/test.icl

   1 module test
   2
   3 import Data.Func
   4 import iTasks
   5 import iTasks.Extensions.DateTime
   6
   7 Start w = startEngine (
   8         sequence (map t [0..20]) >>- traceValue) w
   9
  10 t i = waitForTimer 1 -|| viewInformation () [] (toString i +++ "th item")
  11         >>- \_->treturn i