(defun c:tst (/)
        (if(<(cdar(assoc 10 (entget(entlast))))(car etins))
          (setq etins (cdr(assoc 10 (entget(entlast)))))
        );if
);