you can do the color one something like this as well
on *:TEXT:`colour:#:{ describe $chan $+ $+($r(0,15),$chr(44),$r(0,15)) $2- }