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