alias ters {
  var %morq1 = $numtok($$1,32),%morq2 = 1
  while (%morq2 <= %morq1) {
    var %morq3 = $len($gettok($$1-,%morq2,32))
    while (%morq3 >= 1) {
      var %morq4 = $+(%morq4,$mid($gettok($$1,%morq2,32),%morq3,1)) 
      dec %morq3
    }
    var %morq4 = $+(%morq4,$chr(35))    
    inc %morq2 
  }
  return $replace(%morq4,$chr(35),$chr(32))
}