영문넘버링 lisp 좀 검토해주세요

(defun c:TC1 ()
 
 (GRAPHSCR)
 (if (SETQ od (ssget ‘((0 . “text”))) )
   (SETQ NUM (SSLENGTH od)
  INDEX 0
  bac 1)
  )
 (REPEAT NUM
   (SETQ ENTG (ENTGET (SSNAME od INDEX)))
   (SETQ INDEX (1+ INDEX))
   (SETQ AS1 (ASSOC 1 ENTG))
   (SETQ OJ3 (ITOA BAC))
   (setq old (cons 1 OJ3))
   (setq sb (subst old AS1 ENTG))
   (entmod sb)
   (SETQ BAC (+ 1 BAC))
    )
    )

 영문넘버링하는 리습인데 숫자넘버링이 되네요..
 고수님들 리습 좀 함 검토 부탁드려요~~
 수고하세요!!