Построить английское существительное в множественном числе - Lisp

Формулировка задачи:

Множественное число большинства английских существительных получается путем добавления буквы "s" к форме единственного числа. Но если существительное заканчивается буквой "у'', следующей за согласной, множественное число образуется путем замены буквы "у" на сочетание "ies": если же существительное заканчивается буквой "о", следующей за согласной, множественное число образуется путем добавления сочетания "es". Напишите функцию (f W), вычисляющую множественное число для английского слова, представленного списком букв W.

Решение задачи: «Построить английское существительное в множественном числе»

Листинг программы

(defun mnogo (x)
 (setq x (reverse x))
 (reverse
  (cons
   's
   (if
    (and
     (member (cadr x) '(b c d f g h k l m n p q r s t v w x z))
     (member (car x) '(o y)))
    (cons 'e
     (if (eq (car x) 'y)
      (cons 'i (cdr x))
      x))
    x))))

Объяснение кода листинга программы

В данном коде определена функция со именем mnogo, которая принимает один аргумент x.

Сначала с помощью setq переменной x присваивается значение обратного списка x.
Затем с помощью reverse извлекается первый элемент из списка x.
С помощью cons создается новый список, в который добавляется буква 's.
Затем с помощью if проверяется условие: если второй элемент списка x является буквой 'o, то выполняется одно действие, а если это не так - другое.
В первом случае с помощью cons к новому списку добавляется буква 'i, а во втором - список x.
Затем с помощью cons к новому списку добавляется буква 'e.
И наконец, с помощью return из функции возвращается получившийся список.