uplevel #0 {
    foreach var [lsort [info globals]] {
	if {[array exists $var]} {
	    foreach index [lsort [array names $var]] {
		puts "${var}($index)=[set ${var}($index)]"
	    }
	} else {
	    puts "$var=[set $var]"
	}
    }
}