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