Evaluated proc mix_colours str { set c [uniq [loffset [regexp -inline -all {\x03(\d+)(,(\d+))*} $str] 1 2]]; . $c }