alias scramble {
  var %i = 1, %t = $numtok($1-,32), %sc
  while (%i <= %t) {
    var %cw = $gettok($1-,%i,32), %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(%cw,%r,1) $+ /,,%cw)
      inc %ii
    }
    %sc = $+(%sc,$chr(32),%cwscramble)
    inc %i
  }
  return %sc
}