jeff-hobbs · April 2, 2013 21:32
diff --git a/mem.tcl b/mem.tcl
 #!/usr/bin/env tclsh
 set chunk 64
 set i 0
 while {1} {
    set [incr i] [string repeat a [expr {$chunk*1024}]]
    puts "Allocated [expr {$i*$chunk}]K" ; flush stdout
    after 50
 }
	#!/usr/bin/env tclsh
	set chunk 64
	set i 0
	while {1} {
	set [incr i] [string repeat a [expr {$chunk*1024}]]
	puts "Allocated [expr {$i*$chunk}]K" ; flush stdout
	after 50
	}