Anonymous

alias melange {
  var %a = $null, %i = 1, %j = $numtok($1-,32)
  while (%i <= %j) {
    var %b = $gettok($1-, %i, 32)
    if ($len(%b) < 4) var %a = $+(%a,%b,$chr(160))
    else {
      var %l = $right(%b,1), %a = $+(%a,$left(%b,1)), %r = $mid(%b,2,-1)
      while (%r != $null) var %n = $rand(1,$len(%r)), %a = $+(%a,$mid(%r,%n,1)), %r = $left(%r,$calc(%n - 1)) $+ $right(%r,$+(-,%n))
      var %a = $+(%a,%l,$chr(160))
    }
    inc %i
  }
  say %a
}