Evaluated proc mix_colours str { set c [regexp -inline {\x03(\d+)(,(\d+))*} $str] }