(defun lisp-interpreter (expression)
  "Простейший интерпретатор Lisp."
  (let ((global-environment '()))
 
    (labels (
      (evaluate (expr env)
        (cond
          ((numberp expr) expr)
          ((symbolp expr) (or (cdr (assoc expr env)) (cdr (assoc expr global-environment)) expr)) ; Ищем значение переменной
          ((listp expr)
           (let ((function (car expr))
                 (arguments (cdr expr)))
             (apply-function function arguments env)))
          (t (error "Неизвестный тип выражения: ~A" expr))))
 
      (lookup (symbol env)
        (assoc symbol env))
 
      (apply-function (function arguments env)
        (cond
          ((eql function 'quote) (car arguments))
          ((eql function 'car) (car (evaluate (car arguments) env)))
          ((eql function 'cdr) (cdr (evaluate (car arguments) env)))
          ((eql function 'cons) (cons (evaluate (car arguments) env) (evaluate (cadr arguments) env)))
          ((eql function '+) (apply '+ (mapcar #'(lambda (arg) (evaluate arg env)) arguments)))
          ((eql function '-) (apply '- (mapcar #'(lambda (arg) (evaluate arg env)) arguments)))
          ((eql function '*) (apply '* (mapcar #'(lambda (arg) (evaluate arg env)) arguments)))
          ((eql function '/) (apply '/ (mapcar #'(lambda (arg) (evaluate arg env)) arguments)))
          ((eql function '=) (= (evaluate (car arguments) env) (evaluate (cadr arguments) env)))
          ((eql function '<) (< (evaluate (car arguments) env) (evaluate (cadr arguments) env)))
          ((eql function '>) (> (evaluate (car arguments) env) (evaluate (cadr arguments) env)))
          ((eql function 'list) (mapcar #'(lambda (arg) (evaluate arg env)) arguments)) ; Реализация list
          ((eql function 'expt) (expt (evaluate (car arguments) env) (evaluate (cadr arguments) env))) ; Power function
          ((eql function 'sqrtn) ; Корень n-й степени: (sqrtn x n)
           (let ((x (evaluate (car arguments) env))
                 (n (evaluate (cadr arguments) env)))
             (expt x (/ 1.0 n)))) ; Используем экспоненту для вычисления корня
          ((eql function 'lambda) ; Лямбда-выражение
           (let ((params (cadr function))
                 (body (caddr function))
                 (evaluated-args (mapcar #'(lambda (arg) (evaluate arg env)) arguments)))
             (evaluate body (append (mapcar #'cons params evaluated-args) env))))
          ((eql function 'if)
           (if (evaluate (car arguments) env)
               (evaluate (cadr arguments) env)
               (evaluate (caddr arguments) env))) ; if
          ((eql function 'defun)
           (let ((name (car arguments))
                 (params (cadr arguments))
                 (body (caddr arguments)))
             (setf global-environment (acons name `(lambda ,params ,body) global-environment))
             name))
          ((eql function 'setq)
           (let ((symbol (car arguments))
                 (value (evaluate (cadr arguments) env)))
               (setf global-environment (acons symbol value global-environment))
               value))
          (t  ; Пользовательская функция (из глобального окружения)
           (let ((func (lookup function global-environment)))
             (if func
                  (apply-function (eval (cdr func)) arguments env)
                 (error "Неизвестная функция: ~A" function))))
          )))
 
      (evaluate expression global-environment))))
 
;; Примеры использования
(format t "Результат: ~A~%" (lisp-interpreter '(cons (car (cdr (quote (e r t w)))) (cons (cdr (quote (g h 6))) (quote ())))))
(format t "Результат: ~A~%" (lisp-interpreter '(+ 2 (* 3 4))))
(format t "Результат: ~A~%" (lisp-interpreter '(- 10 (/ 6 2))))
(format t "Результат: ~A~%" (lisp-interpreter '(if (> 5 3) 10 20)))
(format t "Результат: ~A~%" (lisp-interpreter '(if (= 5 3) 10 20)))
(format t "Результат: ~A~%" (lisp-interpreter '(car (list 1 2 3))))
(format t "Результат: ~A~%" (lisp-interpreter '(sqrtn 16 2))) ; Корень квадратный из 16
(format t "Результат: ~A~%" (lisp-interpreter '(sqrtn 27 3))) ; Корень кубический из 27
(format t "Результат: ~A~%" (lisp-interpreter '(expt 2 3)))  ; 2 в степени 3
 

KGRlZnVuIGxpc3AtaW50ZXJwcmV0ZXIgKGV4cHJlc3Npb24pCiAgItCf0YDQvtGB0YLQtdC50YjQuNC5INC40L3RgtC10YDQv9GA0LXRgtCw0YLQvtGAIExpc3AuIgogIChsZXQgKChnbG9iYWwtZW52aXJvbm1lbnQgJygpKSkKCiAgICAobGFiZWxzICgKICAgICAgKGV2YWx1YXRlIChleHByIGVudikKICAgICAgICAoY29uZAogICAgICAgICAgKChudW1iZXJwIGV4cHIpIGV4cHIpCiAgICAgICAgICAoKHN5bWJvbHAgZXhwcikgKG9yIChjZHIgKGFzc29jIGV4cHIgZW52KSkgKGNkciAoYXNzb2MgZXhwciBnbG9iYWwtZW52aXJvbm1lbnQpKSBleHByKSkgOyDQmNGJ0LXQvCDQt9C90LDRh9C10L3QuNC1INC/0LXRgNC10LzQtdC90L3QvtC5CiAgICAgICAgICAoKGxpc3RwIGV4cHIpCiAgICAgICAgICAgKGxldCAoKGZ1bmN0aW9uIChjYXIgZXhwcikpCiAgICAgICAgICAgICAgICAgKGFyZ3VtZW50cyAoY2RyIGV4cHIpKSkKICAgICAgICAgICAgIChhcHBseS1mdW5jdGlvbiBmdW5jdGlvbiBhcmd1bWVudHMgZW52KSkpCiAgICAgICAgICAodCAoZXJyb3IgItCd0LXQuNC30LLQtdGB0YLQvdGL0Lkg0YLQuNC/INCy0YvRgNCw0LbQtdC90LjRjzogfkEiIGV4cHIpKSkpCgogICAgICAobG9va3VwIChzeW1ib2wgZW52KQogICAgICAgIChhc3NvYyBzeW1ib2wgZW52KSkKCiAgICAgIChhcHBseS1mdW5jdGlvbiAoZnVuY3Rpb24gYXJndW1lbnRzIGVudikKICAgICAgICAoY29uZAogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJ3F1b3RlKSAoY2FyIGFyZ3VtZW50cykpCiAgICAgICAgICAoKGVxbCBmdW5jdGlvbiAnY2FyKSAoY2FyIChldmFsdWF0ZSAoY2FyIGFyZ3VtZW50cykgZW52KSkpCiAgICAgICAgICAoKGVxbCBmdW5jdGlvbiAnY2RyKSAoY2RyIChldmFsdWF0ZSAoY2FyIGFyZ3VtZW50cykgZW52KSkpCiAgICAgICAgICAoKGVxbCBmdW5jdGlvbiAnY29ucykgKGNvbnMgKGV2YWx1YXRlIChjYXIgYXJndW1lbnRzKSBlbnYpIChldmFsdWF0ZSAoY2FkciBhcmd1bWVudHMpIGVudikpKQogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJyspIChhcHBseSAnKyAobWFwY2FyICMnKGxhbWJkYSAoYXJnKSAoZXZhbHVhdGUgYXJnIGVudikpIGFyZ3VtZW50cykpKQogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJy0pIChhcHBseSAnLSAobWFwY2FyICMnKGxhbWJkYSAoYXJnKSAoZXZhbHVhdGUgYXJnIGVudikpIGFyZ3VtZW50cykpKQogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJyopIChhcHBseSAnKiAobWFwY2FyICMnKGxhbWJkYSAoYXJnKSAoZXZhbHVhdGUgYXJnIGVudikpIGFyZ3VtZW50cykpKQogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJy8pIChhcHBseSAnLyAobWFwY2FyICMnKGxhbWJkYSAoYXJnKSAoZXZhbHVhdGUgYXJnIGVudikpIGFyZ3VtZW50cykpKQogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJz0pICg9IChldmFsdWF0ZSAoY2FyIGFyZ3VtZW50cykgZW52KSAoZXZhbHVhdGUgKGNhZHIgYXJndW1lbnRzKSBlbnYpKSkKICAgICAgICAgICgoZXFsIGZ1bmN0aW9uICc8KSAoPCAoZXZhbHVhdGUgKGNhciBhcmd1bWVudHMpIGVudikgKGV2YWx1YXRlIChjYWRyIGFyZ3VtZW50cykgZW52KSkpCiAgICAgICAgICAoKGVxbCBmdW5jdGlvbiAnPikgKD4gKGV2YWx1YXRlIChjYXIgYXJndW1lbnRzKSBlbnYpIChldmFsdWF0ZSAoY2FkciBhcmd1bWVudHMpIGVudikpKQogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJ2xpc3QpIChtYXBjYXIgIycobGFtYmRhIChhcmcpIChldmFsdWF0ZSBhcmcgZW52KSkgYXJndW1lbnRzKSkgOyDQoNC10LDQu9C40LfQsNGG0LjRjyBsaXN0CiAgICAgICAgICAoKGVxbCBmdW5jdGlvbiAnZXhwdCkgKGV4cHQgKGV2YWx1YXRlIChjYXIgYXJndW1lbnRzKSBlbnYpIChldmFsdWF0ZSAoY2FkciBhcmd1bWVudHMpIGVudikpKSA7IFBvd2VyIGZ1bmN0aW9uCiAgICAgICAgICAoKGVxbCBmdW5jdGlvbiAnc3FydG4pIDsg0JrQvtGA0LXQvdGMIG4t0Lkg0YHRgtC10L/QtdC90Lg6IChzcXJ0biB4IG4pCiAgICAgICAgICAgKGxldCAoKHggKGV2YWx1YXRlIChjYXIgYXJndW1lbnRzKSBlbnYpKQogICAgICAgICAgICAgICAgIChuIChldmFsdWF0ZSAoY2FkciBhcmd1bWVudHMpIGVudikpKQogICAgICAgICAgICAgKGV4cHQgeCAoLyAxLjAgbikpKSkgOyDQmNGB0L/QvtC70YzQt9GD0LXQvCDRjdC60YHQv9C+0L3QtdC90YLRgyDQtNC70Y8g0LLRi9GH0LjRgdC70LXQvdC40Y8g0LrQvtGA0L3RjwogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJ2xhbWJkYSkgOyDQm9GP0LzQsdC00LAt0LLRi9GA0LDQttC10L3QuNC1CiAgICAgICAgICAgKGxldCAoKHBhcmFtcyAoY2FkciBmdW5jdGlvbikpCiAgICAgICAgICAgICAgICAgKGJvZHkgKGNhZGRyIGZ1bmN0aW9uKSkKICAgICAgICAgICAgICAgICAoZXZhbHVhdGVkLWFyZ3MgKG1hcGNhciAjJyhsYW1iZGEgKGFyZykgKGV2YWx1YXRlIGFyZyBlbnYpKSBhcmd1bWVudHMpKSkKICAgICAgICAgICAgIChldmFsdWF0ZSBib2R5IChhcHBlbmQgKG1hcGNhciAjJ2NvbnMgcGFyYW1zIGV2YWx1YXRlZC1hcmdzKSBlbnYpKSkpCiAgICAgICAgICAoKGVxbCBmdW5jdGlvbiAnaWYpCiAgICAgICAgICAgKGlmIChldmFsdWF0ZSAoY2FyIGFyZ3VtZW50cykgZW52KQogICAgICAgICAgICAgICAoZXZhbHVhdGUgKGNhZHIgYXJndW1lbnRzKSBlbnYpCiAgICAgICAgICAgICAgIChldmFsdWF0ZSAoY2FkZHIgYXJndW1lbnRzKSBlbnYpKSkgOyBpZgogICAgICAgICAgKChlcWwgZnVuY3Rpb24gJ2RlZnVuKQogICAgICAgICAgIChsZXQgKChuYW1lIChjYXIgYXJndW1lbnRzKSkKICAgICAgICAgICAgICAgICAocGFyYW1zIChjYWRyIGFyZ3VtZW50cykpCiAgICAgICAgICAgICAgICAgKGJvZHkgKGNhZGRyIGFyZ3VtZW50cykpKQogICAgICAgICAgICAgKHNldGYgZ2xvYmFsLWVudmlyb25tZW50IChhY29ucyBuYW1lIGAobGFtYmRhICxwYXJhbXMgLGJvZHkpIGdsb2JhbC1lbnZpcm9ubWVudCkpCiAgICAgICAgICAgICBuYW1lKSkKICAgICAgICAgICgoZXFsIGZ1bmN0aW9uICdzZXRxKQogICAgICAgICAgIChsZXQgKChzeW1ib2wgKGNhciBhcmd1bWVudHMpKQogICAgICAgICAgICAgICAgICh2YWx1ZSAoZXZhbHVhdGUgKGNhZHIgYXJndW1lbnRzKSBlbnYpKSkKICAgICAgICAgICAgICAgKHNldGYgZ2xvYmFsLWVudmlyb25tZW50IChhY29ucyBzeW1ib2wgdmFsdWUgZ2xvYmFsLWVudmlyb25tZW50KSkKICAgICAgICAgICAgICAgdmFsdWUpKQogICAgICAgICAgKHQgIDsg0J/QvtC70YzQt9C+0LLQsNGC0LXQu9GM0YHQutCw0Y8g0YTRg9C90LrRhtC40Y8gKNC40Lcg0LPQu9C+0LHQsNC70YzQvdC+0LPQviDQvtC60YDRg9C20LXQvdC40Y8pCiAgICAgICAgICAgKGxldCAoKGZ1bmMgKGxvb2t1cCBmdW5jdGlvbiBnbG9iYWwtZW52aXJvbm1lbnQpKSkKICAgICAgICAgICAgIChpZiBmdW5jCiAgICAgICAgICAgICAgICAgIChhcHBseS1mdW5jdGlvbiAoZXZhbCAoY2RyIGZ1bmMpKSBhcmd1bWVudHMgZW52KQogICAgICAgICAgICAgICAgIChlcnJvciAi0J3QtdC40LfQstC10YHRgtC90LDRjyDRhNGD0L3QutGG0LjRjzogfkEiIGZ1bmN0aW9uKSkpKQogICAgICAgICAgKSkpCgogICAgICAoZXZhbHVhdGUgZXhwcmVzc2lvbiBnbG9iYWwtZW52aXJvbm1lbnQpKSkpCgo7OyDQn9GA0LjQvNC10YDRiyDQuNGB0L/QvtC70YzQt9C+0LLQsNC90LjRjwooZm9ybWF0IHQgItCg0LXQt9GD0LvRjNGC0LDRgjogfkF+JSIgKGxpc3AtaW50ZXJwcmV0ZXIgJyhjb25zIChjYXIgKGNkciAocXVvdGUgKGUgciB0IHcpKSkpIChjb25zIChjZHIgKHF1b3RlIChnIGggNikpKSAocXVvdGUgKCkpKSkpKQooZm9ybWF0IHQgItCg0LXQt9GD0LvRjNGC0LDRgjogfkF+JSIgKGxpc3AtaW50ZXJwcmV0ZXIgJygrIDIgKCogMyA0KSkpKQooZm9ybWF0IHQgItCg0LXQt9GD0LvRjNGC0LDRgjogfkF+JSIgKGxpc3AtaW50ZXJwcmV0ZXIgJygtIDEwICgvIDYgMikpKSkKKGZvcm1hdCB0ICLQoNC10LfRg9C70YzRgtCw0YI6IH5BfiUiIChsaXNwLWludGVycHJldGVyICcoaWYgKD4gNSAzKSAxMCAyMCkpKQooZm9ybWF0IHQgItCg0LXQt9GD0LvRjNGC0LDRgjogfkF+JSIgKGxpc3AtaW50ZXJwcmV0ZXIgJyhpZiAoPSA1IDMpIDEwIDIwKSkpCihmb3JtYXQgdCAi0KDQtdC30YPQu9GM0YLQsNGCOiB+QX4lIiAobGlzcC1pbnRlcnByZXRlciAnKGNhciAobGlzdCAxIDIgMykpKSkKKGZvcm1hdCB0ICLQoNC10LfRg9C70YzRgtCw0YI6IH5BfiUiIChsaXNwLWludGVycHJldGVyICcoc3FydG4gMTYgMikpKSA7INCa0L7RgNC10L3RjCDQutCy0LDQtNGA0LDRgtC90YvQuSDQuNC3IDE2Cihmb3JtYXQgdCAi0KDQtdC30YPQu9GM0YLQsNGCOiB+QX4lIiAobGlzcC1pbnRlcnByZXRlciAnKHNxcnRuIDI3IDMpKSkgOyDQmtC+0YDQtdC90Ywg0LrRg9Cx0LjRh9C10YHQutC40Lkg0LjQtyAyNwooZm9ybWF0IHQgItCg0LXQt9GD0LvRjNGC0LDRgjogfkF+JSIgKGxpc3AtaW50ZXJwcmV0ZXIgJyhleHB0IDIgMykpKSAgOyAyINCyINGB0YLQtdC/0LXQvdC4IDMK