Evaluated set cum [list]; map [info proc ST*] {x {lappend cum "[inspect $x]\n"}}; textbin $cum