colors { var %x = 1 while (%x <= $len($1-)) { if ($mid($1-,%x,1) == $chr(32)) { var %y %y $+ $chr(935) } else { var %y %y $+ $+($chr(3),$iif($r(2,13) < 10,0 $+ $v1,$v1),$mid($1-,%x,1)) } inc %x } say $replace(%y,$chr(935),$chr(32)) } I have this as aliases1.ini