Evaluated proc condense_proc name { set p [info body $name]; regsub -all {\t+} $p { } }