Evaluated proc act args {set str [join $args];return "\001ACTION [join [split $str "\n"] "\001\n\001ACTION "]\001"}