Программа типа "doctor"

   ; Modelirovanie psihiatra ;
   (DEFUN DOCTOR (LAMBDA NIL
      (PRINT 'govorite!)
      (SETQ FLAG NIL)
      (LOOP
         (SETQ S (READ))
         (COND ( (MATCH '(menya volnuet *L) S)
                   (PRINT (APPEND '(kak davno vas volnuet)
                                   L)) )
               ( (MATCH '(* ‹…’) S)
                   (SETQ FLAG T)
                   (PRINT (APPEND '(rasskazhite bolshe o)
                                   L)) )
               ( (MATCH '(* komputery *) S)
                   (PRINT (APPEND '(komputery pugayut)
                                   L)) )
               ( (OR (MATCH '(net) S) (MATCH '(da) S))
                   (PRINT '(pozhaluysta ne budte kratki)) )
               ( MOTHER
                   (SETQ FLAG NIL)
                   (PRINT (LIST '(vy govorili o) L)) )
               ( T (PRINT '(prodolzhim nash dialog!)) )
         )
      )
   ))
   ; ---------------------- ;
   (DEFUN MATCH (LAMBDA (P D)
      (COND  ( (AND (NULL P) (NULL D))  T  )
             ( (OR  (NULL P) (NULL D)) NIL )
             ( (OR (EQ (CAR P) '?) (EQ (CAR P) (CAR D)))
                 (MATCH (CDR P) (CDR D)) )
             ( (AND (ATOM (CAR P)) (EQ (ATOMCAR (CAR P)) '>)
                  (MATCH (CDR P) (CDR D)))
                 (SET (ATOMCDR (CAR P)) (CAR D)) T )
             ( (EQ (CAR P) '*)
                 (COND ( (MATCH (CDR P) (CDR D)) )
                       ( (MATCH P (CDR D))) ) )
             ( (AND (ATOM (CAR P)) (EQ (ATOMCAR (CAR P)) '*))
                 (COND ( (MATCH (CDR P) (CDR D))
                          (SET (ATOMCDR (CAR P))
                               (LIST (CAR D))) T)
                       ( (MATCH P (CDR D))
                          (SET (ATOMCDR (CAR P))
                               (CONS (CAR D)
                                   (EVAL (ATOMCDR (CAR P))))
                          ) T ) ) )
      )
   ))
   ; ---------------------- ;
   (DEFUN ATOMCAR (LAMBDA (X)
   ; Vydelenie pervogo simvola literaturnogo atoma ;
      (CAR (UNPACK X))
   ))
   ; ---------------------- ;
   (DEFUN ATOMCDR (LAMBDA (X)
   ; Vydelenie hvosta imeni literaturnogo atoma ;
      (PACK (CDR (UNPACK X)))
   ))
   ; ----------------------------- ;
   (DEFUN APPEND (LAMBDA (LST1 LST2)
      (COND ( (NULL LST1) LST2 )
            ( (NULL LST2) LST1 )
            (  T  (CONS (CAR LST1)
                        (APPEND (CDR LST1) LST2)) )
      )
   ))
(DOCTOR)