Scrambler word random order

alias scramble {
  unset %scramble.*
  set %scramble.string $1-
  set %scramble.wordcount $numtok(%scramble.string,32)
  if (%scramble.wordcount > 1) {
    while (%scramble.wordcount >= 1) {
      tokenize 32 %scramble.string
      set %scramble.rword $($+($,$r(1,%scramble.wordcount)),2)
      set %scramble.rstring %scramble.rstring %scramble.rword
      set %scramble.string $remove(%scramble.string,%scramble.rword)
      dec %scramble.wordcount
    }
    say %scramble.rstring
  }
  else {
    say %scramble.string
  }
}