bac
cba
abc
acb
abc
cba
cba
bac
acb
abc
acb
cba

alias rnd {
  var %f $1, %l $len($1), %r1 $r(1,%l), %r2 $r(1,%l)
  var %fr $mid(%f, %r1, 1), %sc $mid(%f, %r2, 1), $&
    %frs $regsubex(%f,/(?<=\S(?=\S))/g,$chr(160))
  var %fx $puttok(%frs, %fr, %r2, 160), $&
    %fy $puttok(%fx, %sc, %r1, 160) 
  $iif($isid, return, echo -a) $remove(%fy,$chr(160))
}

on *:input:*:{ if $left($1,1) !== / && $active !== Status Window { say $replace($1-,.,4.) | .halt } }