scramble

alias scramb {
  var %count 1
  while (%count <= $numtok($1-,32)) {
    var %cstring $gettok($1-,%count,32))
    while ($len(%cstring) >= 1) {
      var %let $mid(%cstring,$r(1,$len(%cstring)),1)
      var %a $pos(%cstring,%let,1)
      var %scr %scr $+ %let
      var %cstring $left(%cstring,$calc(%a -1)) $+ $right(%cstring,- $+ %a)
    }
    inc %count
    var %new %new %scr
    unset %scr
  }
  echo -a %new
}