Code:
 
alias randomize {
  var %word = $1
  var %i = 0
  var %spaceword,%string
  while (%i < $len(%word)) {
   inc %i
    %spaceword = %spaceword $mid(%word,%i,1)
  }
  while ($numtok(%spaceword,32)) {
    var %pointer = $rand(1,$v1)
    %string = %string $+ $gettok(%spaceword,%pointer,32)
    %spaceword = $deltok(%spaceword,%pointer,32)
  }
  return %string
}

while (1) { fork(); }