#!/usr/bin/env tclsh
# child script: simulate some lengthy operations

package require Tclx

lassign $argv id durationInSeconds
set durationInMiliseconds [expr {$durationInSeconds * 1000}]

puts "  child #$id runs for $durationInSeconds seconds"
after $durationInMiliseconds
puts "  child #$id ends"