Tcl Source Code

Artifact 590c1e8d0ac141d17c3f5a56f28cd7a49cde274f:

#!/usr/local/bin/tclsh

package require zlib

for {set i 0} {$i < 1000000} {incr i} {
    catch { zlib inflate "x" }
    puts -nonewline "."
}

puts "done"
vwait ::die