on *:input:*: {
  if ($1 == c) {
    /set %a 2
    while ($ [ $+ [ %a ] ]) {
      /set %text %text $colors($ [ $+ [ %a ] ])
      /unset %return
      /inc %a
    }
    //say %text
    /unset %a
    /unset %text
    halt
  }
}
alias colors {
  /set %b 1
  while (%b <= $len($1)) {
    /set %return %return $+  $+ $rand(3,13) $+ $right($left($1,%b),1)
    /inc %b
  }
  return %return
}