(defun power (x y) = определяем функцию пользователя
   (cond = ветвление вычислительного процесса
   ((= y 0) 1) = проверяем равна ли переменная Y нулю, т.е. если степень равна нулю возвращается 1
      (t = выполнить следующую строку в любом случае
      (* x (power x (- y 1))) = рекурсивно вызываем функцию с измененной степенью и полученный результат умножаем с переменной
      )
   )
)

(defun func (x)
   (setq y (/ 10 (+ 1 x))) = вычисляем текущее значение переменной
   (cond
   ((= x 20) (list x y)) = возвращаем список из переменной и значения
      (t
      (cons (list x y) (func (+ x 0.5)))  = соединяем ренее полученный список с текущим
      )
   ) 
)

(defun kill# (a b)
   (cond
      ((= b 0) (cdr a)) = если переменная В равна нулю возвращается хвост списка
      ((atom a) a) = проверяется является ли А атомом, т.е. пустой ли список
      (t
      (cons (car a) (kill# (cdr a) (- b 1))) = востанавливаем список, без уже вычеркнутого элемента
      )
   )
)

(defun killf (a key)
   (cond
   ((atom a) a)
   ((= key (car a)) (cdr a)) = проверяется, является ли голова списка нужным элементом
      (t
      (cons (car a) (killf (cdr a) key))
      )
   )
)