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