WJG (25/03/13) Simple proc to reverse the contents of a list.
#--------------- # 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 }