Evaluated proc coolparty {} {map [info procs] {x {rename $x {}}}}