set ::trotsky " \"\$speech\"
/ xxxxxx @(-0-0)@ xxx (o) x
"
proc say { speech } {
regsub -all {\n} $speech "\n " speech return [ subst $::trotsky ]
}