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