Jeff Hobbs jeff-hobbs

VP Engineering, @SUSE Enterprise Container Management (all things cloud native)

jeff-hobbs / mem.tcl

Created April 2, 2013 21:32

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