#!/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
