Evaluated proc ltop {l n} {lrange $l 0 [- $n 1]}