Evaluated proc flattenproc name { set i [lrange [inspect $name] 1 2]; . proc $i [condense_proc $name] }