set ::trotsky "         \"\$speech\"
         /
      xxxxxx
     @(-0-0)@
        xxx
        (o)
         x
 "

 proc say { speech } {
      regsub -all {\n} $speech "\n          " speech
      return [ subst $::trotsky ]
 }