Someone

alias rainbow {
  var %i = 1
  var %kleur = $rand(2,15)
  var %kar = $len($1-)
  var %tekst
  while (%i <= %kar) {
    %tekst = %tekst $+  $+ %kleur $+ $mid($1-,%i,1) $+ 
    inc %i
    inc %kleur
    if (%kleur == 11) { /set %kleur 12 }
    if (%kleur >= 16) { /set %kleur 2 }
  }
  return  $+ %tekst $+ 
}