TrotskySpeak

A Tcl script that lends authority to your text:

 ~~~snip!~~~

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

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

 ~~~snip!~~~