Updated 2013-01-18 04:54:31 by pooryorick ▲
set ::trotsky "         \"\$speech\"
         /
      xxxxxx
     @(-0-0)@
        xxx
        (o)
         x
"

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

Category Humor