Создание лестницы в диалоговом режиме

(defun lestnica()
  (command "_.erase" '(0 0) '(5000 5000) "") //очищение экрана
  
  (setq kol(getint "Введите количество ступеней от 1 до 10: ")
    c(getint "Введите цвет ступеней:")
    w(getint "Введите ширину ступени:")
    l(getint "Введите длину ступени:")
 
  (command  "_.color"  c "")
  (command  "_.shademode" "_f"  "")
  (while (= n 0)
    (command "_.box" w l "kol" "")
        (setq  kol(- 1 kol) //принимаю и за высоту,каждая след. ступень будет ниже предыдущей на 1
                 w (+ 1 w) //должно происходить сдвиг в сторону ступени
             n (- 1 n) // счетчик
    )
   )  
  (command "_3dorbit" "")
  (princ)
)

(defun C:STAIR ()
 (setq
  basept (progn (initget (+ 1)) (getpoint "\nBase point: ")) ; начальная точка - нижний левый угол нижней ступени
  n (progn (initget (+ 1 2 4)) (getint "\nNumber of steps (1 to 10): ")) ; проверка на диапазон 1-10 отсутствует
  w (progn (initget (+ 1 2 4)) (getreal "\nStep width: ")) ; ширина ступени (поперек лестницы)
  h (progn (initget (+ 1 2 4)) (getreal "\nStep height: ")) ; высота ступени
  l (progn (initget (+ 1 2 4)) (getreal "\nStep length: ")) ; длина проступи (вдоль лестницы)
  color (progn (initget (+ 1 4)) (getint "\nStep color: "))) ; цвет ступени
 (command "_CECOLOR" color)
 (while (> n 0)
  (command "_.BOX"
   basept
   (mapcar '+ basept (list l w h)))
  (setq
   basept (mapcar '+ basept (list l 0 h))
   n (1- n)))
 (princ)
)