alias s {
  set %string $replace($1-,$chr(32),$chr(96))
  set %count 1
  set %length $len(%string)
  while (%count <= %length) {
    set %spaced %spaced $mid(%string,%count,1)
    inc %count
  }
  set %count 0
  while (%count <= %length) {
    set %token $gettok(%spaced,$r(1,$numtok(%spaced,32)),32)
    set %random %random %token
    set %spaced $deltok(%spaced,$findtok(%spaced,%token,32),32)
    inc %count
  }
  echo -a $replace(%random,$chr(32),$null,$chr(96),$chr(32))
  unset %token
  unset %random
  unset %spaced
  unset %count
  unset %length
  unset %string
}