/xrainbow

alias xrainbow {
  $iif($isid, return, say) $regsubex($1-, /(*UTF8)(\S)/g, $chr(3) $+ $-xrainbow(\n , [ $r(0, $numtok($-xcolors, 32)) ] ) $+ \1)
}
alias -l -xcolors return 28 40 52 64 65 53 41 29 30 42 54 66 67 55 43 31 32 44 56 68 69 57 45 33 34 46 58 70 71 59 47 35 36 48 60 72 73 61 49 37 38 50 62 74 75 63 51 39
alias -l -xrainbow {
  var %i = $calc( $1 + $2 )
  var %n = $calc( %i - $calc($floor($calc((%i -1) / 48)) * 48) )
  return $gettok($-xcolors, %n, 32)
}