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
}