if {[info exists memhog] == 0} {
    set interp [interp create slave]
    $interp eval {
        set memhog [list]
        set elem 0
        while {$elem < 170} {
            lappend memhog [incr elem]
        }
    }
    $interp eval [list source [info script]]
    interp delete $interp
    return
}
proc demo {string} {
    subst $string
}
demo name2
return
