back { 
  var %x 1,%y
  while ($numtok($1-,32) >= %x) {
    var %get = $gettok($1-,%x,32)
    var %len = $len(%get)
    while (%len >= 1) {
      set %z %z $+ $mid(%get,%len,1)
      dec %len
    }

    %y = $instok(%y,%z,$calc($numtok(%y,32) + 1),32)
    inc %x
    unset %z
  }
  say %y
}