1
2for {set runs 0} {$runs < 200} {incr runs} {
3	set procs [list]
4
5	for {set i 0} {$i < 50} {incr i} {
6		lappend procs [exec /bin/ls &]
7		lappend procs [exec [info nameofexecutable] ./create_destroy_child.tcl &]
8		#Pick one at random to kill.
9		set randi [expr {int(rand() * [llength $procs])}]
10		set randproc [lindex $procs $i]
11		set procs [lreplace $procs $i $i]
12		catch {exec kill $randproc}
13	}
14
15	foreach p $procs {
16		catch {exec kill $p}
17	}
18}
19