Added $shufftok() for use with other token identifiers. It allows you to basically shuffle your tokens around with the character delimiter you choose.

;// $shufftok(text, C)
alias shufftok {
  var %a = $1
  var %c = $iif($2 != 32, $2, 32)
  tokenize %c %a
  var %i = $0
  while (%i) {
    var %r = $r(1, %i)
    var %t = $instok(%t, $gettok(%a, %r, %c), %i, %c)
    %a = $deltok(%a, %r, %c)
    dec %i
  }
  return %t
}