trotsky_say

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

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