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