Miscellany

alias scramble {
  var %i = 1, %t = $numtok($1-,32), %cw, %sc
  while (%i <= %t) {
    %cw = $gettok($1-,%i,32)
    var %cwlen = $len(%cw), %ii = 1, %r, %cwscramble
    while (%ii <= %cwlen) {
      %r = $r(1,$len(%cw))
      %cwscramble = $+(%cwscramble,$mid(%cw,%r,1))
      !.echo -q $regsub(%cw,/ $+ $mid(%s,%r,1) $+ /,,%cw)
      inc %ii
    }
    %sc = $+(%sc,$chr(32),$scramble.w($gettok($1-,%i,32)))
    inc %i
  }
  return %sc
}