alias s {
  var %ot = $replace($$1-,$chr(32),$chr(160))
  var %len = $len(%ot)
  var %chk $rand(0,1)
  var %loop 1
  var %nt
  while (%loop <= %len) {
    if (%chk == 0) {
      %nt = %nt $+ $upper($right($left(%ot,%loop),1))
      set %chk 1
      inc %loop
    }
    else if (%chk == 1) {
      %nt = %nt $+ $right($left(%ot,%loop),1)
      set %chk 0
      inc %loop
    }
  }
  say $replace(%nt,$chr(160),$chr(32))
}