Evaluated proc catsay args {set str [. $args]; set out [canvas [+ [string length $str] 20] 5]; embed [embed $out [STkitty] [string length $str] 1] "$str\n[string repeat " " [string length $str]]\\\n[string repeat " " [- [string length $str] 1]]"}