test harness

for {set i 0} {$i < 1000} {incr i} {
  puts "Test run #$i"
  if {[catch { exec tclsh mjanssen_thread_example.tcl } result]} {
    puts stderr "Error: $result"
    exit 1
  } else {
    puts $result
  }
}