alias scramb {
  set %string $1-
  set %length $len(%string)
  inc %number
  while (%number <= %length) {
    set %digit $left(%string,1)
    set %string $remove(%string,$left(%string,1))
    inc %number
    echo -a %digit
  }
  unset %digit
  unset %number
  unset %string
  unset %length
}