Программа на языке AutoLisp

Ищу программиста AutoLisp. Есть код на языке lisp для управления станка с чпу. Необходимо сделать комментарии к каждой строчке и табуляцию для упрощения чтения кода. Пример кода  

(setq b (strcat bg "n")) 

(princ b a) 

(princ b) 

(setq coor1 coor2) ;stori fin point for 

(setq coor0 coor1) ;rasch g00 

) ;fin prog B 

(progn ;prog D                                                  

(setq ara1 (entget e)) 

(while cd ;cicl sort points 

(if plineflag 

(progn 

(setq e (entnext e)) ;else point 

(setq ara1 (entget e)) ;made specific  

) ;_ progn 

(setq ara1 (entget_NextVertexLw ara1)) 

) ;_ if 

(setq coor2 (cdr (assoc 10 ara1))) ;read coord 

(setq cd coor2) 

(if (= coor2 nil) 

(progn ;if point last 

(if (/= cl 0) 

(progn ;if loop closed 

(setq coor2 stsp) 

) ;firstpoint last 

(setq dis 1) 

) ;_ if 

) ;_ progn 

) ;or backspase not 

(if (/= coor2 nil) 

(progn 

(setq x (- (nth 1 coor2) 

(nth 1 coor1) 

) ;_ - 

) ;rasch