--$rnb--
alias rnb {
  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,$mid(%x,$1,1),$mid(%x,$1,1)) $+ 
    tokenize 32 $calc($1 + 1) $2 $3-
  }
  return $3-
}
--/rnb--
alias rnb {
  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,$mid(%x,$1,1),$mid(%x,$1,1)) $+ 
    tokenize 32 $calc($1 + 1) $2 $3-
  }
  msg $active $3-
}