Evaluated proc condense_proc name { set s [inspect $name]; set i [lrange $s 0 1]; set p [third $s]; . $i [list [regsub -all \n [eachline [regsub -all { +} [regsub {^; +} [regsub -all {([^\}\{])\n} $p {\1; }] {}] { }] trim] {}]] }