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