proc lreverse l {

      set ll [llength $l]
      set res ""
      loop i [expr $ll - 1] -1 -1 {
              lappend res [lindex $l $i]
      }

      return "$res"

}
