set r [lreverse $arr]
set s [lsort -integer  $r]
puts stdout $r
puts stdout $s