Как запустить это программу в vlisp ?
(defun FFMESHK( / m n i j xk1 xk2 xk yk1 yk2 yk zk1 zk2 zk pnt ch
                 buf nach dl k k1)
   (load "C:\\acad2008\\model\\kroms")
   (setq f1 (open "C:\\acad2008\\model" "r"))
   (setq m (read-line f1) m (car (read m)))
   (setq i 0 ch 0)
   (command "setvar" "splframe" 1
            "setvar" "surftab1" 60)
   (setq xukl0 nil yukl0 nil zukl0 nil
         xukl1 nil yukl1 nil zukl1 nil
         xukp0 nil yukp0 nil zukp0 nil
         xukp1 nil yukp1 nil zukp1 nil
         xukp2 nil yukp2 nil zukp2 nil
         xukl2 nil yukl2 nil zukl2 nil)
   (repeat m
      (setq i (+ i 1))
      (setq xk1 (read-line f1) xk1 (read xk1)
            xk2 (read-line f1) xk2 (read xk2)
            xk (append xk1 xk2)
            yk1 (read-line f1) yk1 (read yk1)
            yk2 (read-line f1) yk2 (read yk2)
            yk (append yk1 yk2)
            zk1 (read-line f1) zk1 (read zk1)
            zk2 (read-line f1) zk2 (read zk2)
            zk (append zk1 zk2))
             (setq n (length xk)
                   ch (+ ch n))
            (setq buf (cons ch buf))
      (if (= i 1)
          (progn
             (setq flsp (open "C:\\acad2008\\model\\meshfork.lsp" "w"))
             (write-line "(command \"3dmesh\" " flsp)
             (princ m flsp)
             (print n flsp)
           );progn
     );if
      (setq j 0)
      (repeat n
          (setq pnt (strcat "\n'(" (rtos (nth j xk) 2 2) " "
                                   (rtos (nth j yk) 2 2) " "
                                   (rtos (nth j zk) 2 2) ")"))
          (princ pnt flsp)
          (setq j (+ j 1)) ); end repeat
   (repeat 6 (read-line f1))
        (setq xukl0 (cons (car xk) xukl0) yukl0 (cons (car yk) yukl0)
              zukl0 (cons (car zk) zukl0)
              xukp0 (cons (last xk) xukp0) yukp0 (cons (last yk) yukp0)
              zukp0 (cons (last zk) zukp0)
              xukl1 (cons (nth 0 cac8) xukl1)
              yukl1 (cons (car yk) yukl1)
              zukl1 (cons (car zk) zukl1)
              xukp1 (cons (nth 0 cac9) xukp1)
              yukp1 (cons (last yk) yukp1)
              zukp1 (cons (last zk) zukp1)
              xukl2 (cons (nth 0 cac8) xukl2)
              yukl2 (cons (- 0 basv) yukl2)
              zukl2 (cons (car zk) zukl2)
              xukp2 (cons (nth 0 cac9) xukp2)
              yukp2 (cons (- 0 basv) yukp2)
              zukp2 (cons (last zk) zukp2)
        )
   ); end repeat
   (write-line ")" flsp)
   (close flsp)
  (if (> (car zukl0) (last zukl0))
     (progn
     (setq xukl0 (reverse xukl0) yukl0 (reverse yukl0) zukl0 (reverse zukl0)
           xukl1 (reverse xukl1) yukl1 (reverse yukl1) zukl1 (reverse zukl1)
           xukp0 (reverse xukp0) yukp0 (reverse yukp0) zukp0 (reverse zukp0)
           xukp1 (reverse xukp1) yukp1 (reverse yukp1) zukp1 (reverse zukp1)
           xukl2 (reverse xukl2) yukl2 (reverse yukl2) zukl2 (reverse zukl2)
           xukp2 (reverse xukp2) yukp2 (reverse yukp2) zukp2 (reverse zukp2)
     )
    );progn
   );if
      (setq xukl0 (cdr xukl0) yukl0 (cdr yukl0) zukl0 (cdr zukl0)
            xukl1 (cdr xukl1) yukl1 (cdr yukl1) zukl1 (cdr zukl1)
            xukp0 (cdr xukp0) yukp0 (cdr yukp0) zukp0 (cdr zukp0)
            xukp1 (cdr xukp1) yukp1 (cdr yukp1) zukp1 (cdr zukp1)
            xukl2 (cdr xukl2) yukl2 (cdr yukl2) zukl2 (cdr zukl2)
            xukp2 (cdr xukp2) yukp2 (cdr yukp2) zukp2 (cdr zukp2)
       )
   (KROMS xukl0 yukl0 zukl0 xukl1 yukl1 zukl1)
    (load "C:\\acad2008\\model\\kroms1") (setq kroms1 nil)
   (KROMS xukp0 yukp0 zukp0 xukp1 yukp1 zukp1)
  (load "C:\\acad2008\\model\\kroms1") (setq kroms1 nil)
   (KROMS xukl1 yukl1 zukl1 xukl2 yukl2 zukl2)
    (load "C:\\acad2008\\model\\kroms1") (setq kroms1 nil)
   (KROMS xukp1 yukp1 zukp1 xukp2 yukp2 zukp2)
  (load "C:\\acad2008\\kroms1") (setq kroms1 nil)
 ); end  FFMESHK