Задача по лиспу, функциональное программирование

Исправить ошибку в коде

(defun F (w)

 (list (car w) (reverse(cdr(butlast w))) `(,(last w))))

В программе второе число и предпоследнее должно меняться местами, например, задаем 1 2 3 4 5, выводит результат 1 4 3 2 5

У меня получилось много скобок, нужно убрать