# Example from page 80
function reverse  # array name
{
    nameref foo=$1
    typeset temp
    integer i n=${#foo[@]} # number of elements in the array
    for ((i=0; i < n/2; i++))
    do   temp=${foo[i]}
         foo[i]=${foo[n-1-i]}
         foo[n-1-i]=$temp
    done
}