Как запустить эту программу в Lisp?

; Вводим исходные данные (в соответствие с вариантом)
(setq razmer 1.0)
(setq objects 3)
(setq krit BAYESA)
(setq object1 OLKHON)
(setq object2 BAYKALSK)
(setq object3 LISTVYANKA)
 
(setq factors 3)
(setq factor1 KACHESTVO_OBSLUJIVANIYA)
(setq factor2 INFRASTRUKTURA)
(setq factor3 KULTURNOE_MNOGOOBRAZIE)
 
; Матрица значений сценариев
(setq sc11 0.5)
(setq sc12 0.25)
(setq sc13 0.3)
(setq sc21 0.3)
(setq sc22 0.45)
(setq sc23 0.1)
(setq sc31 0.2)
(setq sc32 0.3)
(setq sc33 0.6)
 
;функция ввода данных в таблицу
(defun check (x) 
 (
  (print x)
  (setq p (read))
  (cond ((> p razmer) (return (check 'Vvedennie Vami dannie neverni!vvedite snova: ))) 
    (x (terpri) (return p)) 
)))
 
; Функция для создания главного меню
(DEFUN GLMENU (
    NUM LEFT-COLUMN DEF )
  (SETQ DEF 0)
  (LOOP
    (SETQ *AUTO-NEWLINE* T)
    (CLOSE-INPUT-FILE)
    (CLOSE-OUTPUT-FILE)
    (CLEAR-SCREEN)
    (background-color 15)
    (foreground-color 1)
    (clear-screen)
    (CENTER "============= MENU =============")
    (SETQ LEFT-COLUMN (MAX 0 (- (TRUNCATE (CADDDR (MAKE-WINDOW)) 2) 22)))
    (SET-CURSOR 2 LEFT-COLUMN)
    (CENTER "0 - PROSMOTR ZADANIYA   ")
    (TERPRI)
    (CENTER "1 - VVOD ISHODNIH TABLIC")
    (TERPRI 2)
    (foreground-color 5)
    (PRINC "Najmite neobhodimyu klavishu ili \"Q\" ")
    (PRINC "dly vyhoda: ")
    (SETQ DEF (checked (LIST* DEF 'Q '( 0 1 ))))
    ((EQ DEF 'Q)
     RESTART)
    (MENU (CAR DEF)))) 
 
; Функция, представляющая вычисление средней оценки по критерию Байеса для 2 значений
(defun sred  (a b )
( 
(setq  z (/ (+ a b) 2))
))
 
; Функция, для подсчета средних суммарных оценок по объектам
(defun sr_sum  (a b q e r t)
( 
(setq  x (+ (* a b) (* q e) (* r t)))
))
 
; Функция, для подсчета итоговых оценок для объектов по критерию Байеса
(defun itog (a b p e )
( 
(setq  x (* a (+ b p e)))
))
 
; Функция сравнения и вывода наилучшего объекта
 (defun out ( p1 p2 p3)
 ((cond ((and (= p1 p2) (= p2 p3)) 'ocenki_mest_ravnoznachni)
     ((cond ((and (= p1 p2) (> p1 p3)) 'OLKHON_i_BAYKALSK_ravnoznachni)
     ((cond ((and (= p1 p3) (> p1 p2)) 'OLKHON_i_LISTVYANKA_ravnoznachni  )
     ((cond ((and (= p2 p3) (> p2 p1)) 'BAYKALSK_i_LISTVYANKA_ravnoznachni  )
     ((cond ((and (= p1 p2) (< p1 p3)) 'LISTVYANKA)
     ((cond ((and (= p1 p3) (< p1 p2)) 'BAYKALSK  )
     ((cond ((and (= p2 p3) (< p2 p1)) 'OLKHON  )
 (if (not(= p1 p2)) 
 (if (not(= p1 p3)) 
 (if (not(= p2 p3))
 (if ( > p1 p2)(if ( > p1 p3)'OLKHON 'LISTVYANKA) 
  (if ( > p2 p3)  'BAYKALSK 'LISTVYANKA)
                     ) ) ) )
 ))  ))  ))  ))  ))  ))  ))         
)
 
; Функция вывода строки с 3 значениями
(defun table (a b c ) (print (list a b c )))
 
; Функция для перехода к соответствующему пункту меню
;РЕКУРСИВНАЯ ФУНКЦИЯ
 
(dEFUN menu (N)  (COND ((= N 0) (PUNCT0))
                       ((= N 1) (PUNCT1))
                       ((> N 1) (MENU (CAR 0)))))
 
; Функция для перехода к выставлению экспертных оценок
(defun punct1 ()
(SETQ R RAZMER)
(clear-screen)
(CENTER "-----========== VVOD ISHODNIH TABLIC ==========-----")
(TERPRI 2)
    (PRINC "Expertnie ocenki vistavlyutsy dla factorov i obektov  ")
    (PRINC "v zavisimosti ot ih znachimosti v sootvetstvie so shkaloi razmernosti.")
    (TERPRI)
    (PRINC  "Ustanovlennay razmernost = ") 
    (PRINT R) 
    (TERPRI 2)
(PRINC "Vvedite neobhodimyu ocenky dla factorov: ")
    (TERPRI)
 
(print -----------------------------KRITERII-----------------------------------)
(setq a12 (check vvedite_kachestvo_obslujivaniya_k_infrastructure))
(setq a13 (check vvedite_kachestvo_obslujivaniya_k_kulturnomu_mnogoobraziyu))
 
(setq a21 (check vvedite_infrastructura_k_kachestvu_obslujivaniya))
(setq a23 (check vvedite_infrastructura_k_kulturnomu_mnogoobraziyu))
 
(setq a31 (check vvedite_kulturnoe_mnogoobrazie_k_kachestvu_obslujivaniya))
(setq a32 (check vvedite_kulturnoe_mnogoobrazie_k_infrastructure))
 
(print -----------------------------KACHESTVO_OBSLUJIVANIYA------------------------)
(setq b12 (check vvedite_otnoshenie_OLKHON_k_BAYKALSKU))
(setq b13 (check vvedite_otnoshenie_OLKHON_k_LISTVYANKE))
(setq b21 (check vvedite_otnoshenie_BAYKALSK_k_OLKHONU))
(setq b23 (check vvedite_otnoshenie_BAYKALSK_k_LISTVYANKE))
(setq b31 (check vvedite_otnoshenie_LISTVYANKA_k_OLKHONU))
(setq b32 (check vvedite_otnoshenie_LISTVYANKA_k_BAYKALSKU))
(print -----------------------------INFRASTRUCTURA-------------------------) 
(setq i12 (check vvedite_otnoshenie_OLKHON_k_BAYKALSKU))
(setq i13 (check vvedite_otnoshenie_OLKHON_k_LISTVYANKE))
(setq i21 (check vvedite_otnoshenie_BAYKALSK_k_OLKHONU))
(setq i23 (check vvedite_otnoshenie_BAYKALSK_k_LISTVYANKE))
(setq i31 (check vvedite_otnoshenie_LISTVYANKA_k_OLKHONU))
(setq i32 (check vvedite_otnoshenie_LISTVYANKA_k_BAYKALSKU))(print -----------------------------KULTURNOE_MNOGOOBRAZIE--------------------------)
(setq d12 (check vvedite_otnoshenie_OLKHON_k_BAYKALSKU))
(setq d13 (check vvedite_otnoshenie_OLKHON_k_LISTVYANKE))
(setq d21 (check vvedite_otnoshenie_BAYKALSK_k_OLKHONU))
(setq d23 (check vvedite_otnoshenie_BAYKALSK_k_LISTVYANKE))
(setq d31 (check vvedite_otnoshenie_LISTVYANKA_k_OLKHONU))
(setq d32 (check vvedite_otnoshenie_LISTVYANKA_k_BAYKALSKU))
 
;обращение к функции, вычисляющей среднюю оценку по критерию Байеса
(setq sr1 (sred  a12 a13))
(setq sr2 (sred  a21 a23))
(setq sr3 (sred  a31 a32))
 
(setq sb1 (sred  b12 b13))
(setq sb2 (sred  b21 b23))
(setq sb3 (sred  b31 b32))
 
(setq si1 (sred  i12 i13))
(setq si2 (sred  i21 i23))
(setq si3 (sred  i31 i32))
 
(setq sd1 (sred  d12 d13))
(setq sd2 (sred  d21 d23))
(setq sd3 (sred  d31 d32))
 
(setq sum_1 (sr_sum sr1 sb1 sr2 si1 sr3 sd1))
(setq sum_2 (sr_sum sr1 sb2 sr2 si2 sr3 sd2))
(setq sum_3 (sr_sum sr1 sb3 sr2 si3 sr3 sd3))
 
 
(setq res1 (itog sum_1 sc11 sc12 sc13))
(setq res2 (itog sum_2 sc21 sc22 sc23))
(setq res3 (itog sum_3 sc31 sc32 sc33))
 
(setq vivod (out res1 res2 res3))
 
; Оформление результата
(CENTER "-----========== RESULTAT ITOGOVOY FUNKCII==========-----")
(TERPRI 2)
(table object1  object2  object3)
(table res1     res2      res3)
(TERPRI 2)
(CENTER "-----========== VIVOD LUCHSHEGO RESULTATA==========-----")
(print vivod )
 
 
(PRINC "Vvedite 1-MENU, \"Q\"-")
(PRINC "Vihod: ")
(SETQ zn (checked (LIST* zn 'Q '( 1 ))))
((EQ zn 1)
(GLMENU))
(restart))
 
 ; Функция для итогового подсчета               
(defun punct0 () (clear-screen)
(CENTER "====================*** INFORMACIYA***====================")
(TERPRI 3)
(CENTER "-----========== ISHODNIE ZNACHENIYA ==========-----")
(TERPRI 2)
    (PRINc  "Ustanovlennaya razmernost = ") 
    (PRINT  RAZMER) 
    (PRINc "Kolichestvo rassmatrivaemih factorov = ")
    (PRINT  factors)
    (PRINc "Kolichestvo rassmatrivaemih obectov = " )
    (PRINT  objects)
    (PRINc  "Kriteriy prinyatiya resheniya - ") 
    (PRINT  krit) 
    (PRINc  "Kolichestvo vozmojnih scenariev = 3") 
    (TERPRI 2)
    (PRINc  "Raspredelenie veroyatnostey po scenariyam: ") 
    (TERPRI 2)
   (PRINc  "scanariy #1 :")
   (table sc11     sc21      sc31)
   (PRINc  "scanariy #2 :")
   (table sc12     sc22      sc32)
   (PRINc  "scanariy #3 :")
   (table sc13     sc23      sc33)
 
 
    (SETQ zn 0)
    (PRINC "Vvedite 1-MENU, \"Q\"-")
    (PRINC "Vihod: ")
    (SETQ zn (checked (LIST* zn 'Q '( 1 ))))
    ((EQ zn 1)
     GLMENU)
    (restart))
 
; Функция для считывания данных, введенных пользователем
(DEFUN checked (LST
    CHAR)
  (CLEAR-INPUT T)
  (LOOP
   (SETQ CHAR (CHAR-UPCASE (ASCII (READ-BYTE T))))
   (IF (<= 48 (ASCII CHAR) 57)
  (SETQ CHAR (- (ASCII CHAR) 48)))
    ((MEMBER CHAR LST)
     (PRINC CHAR)
      CHAR )
    ((EQ CHAR '" ")
      (PRINC (CAR LST))
      (CAR LST) )
    ( ((EQ CHAR (ASCII 10)))
      ((EQ BELL))
      (WRITE-BYTE 7) ) ) )
 
; Функция для создания заголовков
 
(DEFUN CENTER (MSG)
  (SET-CURSOR (ROW) (TRUNCATE (- (CADDDR (MAKE-WINDOW)) (LENGTH MSG)) 2))                                                                                                                                       
  (WRITE-STRING MSG) )
 
;Осуществляем вызов функции меню 
(GLMENU)