Evaluated proc lchomp mylist {lrange $mylist 0 end-1}