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