Someone

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