Evaluated proc colorize {str c} { set out ""; foreach line [split $str \n] { append out "\x03$c$line\n" };. $out }