Miscellany

alias rainbow {
  var %r = 4.7.8.3.12.2.6
  var %z = 1
  var %rc = 1
  var %word2 = $replace($1-,$chr(32),$chr(240))
  while (%z <= $len(%word2)) {
    var %l = $mid(%word2,%z,1)
    if (%l == $chr(240)) set %240 true
    var %rl = $+($chr(3),$gettok(%r,%rc,46),$chr(44),01,%l)
    var %word = %word $+ %rl    
    if (%240 == true) {
      unset %240
    }
    else {
      inc %rc
      if (%rc > 7) var %rc = 1
    }    
    inc %z  
  }
  $iif($isid,return,say) $+($replace(%word,$chr(240),$chr(32)),$chr(3))
}