Tcl Source Code

Artifact 02aa814262ba4c0fa2c2232cdc861a3ee8f44116:

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