alias scr {
  var %i = 1,%j = 1,%s,%t,%p
  while (%i <= $0) {
    if ($len($gettok($1-,%i,32)) > 3) {
      var %p,%r,%l = $right($left($gettok($1-,%i,32),-1),-1))
      while (%j <= $len(%l)) {
        %p = %p $mid(%l,%j,1)
        inc %j
      }
      %j = 1
      while (%j <= $calc($numtok(%p,32) + 1)) {
        %r = $rand(1,$numtok(%p,32))
        %t = %t $+ $gettok(%p,%r,32)
        %p = $deltok(%p,%r,32)
        echo -ga %t
        inc %j
      }
      %s = %s $left($gettok($1-,%i,32),1) $+ %t $+ $right($gettok($1-,%i,32),1)
      var %t,%j = 1
    }
    else { %s = %s $gettok($1-,%i,32) }
    inc %i
  }
  echo -ga %s
}