require 'task'

local myscript = [[=
    i = 0
    id = task.id()
    while true do
        task.receive( 500 )
        i = i + 1
        if math.mod( i, 10 ) == 0 then
            print( 'myscript', id, i )
        end
        task.sleep( 500 )
    end
]]

tsks = {}

n = 508

for i = 1, n do
    tsks[i] = task.create( myscript, { i } ) 
    print( tsks[i] )
end

while true do
    task.sleep( 3000 )
    local k = -1
    for i,t in ipairs( task.list() ) do
        k = k + 1
    end
    if n == k then
        print( 'Main task: subtasks ok' )
    else
        print( 'Main task: expected', n, 'substask,', k, 'found' )
    end
    task.receive( 2000 ) 
end