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