Evaluated proc condense_proc name { set i [lrange [inspect $name] 0 1]; set p [info body $name]; . $i [regsub {^; +} [regsub -all {( |\t)+} [regsub -all \n$ [regsub -all "\{\n" $p "\{ "] {; }] { }] {}] }