#---------------
# reverse the contents of a list
#---------------
#
proc list_reverse {lst} {
        
        set i [llength $lst]  
        
        while  {$i >= 0} {
                lappend tmp [lindex $lst $i]
                incr i -1
        }  
        
        return $tmp
}