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