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