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' )

##</code><code>##

word_reverse()
{
  local string="$1"
  new=''
  for s in $string
  do
    new="$s $new"
  done
  printf "%s" "${new%% }"
}

word_reverse "  one   two three four    "