alias drag {
  var %i = 1
  var %count = $numtok($$1-,32)
  var %output = $null
  while (%i <= %count) {
    var %j = 0
    var %token = $gettok($$1-,%i,32)
    var %k = $len(%token)
    while (%j <= %k) {
      var %c = $mid(%token,%j,$calc(%j + 1))
      %output = %output $+ %c
      inc %j
    }
    %output = %output $+ $chr(32) $+ $chr(32)
    inc %i
  }
  say %output
}