alias ook {
  var %x $1-
  tokenize 32 1 $null
  tokenize 32 $1 $len(%x)
  tokenize 32 $1 $2
  while ($1 <= $2) {
    tokenize 32 $1 $2 $3- $+  $+ $rand(2,15) $+ $iif($rand(1,2) == 1,$lower($mid(%x,$1,1)),$upper($mid(%x,$1,1))) $+ 
    tokenize 32 $calc($1 + 1) $2 $3-
  }
  return $3-
}

This does it, but randomly.
EX: $ook(ooooooooooooooooooooooooooooo)
returns like OooooOOoOOOooOoooOOoOOOOOooOo randomly colored