Unnamed

alias rainbowcolor {
  var %x, %z, %q = 1
  var %y, %i, %n = 1
  var %clist = 03,04,05,06,07,09,10,11,12,13
  if ($isid) { tokenize 32 $1 }
  while (%q <= $0) {
    set %i 1
    set %x $null
    while (%i <= $len($eval($+($,%q),2))) {
      if (%n > $numtok(%clist,44)) {
        var %ii = $calc(%n % $numtok(%clist,44) +1)
        set %y $gettok(%clist,%ii,44)
        set %n 1
      }
      else {
        set %y $gettok(%clist,%n,44)
        inc %n
      }
      set %x $+(%x,%y,$mid($eval($+($,%q),2),%i,1))
      inc %i
    }
    set %z $instok(%z,%x,$calc($numtok(%z,32) +1),32)
    inc %q
  }
  if ($isid) { return %z }
  else { echo -a %z }
}