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