alias rainbow { var %a = 01 03 05 07 09 12 14 return $regsubex($1-,/([^ ])/g,$+($chr(3),$gettok(%a,$iif($calc(\n % $numtok(%a,32)),$v1,$numtok(%a,32)),32),\1)) }