
(/VERSIONCHECK 2) 

(DEFUN |ES-;box;2S;1| (|x| $) (SPADCALL (LIST |x|) (QREFELT $ 15))) 

(DEFUN |ES-;paren;2S;2| (|x| $) (SPADCALL (LIST |x|) (QREFELT $ 17))) 

(DEFUN |ES-;belong?;BoB;3| (|op| $)
  (COND ((SPADCALL |op| (QREFELT $ 12) (QREFELT $ 20)) 'T)
        ('T (SPADCALL |op| (QREFELT $ 13) (QREFELT $ 20))))) 

(DEFUN |ES-;listk| (|f| $) (SPADCALL (|ES-;allKernels| |f| $) (QREFELT $ 24))) 

(DEFUN |ES-;tower;SL;5| (|f| $) (SPADCALL (|ES-;listk| |f| $) (QREFELT $ 25))) 

(DEFUN |ES-;allk| (|l| $)
  (PROG (#1=#:G2688 |f| #2=#:G2687)
    (RETURN
     (SEQ
      (SPADCALL (ELT $ 29)
                (PROGN
                 (LETT #2# NIL . #3=(|ES-;allk|))
                 (SEQ (LETT |f| NIL . #3#) (LETT #1# |l| . #3#) G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |f| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2# (CONS (|ES-;allKernels| |f| $) #2#) . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#))))
                (SPADCALL NIL (QREFELT $ 28)) (QREFELT $ 32)))))) 

(DEFUN |ES-;operators;SL;7| (|f| $)
  (PROG (#1=#:G2693 |k| #2=#:G2692)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|ES-;operators;SL;7|))
       (SEQ (LETT |k| NIL . #3#) (LETT #1# (|ES-;listk| |f| $) . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT (LETT #2# (CONS (SPADCALL |k| (QREFELT $ 34)) #2#) . #3#)))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |ES-;height;SNni;8| (|f| $)
  (PROG (#1=#:G2699 |k| #2=#:G2698)
    (RETURN
     (SEQ
      (SPADCALL (ELT $ 40)
                (PROGN
                 (LETT #2# NIL . #3=(|ES-;height;SNni;8|))
                 (SEQ (LETT |k| NIL . #3#)
                      (LETT #1# (SPADCALL |f| (QREFELT $ 37)) . #3#) G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2# (CONS (SPADCALL |k| (QREFELT $ 39)) #2#)
                              . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#))))
                0 (QREFELT $ 43)))))) 

(DEFUN |ES-;freeOf?;SSB;9| (|x| |s| $)
  (PROG (#1=#:G2705 |k| #2=#:G2704)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |s|
                  (PROGN
                   (LETT #2# NIL . #3=(|ES-;freeOf?;SSB;9|))
                   (SEQ (LETT |k| NIL . #3#)
                        (LETT #1# (|ES-;listk| |x| $) . #3#) G190
                        (COND
                         ((OR (ATOM #1#)
                              (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
                          (GO G191)))
                        (SEQ
                         (EXIT
                          (LETT #2# (CONS (SPADCALL |k| (QREFELT $ 45)) #2#)
                                . #3#)))
                        (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                        (EXIT (NREVERSE0 #2#))))
                  (QREFELT $ 47))
        'NIL)
       ('T 'T)))))) 

(DEFUN |ES-;distribute;2S;10| (|x| $)
  (PROG (#1=#:G2709 |k| #2=#:G2708)
    (RETURN
     (SEQ
      (|ES-;unwrap|
       (PROGN
        (LETT #2# NIL . #3=(|ES-;distribute;2S;10|))
        (SEQ (LETT |k| NIL . #3#) (LETT #1# (|ES-;listk| |x| $) . #3#) G190
             (COND
              ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
               (GO G191)))
             (SEQ
              (EXIT
               (COND
                ((SPADCALL |k| (QREFELT $ 12) (QREFELT $ 49))
                 (LETT #2# (CONS |k| #2#) . #3#)))))
             (LETT #1# (CDR #1#) . #3#) (GO G190) G191 (EXIT (NREVERSE0 #2#))))
       |x| $))))) 

(DEFUN |ES-;box;LS;11| (|l| $) (SPADCALL (QREFELT $ 13) |l| (QREFELT $ 51))) 

(DEFUN |ES-;paren;LS;12| (|l| $) (SPADCALL (QREFELT $ 12) |l| (QREFELT $ 51))) 

(DEFUN |ES-;freeOf?;2SB;13| (|x| |k| $)
  (COND
   ((SPADCALL (SPADCALL |k| (QREFELT $ 55)) (|ES-;listk| |x| $) (QREFELT $ 56))
    'NIL)
   ('T 'T))) 

(DEFUN |ES-;kernel;Bo2S;14| (|op| |arg| $)
  (SPADCALL |op| (LIST |arg|) (QREFELT $ 58))) 

(DEFUN |ES-;elt;Bo2S;15| (|op| |x| $) (SPADCALL |op| (LIST |x|) (QREFELT $ 51))) 

(DEFUN |ES-;elt;Bo3S;16| (|op| |x| |y| $)
  (SPADCALL |op| (LIST |x| |y|) (QREFELT $ 51))) 

(DEFUN |ES-;elt;Bo4S;17| (|op| |x| |y| |z| $)
  (SPADCALL |op| (LIST |x| |y| |z|) (QREFELT $ 51))) 

(DEFUN |ES-;elt;Bo5S;18| (|op| |x| |y| |z| |t| $)
  (SPADCALL |op| (LIST |x| |y| |z| |t|) (QREFELT $ 51))) 

(DEFUN |ES-;eval;SSMS;19| (|x| |s| |f| $)
  (SPADCALL |x| (LIST |s|) (LIST |f|) (QREFELT $ 66))) 

(DEFUN |ES-;eval;SBoMS;20| (|x| |s| |f| $)
  (SPADCALL |x| (LIST (SPADCALL |s| (QREFELT $ 68))) (LIST |f|) (QREFELT $ 66))) 

(DEFUN |ES-;eval;SSMS;21| (|x| |s| |f| $)
  (PROG ()
    (RETURN
     (SPADCALL |x| (LIST |s|)
               (LIST (CONS #'|ES-;eval;SSMS;21!0| (VECTOR |f| $)))
               (QREFELT $ 66))))) 

(DEFUN |ES-;eval;SSMS;21!0| (|y| $$)
  (PROG ($ |f|)
    (LETT $ (QREFELT $$ 1) . #1=(|ES-;eval;SSMS;21|))
    (LETT |f| (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL (SPADCALL |y| (QREFELT $ 71)) |f|))))) 

(DEFUN |ES-;eval;SBoMS;22| (|x| |s| |f| $)
  (PROG ()
    (RETURN
     (SPADCALL |x| (LIST |s|)
               (LIST (CONS #'|ES-;eval;SBoMS;22!0| (VECTOR |f| $)))
               (QREFELT $ 74))))) 

(DEFUN |ES-;eval;SBoMS;22!0| (|y| $$)
  (PROG ($ |f|)
    (LETT $ (QREFELT $$ 1) . #1=(|ES-;eval;SBoMS;22|))
    (LETT |f| (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL (SPADCALL |y| (QREFELT $ 71)) |f|))))) 

(DEFUN |ES-;subst;SES;23| (|x| |e| $) (SPADCALL |x| (LIST |e|) (QREFELT $ 77))) 

(DEFUN |ES-;eval;SLLS;24| (|x| |ls| |lf| $)
  (PROG (#1=#:G2733 |f| #2=#:G2732)
    (RETURN
     (SEQ
      (SPADCALL |x| |ls|
                (PROGN
                 (LETT #2# NIL . #3=(|ES-;eval;SLLS;24|))
                 (SEQ (LETT |f| NIL . #3#) (LETT #1# |lf| . #3#) G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |f| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2#
                              (CONS
                               (CONS #'|ES-;eval;SLLS;24!0| (VECTOR |f| $))
                               #2#)
                              . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#))))
                (QREFELT $ 74)))))) 

(DEFUN |ES-;eval;SLLS;24!0| (|y| $$)
  (PROG ($ |f|)
    (LETT $ (QREFELT $$ 1) . #1=(|ES-;eval;SLLS;24|))
    (LETT |f| (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL (SPADCALL |y| (QREFELT $ 71)) |f|))))) 

(DEFUN |ES-;eval;SLLS;25| (|x| |ls| |lf| $)
  (PROG (#1=#:G2737 |f| #2=#:G2736)
    (RETURN
     (SEQ
      (SPADCALL |x| |ls|
                (PROGN
                 (LETT #2# NIL . #3=(|ES-;eval;SLLS;25|))
                 (SEQ (LETT |f| NIL . #3#) (LETT #1# |lf| . #3#) G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |f| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2#
                              (CONS
                               (CONS #'|ES-;eval;SLLS;25!0| (VECTOR |f| $))
                               #2#)
                              . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#))))
                (QREFELT $ 66)))))) 

(DEFUN |ES-;eval;SLLS;25!0| (|y| $$)
  (PROG ($ |f|)
    (LETT $ (QREFELT $$ 1) . #1=(|ES-;eval;SLLS;25|))
    (LETT |f| (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL (SPADCALL |y| (QREFELT $ 71)) |f|))))) 

(DEFUN |ES-;eval;SLLS;26| (|x| |ls| |lf| $)
  (PROG (#1=#:G2742 |s| #2=#:G2741)
    (RETURN
     (SEQ
      (SPADCALL |x|
                (PROGN
                 (LETT #2# NIL . #3=(|ES-;eval;SLLS;26|))
                 (SEQ (LETT |s| NIL . #3#) (LETT #1# |ls| . #3#) G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2# (CONS (SPADCALL |s| (QREFELT $ 68)) #2#)
                              . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#))))
                |lf| (QREFELT $ 66)))))) 

(DEFUN |ES-;map;MKS;27| (|fn| |k| $)
  (PROG (|l| #1=#:G2759 |x| #2=#:G2758)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL
         (LETT |l|
               (PROGN
                (LETT #2# NIL . #3=(|ES-;map;MKS;27|))
                (SEQ (LETT |x| NIL . #3#)
                     (LETT #1# (SPADCALL |k| (QREFELT $ 84)) . #3#) G190
                     (COND
                      ((OR (ATOM #1#) (PROGN (LETT |x| (CAR #1#) . #3#) NIL))
                       (GO G191)))
                     (SEQ
                      (EXIT (LETT #2# (CONS (SPADCALL |x| |fn|) #2#) . #3#)))
                     (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                     (EXIT (NREVERSE0 #2#))))
               . #3#)
         (SPADCALL |k| (QREFELT $ 84)) (QREFELT $ 85))
        (SPADCALL |k| (QREFELT $ 86)))
       ('T (SPADCALL (SPADCALL |k| (QREFELT $ 34)) |l| (QREFELT $ 51)))))))) 

(DEFUN |ES-;operator;2Bo;28| (|op| $)
  (COND ((SPADCALL |op| '|%paren| (QREFELT $ 88)) (QREFELT $ 12))
        ((SPADCALL |op| '|%box| (QREFELT $ 88)) (QREFELT $ 13))
        ('T (|error| "Unknown operator")))) 

(DEFUN |ES-;mainKernel;SU;29| (|x| $)
  (PROG (|k| |n| #1=#:G2775 |kk| |l|)
    (RETURN
     (SEQ
      (COND
       ((NULL
         (LETT |l| (SPADCALL |x| (QREFELT $ 37))
               . #2=(|ES-;mainKernel;SU;29|)))
        (CONS 1 "failed"))
       ('T
        (SEQ
         (LETT |n| (SPADCALL (LETT |k| (|SPADfirst| |l|) . #2#) (QREFELT $ 39))
               . #2#)
         (SEQ (LETT |kk| NIL . #2#) (LETT #1# (CDR |l|) . #2#) G190
              (COND
               ((OR (ATOM #1#) (PROGN (LETT |kk| (CAR #1#) . #2#) NIL))
                (GO G191)))
              (SEQ
               (EXIT
                (COND
                 ((< |n| (SPADCALL |kk| (QREFELT $ 39)))
                  (SEQ (LETT |n| (SPADCALL |kk| (QREFELT $ 39)) . #2#)
                       (EXIT (LETT |k| |kk| . #2#)))))))
              (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
         (EXIT (CONS 0 |k|))))))))) 

(DEFUN |ES-;allKernels| (|f| $)
  (PROG (|s| |t| |arg| |n| |s0| |u| #1=#:G2789 |k| |l|)
    (RETURN
     (SEQ
      (LETT |s|
            (SPADCALL
             (LETT |l| (SPADCALL |f| (QREFELT $ 37)) . #2=(|ES-;allKernels|))
             (QREFELT $ 28))
            . #2#)
      (SEQ (LETT |k| NIL . #2#) (LETT #1# |l| . #2#) G190
           (COND
            ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #2#) NIL)) (GO G191)))
           (SEQ
            (LETT |t|
                  (SEQ
                   (LETT |u|
                         (SPADCALL (SPADCALL |k| (QREFELT $ 34)) (QREFELT $ 7)
                                   (QREFELT $ 93))
                         . #2#)
                   (EXIT
                    (COND
                     ((QEQCAR |u| 0)
                      (SEQ (LETT |arg| (SPADCALL |k| (QREFELT $ 84)) . #2#)
                           (LETT |s0|
                                 (SPADCALL
                                  (SPADCALL (SPADCALL |arg| (QREFELT $ 94))
                                            (QREFELT $ 55))
                                  (|ES-;allKernels| (|SPADfirst| |arg|) $)
                                  (QREFELT $ 95))
                                 . #2#)
                           (LETT |arg| (CDR (CDR |arg|)) . #2#)
                           (LETT |n| (QCDR |u|) . #2#)
                           (COND ((< 1 |n|) (LETT |arg| (CDR |arg|) . #2#)))
                           (EXIT
                            (SPADCALL |s0| (|ES-;allk| |arg| $)
                                      (QREFELT $ 29)))))
                     ('T (|ES-;allk| (SPADCALL |k| (QREFELT $ 84)) $)))))
                  . #2#)
            (EXIT (LETT |s| (SPADCALL |s| |t| (QREFELT $ 29)) . #2#)))
           (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
      (EXIT |s|))))) 

(DEFUN |ES-;kernel;BoLS;31| (|op| |args| $)
  (COND ((NULL (SPADCALL |op| (QREFELT $ 96))) (|error| "Unknown operator"))
        ('T (|ES-;okkernel| |op| |args| $)))) 

(DEFUN |ES-;okkernel| (|op| |l| $)
  (PROG (#1=#:G2797 |f| #2=#:G2796)
    (RETURN
     (SEQ
      (SPADCALL
       (SPADCALL |op| |l|
                 (+ 1
                    (SPADCALL (ELT $ 40)
                              (PROGN
                               (LETT #2# NIL . #3=(|ES-;okkernel|))
                               (SEQ (LETT |f| NIL . #3#) (LETT #1# |l| . #3#)
                                    G190
                                    (COND
                                     ((OR (ATOM #1#)
                                          (PROGN
                                           (LETT |f| (CAR #1#) . #3#)
                                           NIL))
                                      (GO G191)))
                                    (SEQ
                                     (EXIT
                                      (LETT #2#
                                            (CONS (SPADCALL |f| (QREFELT $ 98))
                                                  #2#)
                                            . #3#)))
                                    (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                                    (EXIT (NREVERSE0 #2#))))
                              0 (QREFELT $ 43)))
                 (QREFELT $ 99))
       (QREFELT $ 86)))))) 

(DEFUN |ES-;elt;BoLS;33| (|op| |args| $)
  (PROG (|v| #1=#:G2814 |u|)
    (RETURN
     (SEQ
      (EXIT
       (COND
        ((NULL (SPADCALL |op| (QREFELT $ 96))) (|error| "Unknown operator"))
        ('T
         (SEQ
          (SEQ
           (LETT |u| (SPADCALL |op| (QREFELT $ 101)) . #2=(|ES-;elt;BoLS;33|))
           (EXIT
            (COND
             ((QEQCAR |u| 0)
              (COND
               ((NULL (EQL (LENGTH |args|) (QCDR |u|)))
                (PROGN
                 (LETT #1# (|error| "Wrong number of arguments") . #2#)
                 (GO #1#))))))))
          (LETT |v| (SPADCALL |op| |args| (QREFELT $ 104)) . #2#)
          (EXIT
           (COND ((QEQCAR |v| 0) (QCDR |v|))
                 ('T (|ES-;okkernel| |op| |args| $))))))))
      #1# (EXIT #1#))))) 

(DEFUN |ES-;retract;SK;34| (|f| $)
  (PROG (|k|)
    (RETURN
     (SEQ (LETT |k| (SPADCALL |f| (QREFELT $ 106)) |ES-;retract;SK;34|)
          (EXIT
           (COND
            ((OR (QEQCAR |k| 1)
                 (NULL
                  (SPADCALL (SPADCALL (QCDR |k|) (QREFELT $ 86)) |f|
                            (QREFELT $ 107))))
             (|error| "not a kernel"))
            ('T (QCDR |k|)))))))) 

(DEFUN |ES-;retractIfCan;SU;35| (|f| $)
  (PROG (|k|)
    (RETURN
     (SEQ (LETT |k| (SPADCALL |f| (QREFELT $ 106)) |ES-;retractIfCan;SU;35|)
          (EXIT
           (COND
            ((OR (QEQCAR |k| 1)
                 (NULL
                  (SPADCALL (SPADCALL (QCDR |k|) (QREFELT $ 86)) |f|
                            (QREFELT $ 107))))
             (CONS 1 "failed"))
            ('T |k|))))))) 

(DEFUN |ES-;is?;SSB;36| (|f| |s| $)
  (PROG (|k|)
    (RETURN
     (SEQ (LETT |k| (SPADCALL |f| (QREFELT $ 110)) |ES-;is?;SSB;36|)
          (EXIT
           (COND ((QEQCAR |k| 1) 'NIL)
                 ('T (SPADCALL (QCDR |k|) |s| (QREFELT $ 111))))))))) 

(DEFUN |ES-;is?;SBoB;37| (|f| |op| $)
  (PROG (|k|)
    (RETURN
     (SEQ (LETT |k| (SPADCALL |f| (QREFELT $ 110)) |ES-;is?;SBoB;37|)
          (EXIT
           (COND ((QEQCAR |k| 1) 'NIL)
                 ('T (SPADCALL (QCDR |k|) |op| (QREFELT $ 49))))))))) 

(DEFUN |ES-;unwrap| (|l| |x| $)
  (PROG (#1=#:G2840 |k|)
    (RETURN
     (SEQ
      (SEQ (LETT |k| NIL . #2=(|ES-;unwrap|)) (LETT #1# (NREVERSE |l|) . #2#)
           G190
           (COND
            ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #2#) NIL)) (GO G191)))
           (SEQ
            (EXIT
             (LETT |x|
                   (SPADCALL |x| |k|
                             (|SPADfirst| (SPADCALL |k| (QREFELT $ 84)))
                             (QREFELT $ 114))
                   . #2#)))
           (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
      (EXIT |x|))))) 

(DEFUN |ES-;distribute;3S;39| (|x| |y| $)
  (PROG (#1=#:G2848 |k| #2=#:G2847 |ky|)
    (RETURN
     (SEQ
      (LETT |ky| (SPADCALL |y| (QREFELT $ 55)) . #3=(|ES-;distribute;3S;39|))
      (EXIT
       (|ES-;unwrap|
        (PROGN
         (LETT #2# NIL . #3#)
         (SEQ (LETT |k| NIL . #3#) (LETT #1# (|ES-;listk| |x| $) . #3#) G190
              (COND
               ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
                (GO G191)))
              (SEQ
               (EXIT
                (COND
                 ((COND
                   ((SPADCALL |k| '|%paren| (QREFELT $ 111))
                    (SPADCALL |ky|
                              (|ES-;listk| (SPADCALL |k| (QREFELT $ 86)) $)
                              (QREFELT $ 56)))
                   ('T 'NIL))
                  (LETT #2# (CONS |k| #2#) . #3#)))))
              (LETT #1# (CDR #1#) . #3#) (GO G190) G191
              (EXIT (NREVERSE0 #2#))))
        |x| $)))))) 

(DEFUN |ES-;eval;SLS;40| (|f| |leq| $)
  (PROG (|rec|)
    (RETURN
     (SEQ (LETT |rec| (|ES-;mkKerLists| |leq| $) |ES-;eval;SLS;40|)
          (EXIT (SPADCALL |f| (QCAR |rec|) (QCDR |rec|) (QREFELT $ 116))))))) 

(DEFUN |ES-;subst;SLS;41| (|f| |leq| $)
  (PROG (|rec|)
    (RETURN
     (SEQ (LETT |rec| (|ES-;mkKerLists| |leq| $) |ES-;subst;SLS;41|)
          (EXIT (SPADCALL |f| (QCAR |rec|) (QCDR |rec|) (QREFELT $ 118))))))) 

(DEFUN |ES-;mkKerLists| (|leq| $)
  (PROG (|lv| |lk| |k| #1=#:G2867 |eq|)
    (RETURN
     (SEQ (LETT |lk| NIL . #2=(|ES-;mkKerLists|)) (LETT |lv| NIL . #2#)
          (SEQ (LETT |eq| NIL . #2#) (LETT #1# |leq| . #2#) G190
               (COND
                ((OR (ATOM #1#) (PROGN (LETT |eq| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ
                (LETT |k|
                      (SPADCALL (SPADCALL |eq| (QREFELT $ 121))
                                (QREFELT $ 110))
                      . #2#)
                (EXIT
                 (COND
                  ((QEQCAR |k| 1)
                   (|error| "left hand side must be a single kernel"))
                  ((NULL (SPADCALL (QCDR |k|) |lk| (QREFELT $ 56)))
                   (SEQ (LETT |lk| (CONS (QCDR |k|) |lk|) . #2#)
                        (EXIT
                         (LETT |lv| (CONS (SPADCALL |eq| (QREFELT $ 122)) |lv|)
                               . #2#)))))))
               (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
          (EXIT (CONS |lk| |lv|)))))) 

(DEFUN |ES-;even?;SB;43| (|x| $) (|ES-;intpred?| |x| (ELT $ 124) $)) 

(DEFUN |ES-;odd?;SB;44| (|x| $) (|ES-;intpred?| |x| (ELT $ 126) $)) 

(DEFUN |ES-;intpred?| (|x| |pred?| $)
  (PROG (|u|)
    (RETURN
     (SEQ (LETT |u| (SPADCALL |x| (QREFELT $ 129)) |ES-;intpred?|)
          (EXIT
           (COND ((QEQCAR |u| 0) (SPADCALL (QCDR |u|) |pred?|)) ('T 'NIL))))))) 

(DEFUN |ExpressionSpace&| (|#1|)
  (PROG (|pv$| $ |dv$| DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|ExpressionSpace&|))
      (LETT |dv$| (LIST '|ExpressionSpace&| DV$1) . #1#)
      (LETT $ (GETREFV 130) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (|HasCategory| |#1|
                                                         '(|RetractableTo|
                                                           (|Integer|)))
                                          (|HasCategory| |#1| '(|Ring|))))
                      . #1#))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 '|%dummyVar|)
      (QSETREFV $ 12 (SPADCALL '|%paren| (QREFELT $ 11)))
      (QSETREFV $ 13 (SPADCALL '|%box| (QREFELT $ 11)))
      (COND
       ((|testBitVector| |pv$| 1)
        (PROGN
         (QSETREFV $ 125 (CONS (|dispatchFunction| |ES-;even?;SB;43|) $))
         (QSETREFV $ 127 (CONS (|dispatchFunction| |ES-;odd?;SB;44|) $)))))
      $)))) 

(MAKEPROP '|ExpressionSpace&| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) 'DUMMYVAR
              (|BasicOperator|) (|Symbol|) (|CommonOperators|) (0 . |operator|)
              '|oppren| '|opbox| (|List| $) (5 . |box|) |ES-;box;2S;1|
              (10 . |paren|) |ES-;paren;2S;2| (|Boolean|) (15 . =)
              |ES-;belong?;BoB;3| (|List| 33) (|Set| 33) (21 . |parts|)
              (26 . |sort!|) (|List| 54) |ES-;tower;SL;5| (31 . |brace|)
              (36 . |union|) (|Mapping| 23 23 23) (|List| 23) (42 . |reduce|)
              (|Kernel| 6) (49 . |operator|) (|List| 8) |ES-;operators;SL;7|
              (54 . |kernels|) (|NonNegativeInteger|) (59 . |height|)
              (64 . |max|) (|Mapping| 38 38 38) (|List| 38) (70 . |reduce|)
              |ES-;height;SNni;8| (77 . |name|) (|List| 9) (82 . |member?|)
              |ES-;freeOf?;SSB;9| (88 . |is?|) |ES-;distribute;2S;10|
              (94 . |elt|) |ES-;box;LS;11| |ES-;paren;LS;12| (|Kernel| $)
              (100 . |retract|) (105 . |member?|) |ES-;freeOf?;2SB;13|
              (111 . |kernel|) |ES-;kernel;Bo2S;14| |ES-;elt;Bo2S;15|
              |ES-;elt;Bo3S;16| |ES-;elt;Bo4S;17| |ES-;elt;Bo5S;18|
              (|Mapping| $ 14) (|List| 64) (117 . |eval|) |ES-;eval;SSMS;19|
              (124 . |name|) |ES-;eval;SBoMS;20| (|List| 6) (129 . |first|)
              (|Mapping| $ $) |ES-;eval;SSMS;21| (134 . |eval|)
              |ES-;eval;SBoMS;22| (|List| 78) (141 . |subst|) (|Equation| $)
              |ES-;subst;SES;23| (|List| 72) |ES-;eval;SLLS;24|
              |ES-;eval;SLLS;25| |ES-;eval;SLLS;26| (147 . |argument|)
              (152 . =) (158 . |coerce|) |ES-;map;MKS;27| (163 . |is?|)
              |ES-;operator;2Bo;28| (|Union| 54 '"failed")
              |ES-;mainKernel;SU;29| (|Union| (|None|) '"failed")
              (169 . |property|) (175 . |second|) (180 . |remove!|)
              (186 . |belong?|) |ES-;kernel;BoLS;31| (191 . |height|)
              (196 . |kernel|) (|Union| 38 '"failed") (203 . |arity|)
              (|Union| 6 '"failed") (|BasicOperatorFunctions1| 6)
              (208 . |evaluate|) |ES-;elt;BoLS;33| (214 . |mainKernel|)
              (219 . =) |ES-;retract;SK;34| |ES-;retractIfCan;SU;35|
              (225 . |retractIfCan|) (230 . |is?|) |ES-;is?;SSB;36|
              |ES-;is?;SBoB;37| (236 . |eval|) |ES-;distribute;3S;39|
              (243 . |eval|) |ES-;eval;SLS;40| (250 . |subst|)
              |ES-;subst;SLS;41| (|Equation| 6) (257 . |lhs|) (262 . |rhs|)
              (|Integer|) (267 . |even?|) (272 . |even?|) (277 . |odd?|)
              (282 . |odd?|) (|Union| 123 '"failed") (287 . |retractIfCan|))
           '#(|tower| 292 |subst| 297 |retractIfCan| 309 |retract| 314 |paren|
              319 |operators| 329 |operator| 334 |odd?| 339 |map| 344
              |mainKernel| 350 |kernel| 355 |is?| 367 |height| 379 |freeOf?|
              384 |even?| 396 |eval| 401 |elt| 456 |distribute| 492 |box| 503
              |belong?| 513)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 129
                                                 '(1 10 8 9 11 1 6 0 14 15 1 6
                                                   0 14 17 2 8 19 0 0 20 1 23
                                                   22 0 24 1 22 0 0 25 1 23 0
                                                   22 28 2 23 0 0 0 29 3 31 23
                                                   30 0 23 32 1 33 8 0 34 1 6
                                                   26 0 37 1 33 38 0 39 2 38 0
                                                   0 0 40 3 42 38 41 0 38 43 1
                                                   33 9 0 45 2 46 19 9 0 47 2
                                                   33 19 0 8 49 2 6 0 8 14 51 1
                                                   6 54 0 55 2 22 19 33 0 56 2
                                                   6 0 8 14 58 3 6 0 0 46 65 66
                                                   1 8 9 0 68 1 70 6 0 71 3 6 0
                                                   0 35 65 74 2 6 0 0 76 77 1
                                                   33 70 0 84 2 70 19 0 0 85 1
                                                   6 0 54 86 2 8 19 0 9 88 2 8
                                                   92 0 9 93 1 70 6 0 94 2 23 0
                                                   33 0 95 1 6 19 8 96 1 6 38 0
                                                   98 3 33 0 8 70 38 99 1 8 100
                                                   0 101 2 103 102 8 70 104 1 6
                                                   90 0 106 2 6 19 0 0 107 1 6
                                                   90 0 110 2 33 19 0 9 111 3 6
                                                   0 0 54 0 114 3 6 0 0 26 14
                                                   116 3 6 0 0 26 14 118 1 120
                                                   6 0 121 1 120 6 0 122 1 123
                                                   19 0 124 1 0 19 0 125 1 123
                                                   19 0 126 1 0 19 0 127 1 6
                                                   128 0 129 1 0 26 0 27 2 0 0
                                                   0 76 119 2 0 0 0 78 79 1 0
                                                   90 0 109 1 0 54 0 108 1 0 0
                                                   0 18 1 0 0 14 53 1 0 35 0 36
                                                   1 0 8 8 89 1 0 19 0 127 2 0
                                                   0 72 54 87 1 0 90 0 91 2 0 0
                                                   8 14 97 2 0 0 8 0 59 2 0 19
                                                   0 9 112 2 0 19 0 8 113 1 0
                                                   38 0 44 2 0 19 0 9 48 2 0 19
                                                   0 0 57 1 0 19 0 125 3 0 0 0
                                                   8 72 75 3 0 0 0 35 65 83 3 0
                                                   0 0 8 64 69 3 0 0 0 35 80 81
                                                   3 0 0 0 9 64 67 3 0 0 0 9 72
                                                   73 3 0 0 0 46 80 82 2 0 0 0
                                                   76 117 2 0 0 8 14 105 5 0 0
                                                   8 0 0 0 0 63 3 0 0 8 0 0 61
                                                   4 0 0 8 0 0 0 62 2 0 0 8 0
                                                   60 2 0 0 0 0 115 1 0 0 0 50
                                                   1 0 0 14 52 1 0 0 0 16 1 0
                                                   19 8 21)))))
           '|lookupComplete|)) 
