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