color {
  var %i = 0
  while (%i < $len($1-)) {
    inc %i
    var %x = $rand(2,15)
    var %text = %text $+ $replace($left($1-,%i),$left($1-,%i), $+ %x $+ $left($1-,%i))
  }
  say %text
}