alias mcolor {
  if ($isid && $1) {
    var %z 1, %c
    var %t $replace($1-,$chr(32),$chr(17))
    while (%z <= $len($1-)) { 
      :retry
      var %a $r(0,15), %b $r(0,15)
      if (%a == %b) { goto retry }
      %c = %c $+ $iif($prop == b,$+($chr(3),$iif($len(%a) = 1,$+($chr(48),%a),%a),$chr(44),$iif($len(%b) = 1,$+($chr(48),%b),%b)),$+($chr(3),$iif($len(%b) = 1,$+($chr(48),%b),%b))) $+ $mid(%t,%z,1)  
      inc %z 
    }
    return $replace(%c,$chr(17),$+($chr(3),$chr(48),$chr(44),$chr(48),$chr(32),$chr(3))) 
  } 
}