Posted to tcl by evilotto at Thu Oct 04 17:34:16 GMT 2012view pretty

package require Thread

for {set x 0} {$x < 1000000} {incr x} {
        thread::create {
                package require tls
        }
}