say word_reverse( "  one   two three four    " )

exit

word_reverse: procedure
  parse arg string
  new = ''
  do w = 1 to words( string )
    new = word( string , w ) new
  end
  return strip( new , 'T' )