Is there already a "sourcecode to optimized converter" for tcl?

I wanted to optimize my scripts and already tested already
tclpro/activestate tcl compiler but got really disappointed, the
improvement was more then minimal. The bytecode hides the source but
this is not my point, I wanted to speed up things.

I can imagine that this (=good readable for me)

proc testproc { name args } {
puts $name
puts $args
# ....

}

proc nextproc { name args } {
puts $name
puts $args
# ....

}

is slower then this (="optimized")

proc testproc {n args} {puts $n;puts $args};proc nextproc {n args} {puts
$n;puts $args}

Is there already a project to convert the source in such a style?
(everything in one line, removing comments, removing wasted spaces,
shorter variablenames, ...many more)
.

Relevant Pages