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