alias scramble {
  var %i = 1, %t = $numtok($1-,32), %sc
  while (%i <= %t) {
    %sc = $+(%sc,$chr(32),$scramble.w($gettok($1-,%i,32)))
    inc %i
  }
  return %sc
}

alias scramble.w {
  var %s = $1, %sc, %r
  var %i = 1, %l = $len(%s)
  while (%i <= %l) {
    %r = $r(1,$len(%s))
    %sc = $+(%sc,$mid(%s,%r,1))
    !.echo -q $regsub(%s,/ $+ $mid(%s,%r,1) $+ /,,%s)
    inc %i
  }
  return %sc
}