
(/VERSIONCHECK 2) 

(DEFUN |EFSTRUC;realElem| (|f| |l| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|EFSTRUC;realElem!0| (VECTOR $ |l|)) |f|
               (QREFELT $ 18))))) 

(DEFUN |EFSTRUC;realElem!0| (|k| $$)
  (PROG (|l| $)
    (LETT |l| (QREFELT $$ 1) . #1=(|EFSTRUC;realElem|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|EFSTRUC;k2Elem| |k| |l| $))))) 

(DEFUN |EFSTRUC;realElementary;FSF;2| (|f| |x| $)
  (|EFSTRUC;realElem| |f| (LIST |x|) $)) 

(DEFUN |EFSTRUC;realElementary;2F;3| (|f| $)
  (|EFSTRUC;realElem| |f| (SPADCALL |f| (QREFELT $ 22)) $)) 

(DEFUN |EFSTRUC;realLiouvillian;2F;4| (|f| $)
  (SPADCALL (CONS (|function| |EFSTRUC;ktoliou|) $) |f| (QREFELT $ 18))) 

(DEFUN |EFSTRUC;toY| (|ker| $)
  (PROG (|func| #1=#:G1912 |k| #2=#:G1911)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|EFSTRUC;toY|))
       (SEQ (LETT |k| NIL . #3#) (LETT #1# |ker| . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT
              (COND
               ((SEQ (LETT |func| (|EFSTRUC;ktoY| |k| $) . #3#)
                     (EXIT
                      (COND
                       ((SPADCALL |func| (|spadConstant| $ 26) (QREFELT $ 28))
                        'NIL)
                       ('T 'T))))
                (LETT #2# (CONS |func| #2#) . #3#)))))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |EFSTRUC;toZ| (|ker| $)
  (PROG (|func| #1=#:G1917 |k| #2=#:G1916)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|EFSTRUC;toZ|))
       (SEQ (LETT |k| NIL . #3#) (LETT #1# |ker| . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT
              (COND
               ((SEQ (LETT |func| (|EFSTRUC;ktoZ| |k| $) . #3#)
                     (EXIT
                      (COND
                       ((SPADCALL |func| (|spadConstant| $ 26) (QREFELT $ 28))
                        'NIL)
                       ('T 'T))))
                (LETT #2# (CONS |func| #2#) . #3#)))))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |EFSTRUC;toU| (|ker| $)
  (PROG (|func| #1=#:G1922 |k| #2=#:G1921)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|EFSTRUC;toU|))
       (SEQ (LETT |k| NIL . #3#) (LETT #1# |ker| . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT
              (COND
               ((SEQ (LETT |func| (|EFSTRUC;ktoU| |k| $) . #3#)
                     (EXIT
                      (COND
                       ((SPADCALL |func| (|spadConstant| $ 26) (QREFELT $ 28))
                        'NIL)
                       ('T 'T))))
                (LETT #2# (CONS |func| #2#) . #3#)))))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |EFSTRUC;toV| (|ker| $)
  (PROG (|func| #1=#:G1927 |k| #2=#:G1926)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|EFSTRUC;toV|))
       (SEQ (LETT |k| NIL . #3#) (LETT #1# |ker| . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT
              (COND
               ((SEQ (LETT |func| (|EFSTRUC;ktoV| |k| $) . #3#)
                     (EXIT
                      (COND
                       ((SPADCALL |func| (|spadConstant| $ 26) (QREFELT $ 28))
                        'NIL)
                       ('T 'T))))
                (LETT #2# (CONS |func| #2#) . #3#)))))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |EFSTRUC;rtNormalize| (|f| $) (QVELT (|EFSTRUC;rootNormalize0| |f| $) 0)) 

(DEFUN |EFSTRUC;toR| (|ker| |x| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|EFSTRUC;toR!0| (VECTOR |x| $)) |ker| (QREFELT $ 37))))) 

(DEFUN |EFSTRUC;toR!0| (|s| $$)
  (PROG ($ |x|)
    (LETT $ (QREFELT $$ 1) . #1=(|EFSTRUC;toR|))
    (LETT |x| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND
       ((SPADCALL |s| '|nthRoot| (QREFELT $ 30))
        (SPADCALL (SPADCALL (SPADCALL |s| (QREFELT $ 32)) (QREFELT $ 33)) |x|
                  (QREFELT $ 28)))
       ('T (|spadConstant| $ 34))))))) 

(DEFUN |EFSTRUC;tanQ;F2F;11| (|c| |x| $)
  (PROG (#1=#:G1942)
    (RETURN
     (SPADCALL
      (SPADCALL
       (SPADCALL
        (SPADCALL |x|
                  (PROG1
                      (LETT #1# (SPADCALL |c| (QREFELT $ 39))
                            |EFSTRUC;tanQ;F2F;11|)
                    (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))
                  (QREFELT $ 43))
        (QREFELT $ 45))
       (QREFELT $ 47))
      (SPADCALL |c| (QREFELT $ 48)) (QREFELT $ 49))))) 

(DEFUN |EFSTRUC;tanQ;F2F;12| (|c| |x| $)
  (PROG (#1=#:G1945)
    (RETURN
     (SPADCALL
      (SPADCALL
       (SPADCALL |x|
                 (PROG1
                     (LETT #1# (SPADCALL |c| (QREFELT $ 39))
                           |EFSTRUC;tanQ;F2F;12|)
                   (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))
                 (QREFELT $ 43))
       (QREFELT $ 45))
      (SPADCALL |c| (QREFELT $ 48)) (QREFELT $ 49))))) 

(DEFUN |EFSTRUC;tanSum| (|c| |l| $)
  (PROG (#1=#:G1955 |r| |k|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |k| (SPADCALL |c| (QREFELT $ 16) (QREFELT $ 15))
              . #2=(|EFSTRUC;tanSum|))
        (SEQ (LETT |r| (SPADCALL |k| (QREFELT $ 52)) . #2#)
             (EXIT
              (COND
               ((QEQCAR |r| 0)
                (COND
                 ((ODDP (QCDR |r|))
                  (PROGN
                   (LETT #1#
                         (SPADCALL
                          (SPADCALL (SPADCALL |l| (QREFELT $ 53))
                                    (QREFELT $ 54))
                          (QREFELT $ 14))
                         . #2#)
                   (GO #1#))))))))
        (EXIT
         (SPADCALL (CONS (SPADCALL |c| (QREFELT $ 55)) |l|) (QREFELT $ 53)))))
      #1# (EXIT #1#))))) 

(DEFUN |EFSTRUC;rootNormalize0| (|f| $)
  (PROG (#1=#:G1974 #2=#:G1978 |rn| |rec| |u| |i| #3=#:G1979 |kk| |n| |ker|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |ker|
              (SPADCALL (CONS #'|EFSTRUC;rootNormalize0!0| $)
                        (SPADCALL |f| (QREFELT $ 58)) (QREFELT $ 59))
              . #4=(|EFSTRUC;rootNormalize0|))
        (EXIT
         (COND ((NULL |ker|) (VECTOR |f| NIL NIL))
               (#5='T
                (SEQ (LETT |n| (- (LENGTH |ker|) 1) . #4#)
                     (EXIT
                      (COND ((< |n| 1) (VECTOR |f| NIL NIL))
                            (#5#
                             (SEQ
                              (SEQ
                               (EXIT
                                (SEQ (LETT |kk| NIL . #4#)
                                     (LETT #3# (CDR |ker|) . #4#)
                                     (LETT |i| 1 . #4#) G190
                                     (COND
                                      ((OR (QSGREATERP |i| |n|) (ATOM #3#)
                                           (PROGN
                                            (LETT |kk| (CAR #3#) . #4#)
                                            NIL))
                                       (GO G191)))
                                     (SEQ
                                      (LETT |u|
                                            (|EFSTRUC;rootKernelNormalize| |f|
                                             (SPADCALL |ker| |i|
                                                       (QREFELT $ 63))
                                             |kk| $)
                                            . #4#)
                                      (EXIT
                                       (COND
                                        ((QEQCAR |u| 0)
                                         (PROGN
                                          (LETT #1#
                                                (SEQ
                                                 (LETT |rec| (QCDR |u|) . #4#)
                                                 (LETT |rn|
                                                       (|EFSTRUC;rootNormalize0|
                                                        (QVELT |rec| 0) $)
                                                       . #4#)
                                                 (EXIT
                                                  (PROGN
                                                   (LETT #2#
                                                         (VECTOR (QVELT |rn| 0)
                                                                 (SPADCALL
                                                                  (QVELT |rec|
                                                                         1)
                                                                  (QVELT |rn|
                                                                         1)
                                                                  (QREFELT $
                                                                           64))
                                                                 (SPADCALL
                                                                  (QVELT |rec|
                                                                         2)
                                                                  (QVELT |rn|
                                                                         2)
                                                                  (QREFELT $
                                                                           65)))
                                                         . #4#)
                                                   (GO #2#))))
                                                . #4#)
                                          (GO #1#))))))
                                     (LETT |i|
                                           (PROG1 (QSADD1 |i|)
                                             (LETT #3# (CDR #3#) . #4#))
                                           . #4#)
                                     (GO G190) G191 (EXIT NIL)))
                               #1# (EXIT #1#))
                              (EXIT (VECTOR |f| NIL NIL))))))))))))
      #2# (EXIT #2#))))) 

(DEFUN |EFSTRUC;rootNormalize0!0| (|x| $)
  (COND
   ((SPADCALL |x| '|nthRoot| (QREFELT $ 30))
    (SPADCALL
     (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 32)) (QREFELT $ 33))
               (QREFELT $ 22))
     (QREFELT $ 56)))
   ('T (|spadConstant| $ 34)))) 

(DEFUN |EFSTRUC;findQRelation| (|lv| |lpar| |lk| |ker| $)
  (PROG (|u| |j| #1=#:G2003 |k| |i| #2=#:G2002 |var| |mat| |isconstant|
         #3=#:G2001 |v| |lvv| |m| #4=#:G2000 |n|)
    (RETURN
     (SEQ
      (COND ((NULL |lk|) (CONS 2 'T))
            (#5='T
             (SEQ (LETT |isconstant| 'T . #6=(|EFSTRUC;findQRelation|))
                  (LETT |m| (LENGTH |lv|) . #6#) (LETT |lvv| |lv| . #6#)
                  (LETT |n| (LENGTH |lk|) . #6#)
                  (LETT |v| (MAKEARR1 |m| (|spadConstant| $ 26)) . #6#)
                  (SEQ (LETT |var| NIL . #6#) (LETT #4# |lv| . #6#)
                       (LETT |i| 1 . #6#) G190
                       (COND
                        ((OR (QSGREATERP |i| |m|) (ATOM #4#)
                             (PROGN (LETT |var| (CAR #4#) . #6#) NIL))
                         #7=(GO G191)))
                       (SEQ
                        (SPADCALL |v| |i| (SPADCALL |ker| |var| (QREFELT $ 66))
                                  (QREFELT $ 68))
                        (EXIT
                         (COND
                          (|isconstant|
                           (LETT |isconstant|
                                 (SPADCALL (SPADCALL |v| |i| (QREFELT $ 69))
                                           (|spadConstant| $ 26)
                                           (QREFELT $ 28))
                                 . #6#)))))
                       (LETT |i|
                             (PROG1 (QSADD1 |i|) (LETT #4# (CDR #4#) . #6#))
                             . #6#)
                       #8=(GO G190) G191 (EXIT NIL))
                  (COND
                   (|isconstant|
                    (SEQ (LETT |m| (LENGTH |lpar|) . #6#)
                         (LETT |lvv| |lpar| . #6#)
                         (LETT |v| (MAKEARR1 |m| (|spadConstant| $ 26)) . #6#)
                         (EXIT
                          (SEQ (LETT |var| NIL . #6#) (LETT #3# |lpar| . #6#)
                               (LETT |i| 1 . #6#) G190
                               (COND
                                ((OR (QSGREATERP |i| |m|) (ATOM #3#)
                                     (PROGN (LETT |var| (CAR #3#) . #6#) NIL))
                                 #7#))
                               (SEQ
                                (SPADCALL |v| |i|
                                          (SPADCALL |ker| |var| (QREFELT $ 66))
                                          (QREFELT $ 68))
                                (EXIT
                                 (COND
                                  (|isconstant|
                                   (LETT |isconstant|
                                         (SPADCALL
                                          (SPADCALL |v| |i| (QREFELT $ 69))
                                          (|spadConstant| $ 26) (QREFELT $ 28))
                                         . #6#)))))
                               (LETT |i|
                                     (PROG1 (QSADD1 |i|)
                                       (LETT #3# (CDR #3#) . #6#))
                                     . #6#)
                               #8# G191 (EXIT NIL))))))
                  (EXIT
                   (COND (|isconstant| (|error| "Hidden constant detected"))
                         (#5#
                          (SEQ
                           (LETT |mat|
                                 (SPADCALL |m| |n| (|spadConstant| $ 26)
                                           (QREFELT $ 71))
                                 . #6#)
                           (SEQ (LETT |var| NIL . #6#) (LETT #2# |lvv| . #6#)
                                (LETT |i| 1 . #6#) G190
                                (COND
                                 ((OR (QSGREATERP |i| |m|) (ATOM #2#)
                                      (PROGN (LETT |var| (CAR #2#) . #6#) NIL))
                                  #7#))
                                (SEQ
                                 (EXIT
                                  (SEQ (LETT |k| NIL . #6#)
                                       (LETT #1# |lk| . #6#) (LETT |j| 1 . #6#)
                                       G190
                                       (COND
                                        ((OR (QSGREATERP |j| |n|) (ATOM #1#)
                                             (PROGN
                                              (LETT |k| (CAR #1#) . #6#)
                                              NIL))
                                         #7#))
                                       (SEQ
                                        (EXIT
                                         (SPADCALL |mat| |i| |j|
                                                   (SPADCALL |k| |var|
                                                             (QREFELT $ 66))
                                                   (QREFELT $ 72))))
                                       (LETT |j|
                                             (PROG1 (QSADD1 |j|)
                                               (LETT #1# (CDR #1#) . #6#))
                                             . #6#)
                                       #8# G191 (EXIT NIL))))
                                (LETT |i|
                                      (PROG1 (QSADD1 |i|)
                                        (LETT #2# (CDR #2#) . #6#))
                                      . #6#)
                                #8# G191 (EXIT NIL))
                           (LETT |u| (SPADCALL |mat| |v| (QREFELT $ 75)) . #6#)
                           (EXIT
                            (COND ((QEQCAR |u| 0) (CONS 0 (QCDR |u|)))
                                  (#5# (CONS 2 'T))))))))))))))) 

(DEFUN |EFSTRUC;findLinearRelation1| (|lk| |ker| $)
  (PROG (|u| |j| #1=#:G2011 |k| |v| |mat| |n|)
    (RETURN
     (SEQ
      (COND ((NULL |lk|) (CONS 2 'T))
            (#2='T
             (SEQ (LETT |n| (LENGTH |lk|) . #3=(|EFSTRUC;findLinearRelation1|))
                  (LETT |mat|
                        (SPADCALL 1 |n| (|spadConstant| $ 26) (QREFELT $ 71))
                        . #3#)
                  (LETT |v| (MAKEARR1 1 |ker|) . #3#)
                  (SEQ (LETT |k| NIL . #3#) (LETT #1# |lk| . #3#)
                       (LETT |j| 1 . #3#) G190
                       (COND
                        ((OR (QSGREATERP |j| |n|) (ATOM #1#)
                             (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
                         (GO G191)))
                       (SEQ
                        (EXIT
                         (COND
                          ((NULL (SPADCALL |k| (QREFELT $ 22)))
                           (SPADCALL |mat| 1 |j| |k| (QREFELT $ 72)))
                          ('T
                           (SPADCALL |mat| 1 |j| (|spadConstant| $ 26)
                                     (QREFELT $ 72))))))
                       (LETT |j|
                             (PROG1 (QSADD1 |j|) (LETT #1# (CDR #1#) . #3#))
                             . #3#)
                       (GO G190) G191 (EXIT NIL))
                  (LETT |u| (SPADCALL |mat| |v| (QREFELT $ 75)) . #3#)
                  (EXIT
                   (COND ((QEQCAR |u| 0) (CONS 0 (QCDR |u|)))
                         (#2# (CONS 2 'T))))))))))) 

(DEFUN |EFSTRUC;transkers| (|x| $)
  (PROG (#1=#:G2016 |k| #2=#:G2015)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|EFSTRUC;transkers|))
       (SEQ (LETT |k| NIL . #3#) (LETT #1# |x| . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT
              (COND
               ((COND
                 ((SPADCALL (SPADCALL |k| (QREFELT $ 79)) (QREFELT $ 77)
                            (QREFELT $ 80))
                  'NIL)
                 ('T 'T))
                (LETT #2# (CONS |k| #2#) . #3#)))))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |EFSTRUC;ktoQ| (|ker| $)
  (PROG (|qu| |z|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |ker| '|log| (QREFELT $ 30))
        (COND
         ((|HasCategory| (QREFELT $ 7)
                         (LIST '|RetractableTo|
                               (LIST '|Fraction| '(|Integer|))))
          (EXIT
           (SEQ
            (LETT |z|
                  (SPADCALL (SPADCALL |ker| (QREFELT $ 32)) 1 (QREFELT $ 81))
                  . #1=(|EFSTRUC;ktoQ|))
            (LETT |qu| (SPADCALL |z| (QREFELT $ 83)) . #1#)
            (EXIT
             (COND ((QEQCAR |qu| 0) (QCDR |qu|))
                   ('T (|spadConstant| $ 76))))))))))
      (EXIT (|spadConstant| $ 76)))))) 

(DEFUN |EFSTRUC;toQ| (|lk| $)
  (PROG (#1=#:G2031 |k| #2=#:G2030)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|EFSTRUC;toQ|))
       (SEQ (LETT |k| NIL . #3#) (LETT #1# |lk| . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |k| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT
              (COND
               ((COND ((SPADCALL |k| '|log| (QREFELT $ 30)) 'T)
                      ('T (SPADCALL |k| '|exp| (QREFELT $ 30))))
                (LETT #2# (CONS (|EFSTRUC;ktoQ| |k| $) #2#) . #3#)))))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |EFSTRUC;findLinearRelation2| (|lk| |lz| |ker| $)
  (PROG (|nz| |ly| #1=#:G2074 |x| #2=#:G2073 #3=#:G2072 #4=#:G2071 |lpars1f|
         #5=#:G2070 |s| #6=#:G2069 |lpars1| #7=#:G2068 |k| #8=#:G2067 |lpars0|
         |lz1tonq| |kertond| |nd| |nq| |qratio| |fratio| |Fratio| |kerF| |u|
         |q| |zkers| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL (SPADCALL |ker| (QREFELT $ 32)) 1 (QREFELT $ 81))
            . #9=(|EFSTRUC;findLinearRelation2|))
      (LETT |zkers| (|EFSTRUC;transkers| (SPADCALL |z| (QREFELT $ 84)) $)
            . #9#)
      (EXIT
       (COND
        ((NULL |zkers|)
         (SEQ (LETT |q| (|EFSTRUC;ktoQ| |ker| $) . #9#)
              (COND
               ((NULL (SPADCALL |q| (|spadConstant| $ 76) (QREFELT $ 85)))
                (COND
                 ((NULL
                   (SPADCALL |q|
                             (SPADCALL (|spadConstant| $ 76) (QREFELT $ 86))
                             (QREFELT $ 85)))
                  (EXIT
                   (SEQ
                    (LETT |u|
                          (SPADCALL (|EFSTRUC;toQ| |lk| $) |q| (QREFELT $ 89))
                          . #9#)
                    (EXIT
                     (COND ((QEQCAR |u| 0) (CONS 0 (QCDR |u|)))
                           (#10='T (CONS 2 'T))))))))))
              (LETT |kerF| (SPADCALL |ker| (QREFELT $ 91)) . #9#)
              (COND
               ((EQL (LENGTH |lz|) 1)
                (COND
                 ((|domainEqual| (QREFELT $ 7) (|Expression| (QREFELT $ 6)))
                  (COND
                   ((|HasCategory| (QREFELT $ 6)
                                   (LIST '|ConvertibleTo| '(|Float|)))
                    (COND
                     ((|HasCategory| (QREFELT $ 6) '(|IntegralDomain|))
                      (COND
                       ((|HasCategory| (QREFELT $ 6) '(|OrderedSet|))
                        (EXIT
                         (SEQ
                          (LETT |Fratio|
                                (SPADCALL |kerF|
                                          (SPADCALL
                                           (SPADCALL |lz| 1 (QREFELT $ 81))
                                           (QREFELT $ 92))
                                          (QREFELT $ 15))
                                . #9#)
                          (LETT |fratio| (SPADCALL |Fratio| 20 (QREFELT $ 96))
                                . #9#)
                          (EXIT
                           (COND
                            ((QEQCAR |fratio| 0)
                             (SEQ
                              (LETT |qratio|
                                    (SPADCALL (QCDR |fratio|) 8 (QREFELT $ 98))
                                    . #9#)
                              (COND
                               ((OR
                                 (SPADCALL (SPADCALL 1 -16 10 (QREFELT $ 99))
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL (QCDR |fratio|)
                                                       (SPADCALL |qratio|
                                                                 (QREFELT $
                                                                          100))
                                                       (QREFELT $ 101))
                                             (SPADCALL 1 0 10 (QREFELT $ 99))
                                             (QREFELT $ 102))
                                            (QREFELT $ 103))
                                           (QREFELT $ 104))
                                 (OR
                                  (< 100
                                     (ABS
                                      (LETT |nq|
                                            (SPADCALL |qratio| (QREFELT $ 48))
                                            . #9#)))
                                  (< 100
                                     (ABS
                                      (LETT |nd|
                                            (SPADCALL |qratio| (QREFELT $ 39))
                                            . #9#)))))
                                (EXIT (CONS 2 'T))))
                              (LETT |kertond|
                                    (SPADCALL
                                     (SPADCALL (SPADCALL |ker| (QREFELT $ 32))
                                               1 (QREFELT $ 81))
                                     |nd| (QREFELT $ 105))
                                    . #9#)
                              (LETT |lz1tonq|
                                    (SPADCALL (SPADCALL |lz| 1 (QREFELT $ 81))
                                              |nq| (QREFELT $ 105))
                                    . #9#)
                              (EXIT
                               (COND
                                ((SPADCALL |kertond| |lz1tonq| (QREFELT $ 28))
                                 (CONS 0
                                       (SPADCALL (LIST |qratio|)
                                                 (QREFELT $ 107))))
                                (#10# (CONS 2 'T))))))
                            (#10# (CONS 2 'T))))))))))))))))
              (EXIT (CONS 2 'T))))
        (#10#
         (SEQ (LETT |lpars0| (|EFSTRUC;transkers| |lk| $) . #9#)
              (LETT |lpars1|
                    (PROGN
                     (LETT #8# NIL . #9#)
                     (SEQ (LETT |k| NIL . #9#) (LETT #7# |lpars0| . #9#) G190
                          (COND
                           ((OR (ATOM #7#)
                                (PROGN (LETT |k| (CAR #7#) . #9#) NIL))
                            #11=(GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #8# (CONS (SPADCALL (QREFELT $ 108)) #8#)
                                  . #9#)))
                          (LETT #7# (CDR #7#) . #9#) #12=(GO G190) G191
                          (EXIT (NREVERSE0 #8#))))
                    . #9#)
              (LETT |lpars1f|
                    (PROGN
                     (LETT #6# NIL . #9#)
                     (SEQ (LETT |s| NIL . #9#) (LETT #5# |lpars1| . #9#) G190
                          (COND
                           ((OR (ATOM #5#)
                                (PROGN (LETT |s| (CAR #5#) . #9#) NIL))
                            #11#))
                          (SEQ
                           (EXIT
                            (LETT #6#
                                  (CONS
                                   (SPADCALL (SPADCALL |s| (QREFELT $ 109))
                                             (QREFELT $ 91))
                                   #6#)
                                  . #9#)))
                          (LETT #5# (CDR #5#) . #9#) #12# G191
                          (EXIT (NREVERSE0 #6#))))
                    . #9#)
              (COND
               ((SPADCALL |ker| '|log| (QREFELT $ 30))
                (SEQ
                 (LETT |ly|
                       (PROGN
                        (LETT #4# NIL . #9#)
                        (SEQ (LETT |x| NIL . #9#) (LETT #3# |lz| . #9#) G190
                             (COND
                              ((OR (ATOM #3#)
                                   (PROGN (LETT |x| (CAR #3#) . #9#) NIL))
                               #11#))
                             (SEQ
                              (EXIT
                               (LETT #4#
                                     (CONS
                                      (SPADCALL
                                       (SPADCALL |x| |lpars0| |lpars1f|
                                                 (QREFELT $ 111))
                                       (QREFELT $ 92))
                                      #4#)
                                     . #9#)))
                             (LETT #3# (CDR #3#) . #9#) #12# G191
                             (EXIT (NREVERSE0 #4#))))
                       . #9#)
                 (EXIT
                  (LETT |nz|
                        (SPADCALL
                         (SPADCALL |z| |lpars0| |lpars1f| (QREFELT $ 111))
                         (QREFELT $ 92))
                        . #9#))))
               ((NULL (SPADCALL |ker| '|atan| (QREFELT $ 30)))
                (|error| "findLinearRelation2: kernel should be log or atan"))
               ('T
                (SEQ
                 (LETT |ly|
                       (PROGN
                        (LETT #2# NIL . #9#)
                        (SEQ (LETT |x| NIL . #9#) (LETT #1# |lz| . #9#) G190
                             (COND
                              ((OR (ATOM #1#)
                                   (PROGN (LETT |x| (CAR #1#) . #9#) NIL))
                               #11#))
                             (SEQ
                              (EXIT
                               (LETT #2#
                                     (CONS
                                      (SPADCALL
                                       (SPADCALL |x| |lpars0| |lpars1f|
                                                 (QREFELT $ 111))
                                       (QREFELT $ 112))
                                      #2#)
                                     . #9#)))
                             (LETT #1# (CDR #1#) . #9#) #12# G191
                             (EXIT (NREVERSE0 #2#))))
                       . #9#)
                 (EXIT
                  (LETT |nz|
                        (SPADCALL
                         (SPADCALL |z| |lpars0| |lpars1f| (QREFELT $ 111))
                         (QREFELT $ 112))
                        . #9#)))))
              (EXIT (|EFSTRUC;findQRelation| NIL |lpars1| |ly| |nz| $)))))))))) 

(DEFUN |EFSTRUC;findRelation| (|lv| |lpar| |lk| |ker| $)
  (PROG (#1=#:G2094 |x| #2=#:G2093)
    (RETURN
     (SEQ
      (COND
       ((OR (SPADCALL |ker| '|log| (QREFELT $ 30))
            (SPADCALL |ker| '|exp| (QREFELT $ 30)))
        (COND
         ((NULL (SPADCALL (SPADCALL |ker| (QREFELT $ 91)) (QREFELT $ 22)))
          (COND
           ((SPADCALL |ker| '|exp| (QREFELT $ 30))
            (|EFSTRUC;findLinearRelation1| (|EFSTRUC;toY| |lk| $)
             (|EFSTRUC;ktoY| |ker| $) $))
           (#3='T
            (|EFSTRUC;findLinearRelation2| |lk| (|EFSTRUC;toZ| |lk| $) |ker|
             $))))
         (#3#
          (|EFSTRUC;findQRelation| |lv| |lpar| (|EFSTRUC;toY| |lk| $)
           (|EFSTRUC;ktoY| |ker| $) $))))
       ((OR (SPADCALL |ker| '|atan| (QREFELT $ 30))
            (SPADCALL |ker| '|tan| (QREFELT $ 30)))
        (COND
         ((NULL (SPADCALL (SPADCALL |ker| (QREFELT $ 91)) (QREFELT $ 22)))
          (COND
           ((SPADCALL |ker| '|tan| (QREFELT $ 30))
            (|EFSTRUC;findLinearRelation1| (|EFSTRUC;toU| |lk| $)
             (|EFSTRUC;ktoU| |ker| $) $))
           (#3#
            (|EFSTRUC;findLinearRelation2| |lk| (|EFSTRUC;toV| |lk| $) |ker|
             $))))
         (#3#
          (|EFSTRUC;findQRelation| |lv| |lpar| (|EFSTRUC;toU| |lk| $)
           (|EFSTRUC;ktoU| |ker| $) $))))
       ('T
        (COND
         ((SPADCALL |ker| '|nthRoot| (QREFELT $ 30))
          (|EFSTRUC;rootDep| |lk| |ker| $))
         (#3#
          (SEQ
           (COND
            ((QREFELT $ 10)
             (COND
              ((SPADCALL |ker| '|factorial| (QREFELT $ 30))
               (EXIT
                (|EFSTRUC;factdeprel|
                 (PROGN
                  (LETT #2# NIL . #4=(|EFSTRUC;findRelation|))
                  (SEQ (LETT |x| NIL . #4#) (LETT #1# |lk| . #4#) G190
                       (COND
                        ((OR (ATOM #1#) (PROGN (LETT |x| (CAR #1#) . #4#) NIL))
                         (GO G191)))
                       (SEQ
                        (EXIT
                         (COND
                          ((COND
                            ((SPADCALL |x| '|factorial| (QREFELT $ 30))
                             (COND ((SPADCALL |x| |ker| (QREFELT $ 113)) 'NIL)
                                   (#3# 'T)))
                            (#3# 'NIL))
                           (LETT #2# (CONS |x| #2#) . #4#)))))
                       (LETT #1# (CDR #1#) . #4#) (GO G190) G191
                       (EXIT (NREVERSE0 #2#))))
                 |ker| $))))))
           (EXIT (CONS 2 'T))))))))))) 

(DEFUN |EFSTRUC;ktoY| (|k| $)
  (COND ((SPADCALL |k| '|log| (QREFELT $ 30)) (SPADCALL |k| (QREFELT $ 91)))
        ((SPADCALL |k| '|exp| (QREFELT $ 30))
         (|SPADfirst| (SPADCALL |k| (QREFELT $ 32))))
        ('T (|spadConstant| $ 26)))) 

(DEFUN |EFSTRUC;ktoZ| (|k| $)
  (COND
   ((SPADCALL |k| '|log| (QREFELT $ 30))
    (|SPADfirst| (SPADCALL |k| (QREFELT $ 32))))
   ((SPADCALL |k| '|exp| (QREFELT $ 30)) (SPADCALL |k| (QREFELT $ 91)))
   ('T (|spadConstant| $ 26)))) 

(DEFUN |EFSTRUC;ktoU| (|k| $)
  (COND ((SPADCALL |k| '|atan| (QREFELT $ 30)) (SPADCALL |k| (QREFELT $ 91)))
        ((SPADCALL |k| '|tan| (QREFELT $ 30))
         (|SPADfirst| (SPADCALL |k| (QREFELT $ 32))))
        ('T (|spadConstant| $ 26)))) 

(DEFUN |EFSTRUC;ktoV| (|k| $)
  (COND ((SPADCALL |k| '|tan| (QREFELT $ 30)) (SPADCALL |k| (QREFELT $ 91)))
        ((SPADCALL |k| '|atan| (QREFELT $ 30))
         (|SPADfirst| (SPADCALL |k| (QREFELT $ 32))))
        ('T (|spadConstant| $ 26)))) 

(DEFUN |EFSTRUC;smpmap| (|f| |p| $)
  (SPADCALL |f| (ELT $ 114) |p| (QREFELT $ 118))) 

(DEFUN |EFSTRUC;rmap;M2F;27| (|f| |e| $)
  (SPADCALL (|EFSTRUC;smpmap| |f| (SPADCALL |e| (QREFELT $ 120)) $)
            (|EFSTRUC;smpmap| |f| (SPADCALL |e| (QREFELT $ 121)) $)
            (QREFELT $ 15))) 

(DEFUN |EFSTRUC;k2Elem0| (|k| |op| |args| $)
  (PROG (|tz2| |iez| |ez| |z|)
    (RETURN
     (SEQ (LETT |z| (|SPADfirst| |args|) . #1=(|EFSTRUC;k2Elem0|))
          (EXIT
           (COND
            ((SPADCALL |op| '|%power| (QREFELT $ 127))
             (COND ((SPADCALL |z| (QREFELT $ 128)) (|spadConstant| $ 26))
                   (#2='T
                    (SPADCALL
                     (SPADCALL (SPADCALL |args| (QREFELT $ 129))
                               (SPADCALL |z| (QREFELT $ 92)) (QREFELT $ 130))
                     (QREFELT $ 131)))))
            ((SPADCALL |op| '|cot| (QREFELT $ 127))
             (SPADCALL (SPADCALL |z| (QREFELT $ 55)) (QREFELT $ 54)))
            ((SPADCALL |op| '|acot| (QREFELT $ 127))
             (SPADCALL (SPADCALL |z| (QREFELT $ 54)) (QREFELT $ 112)))
            ((SPADCALL |op| '|asin| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL |z|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 61)
                                   (SPADCALL |z| 2 (QREFELT $ 132))
                                   (QREFELT $ 133))
                         (QREFELT $ 134))
                        (QREFELT $ 15))
              (QREFELT $ 112)))
            ((SPADCALL |op| '|acos| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL
               (SPADCALL
                (SPADCALL (|spadConstant| $ 61)
                          (SPADCALL |z| 2 (QREFELT $ 132)) (QREFELT $ 133))
                (QREFELT $ 134))
               |z| (QREFELT $ 15))
              (QREFELT $ 112)))
            ((SPADCALL |op| '|asec| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL
               (SPADCALL (SPADCALL |z| 2 (QREFELT $ 132)) (|spadConstant| $ 61)
                         (QREFELT $ 133))
               (QREFELT $ 134))
              (QREFELT $ 112)))
            ((SPADCALL |op| '|acsc| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL
               (SPADCALL
                (SPADCALL (SPADCALL |z| 2 (QREFELT $ 132))
                          (|spadConstant| $ 61) (QREFELT $ 133))
                (QREFELT $ 134))
               (QREFELT $ 54))
              (QREFELT $ 112)))
            ((SPADCALL |op| '|asinh| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL
               (SPADCALL
                (SPADCALL (|spadConstant| $ 61)
                          (SPADCALL |z| 2 (QREFELT $ 132)) (QREFELT $ 135))
                (QREFELT $ 134))
               |z| (QREFELT $ 135))
              (QREFELT $ 92)))
            ((SPADCALL |op| '|acosh| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL
               (SPADCALL
                (SPADCALL (SPADCALL |z| 2 (QREFELT $ 132))
                          (|spadConstant| $ 61) (QREFELT $ 133))
                (QREFELT $ 134))
               |z| (QREFELT $ 135))
              (QREFELT $ 92)))
            ((SPADCALL |op| '|atanh| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL
               (SPADCALL (SPADCALL |z| (|spadConstant| $ 61) (QREFELT $ 135))
                         (SPADCALL (|spadConstant| $ 61) |z| (QREFELT $ 133))
                         (QREFELT $ 15))
               (QREFELT $ 92))
              (SPADCALL 2 (QREFELT $ 13)) (QREFELT $ 15)))
            ((SPADCALL |op| '|acoth| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL
               (SPADCALL (SPADCALL |z| (|spadConstant| $ 61) (QREFELT $ 135))
                         (SPADCALL |z| (|spadConstant| $ 61) (QREFELT $ 133))
                         (QREFELT $ 15))
               (QREFELT $ 92))
              (SPADCALL 2 (QREFELT $ 13)) (QREFELT $ 15)))
            ((SPADCALL |op| '|asech| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL (SPADCALL |z| (QREFELT $ 54))
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL (SPADCALL |z| 2 (QREFELT $ 132))
                                    (QREFELT $ 54))
                          (|spadConstant| $ 61) (QREFELT $ 133))
                         (QREFELT $ 134))
                        (QREFELT $ 135))
              (QREFELT $ 92)))
            ((SPADCALL |op| '|acsch| (QREFELT $ 127))
             (SPADCALL
              (SPADCALL (SPADCALL |z| (QREFELT $ 54))
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 61)
                                   (SPADCALL (SPADCALL |z| 2 (QREFELT $ 132))
                                             (QREFELT $ 54))
                                   (QREFELT $ 135))
                         (QREFELT $ 134))
                        (QREFELT $ 135))
              (QREFELT $ 92)))
            ((OR (SPADCALL |op| '|%paren| (QREFELT $ 127))
                 (SPADCALL |op| '|%box| (QREFELT $ 127)))
             (COND ((NULL (CDR |args|)) |z|)
                   (#2# (SPADCALL |k| (QREFELT $ 91)))))
            ('T
             (SEQ
              (COND
               ((SPADCALL |op| (QREFELT $ 8) (QREFELT $ 80))
                (LETT |iez|
                      (SPADCALL
                       (LETT |ez| (SPADCALL |z| (QREFELT $ 131)) . #1#)
                       (QREFELT $ 54))
                      . #1#)))
              (EXIT
               (COND
                ((SPADCALL |op| '|sinh| (QREFELT $ 127))
                 (SPADCALL (SPADCALL |ez| |iez| (QREFELT $ 133))
                           (SPADCALL 2 (QREFELT $ 13)) (QREFELT $ 15)))
                ((SPADCALL |op| '|cosh| (QREFELT $ 127))
                 (SPADCALL (SPADCALL |ez| |iez| (QREFELT $ 135))
                           (SPADCALL 2 (QREFELT $ 13)) (QREFELT $ 15)))
                ((SPADCALL |op| '|tanh| (QREFELT $ 127))
                 (SPADCALL (SPADCALL |ez| |iez| (QREFELT $ 133))
                           (SPADCALL |ez| |iez| (QREFELT $ 135))
                           (QREFELT $ 15)))
                ((SPADCALL |op| '|coth| (QREFELT $ 127))
                 (SPADCALL (SPADCALL |ez| |iez| (QREFELT $ 135))
                           (SPADCALL |ez| |iez| (QREFELT $ 133))
                           (QREFELT $ 15)))
                ((SPADCALL |op| '|sech| (QREFELT $ 127))
                 (SPADCALL 2
                           (SPADCALL (SPADCALL |ez| |iez| (QREFELT $ 135))
                                     (QREFELT $ 54))
                           (QREFELT $ 136)))
                ((SPADCALL |op| '|csch| (QREFELT $ 127))
                 (SPADCALL 2
                           (SPADCALL (SPADCALL |ez| |iez| (QREFELT $ 133))
                                     (QREFELT $ 54))
                           (QREFELT $ 136)))
                (#2#
                 (SEQ
                  (COND
                   ((SPADCALL |op| (QREFELT $ 9) (QREFELT $ 80))
                    (LETT |tz2|
                          (SPADCALL
                           (SPADCALL |z| (SPADCALL 2 (QREFELT $ 13))
                                     (QREFELT $ 15))
                           (QREFELT $ 55))
                          . #1#)))
                  (EXIT
                   (COND
                    ((SPADCALL |op| '|sin| (QREFELT $ 127))
                     (SPADCALL (SPADCALL 2 |tz2| (QREFELT $ 136))
                               (SPADCALL (|spadConstant| $ 61)
                                         (SPADCALL |tz2| 2 (QREFELT $ 132))
                                         (QREFELT $ 135))
                               (QREFELT $ 15)))
                    ((SPADCALL |op| '|cos| (QREFELT $ 127))
                     (SPADCALL
                      (SPADCALL (|spadConstant| $ 61)
                                (SPADCALL |tz2| 2 (QREFELT $ 132))
                                (QREFELT $ 133))
                      (SPADCALL (|spadConstant| $ 61)
                                (SPADCALL |tz2| 2 (QREFELT $ 132))
                                (QREFELT $ 135))
                      (QREFELT $ 15)))
                    ((SPADCALL |op| '|sec| (QREFELT $ 127))
                     (SPADCALL
                      (SPADCALL (|spadConstant| $ 61)
                                (SPADCALL |tz2| 2 (QREFELT $ 132))
                                (QREFELT $ 135))
                      (SPADCALL (|spadConstant| $ 61)
                                (SPADCALL |tz2| 2 (QREFELT $ 132))
                                (QREFELT $ 133))
                      (QREFELT $ 15)))
                    ((SPADCALL |op| '|csc| (QREFELT $ 127))
                     (SPADCALL
                      (SPADCALL (|spadConstant| $ 61)
                                (SPADCALL |tz2| 2 (QREFELT $ 132))
                                (QREFELT $ 135))
                      (SPADCALL 2 |tz2| (QREFELT $ 136)) (QREFELT $ 15)))
                    (#2# (SPADCALL |op| |args| (QREFELT $ 138))))))))))))))))) 

(DEFUN |EFSTRUC;ktoliou| (|k| $)
  (PROG (|dvs| #1=#:G2163 |v| #2=#:G2162 |vfs| #3=#:G2161 #4=#:G2160 |vars|
         |kf1| |args| #5=#:G2159 |a| #6=#:G2158 |op|)
    (RETURN
     (SEQ (LETT |op| (SPADCALL |k| (QREFELT $ 79)) . #7=(|EFSTRUC;ktoliou|))
          (LETT |args|
                (PROGN
                 (LETT #6# NIL . #7#)
                 (SEQ (LETT |a| NIL . #7#)
                      (LETT #5# (SPADCALL |k| (QREFELT $ 32)) . #7#) G190
                      (COND
                       ((OR (ATOM #5#) (PROGN (LETT |a| (CAR #5#) . #7#) NIL))
                        #8=(GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #6# (CONS (SPADCALL |a| (QREFELT $ 24)) #6#)
                              . #7#)))
                      (LETT #5# (CDR #5#) . #7#) #9=(GO G190) G191
                      (EXIT (NREVERSE0 #6#))))
                . #7#)
          (EXIT
           (COND ((NULL |args|) (SPADCALL |k| (QREFELT $ 91)))
                 ('T
                  (SEQ
                   (COND
                    ((SPADCALL |op| '|prim| (QREFELT $ 80))
                     (COND
                      ((NULL (SPADCALL |op| '|%iint| (QREFELT $ 127)))
                       (EXIT
                        (SEQ
                         (LETT |kf1| (SPADCALL |op| |args| (QREFELT $ 138))
                               . #7#)
                         (LETT |vars| (SPADCALL |kf1| (QREFELT $ 22)) . #7#)
                         (LETT |vfs|
                               (PROGN
                                (LETT #4# NIL . #7#)
                                (SEQ (LETT |v| NIL . #7#)
                                     (LETT #3# |vars| . #7#) G190
                                     (COND
                                      ((OR (ATOM #3#)
                                           (PROGN
                                            (LETT |v| (CAR #3#) . #7#)
                                            NIL))
                                       #8#))
                                     (SEQ
                                      (EXIT
                                       (LETT #4#
                                             (CONS
                                              (SPADCALL |v| (QREFELT $ 139))
                                              #4#)
                                             . #7#)))
                                     (LETT #3# (CDR #3#) . #7#) #9# G191
                                     (EXIT (NREVERSE0 #4#))))
                               . #7#)
                         (LETT |dvs|
                               (PROGN
                                (LETT #2# NIL . #7#)
                                (SEQ (LETT |v| NIL . #7#)
                                     (LETT #1# |vars| . #7#) G190
                                     (COND
                                      ((OR (ATOM #1#)
                                           (PROGN
                                            (LETT |v| (CAR #1#) . #7#)
                                            NIL))
                                       #8#))
                                     (SEQ
                                      (EXIT
                                       (LETT #2#
                                             (CONS
                                              (SPADCALL
                                               (SPADCALL |kf1| |v|
                                                         (QREFELT $ 140))
                                               (QREFELT $ 24))
                                              #2#)
                                             . #7#)))
                                     (LETT #1# (CDR #1#) . #7#) #9# G191
                                     (EXIT (NREVERSE0 #2#))))
                               . #7#)
                         (EXIT
                          (SPADCALL (QREFELT $ 126)
                                    (SPADCALL |vfs| |dvs| (QREFELT $ 65))
                                    (QREFELT $ 141)))))))))
                   (EXIT (|EFSTRUC;k2Elem0| |k| |op| |args| $)))))))))) 

(DEFUN |EFSTRUC;k2Elem| (|k| |l| $)
  (PROG (|args| #1=#:G2168 |a| #2=#:G2167 |op|)
    (RETURN
     (SEQ (LETT |op| (SPADCALL |k| (QREFELT $ 79)) . #3=(|EFSTRUC;k2Elem|))
          (LETT |args|
                (PROGN
                 (LETT #2# NIL . #3#)
                 (SEQ (LETT |a| NIL . #3#)
                      (LETT #1# (SPADCALL |k| (QREFELT $ 32)) . #3#) G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |a| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2# (CONS (|EFSTRUC;realElem| |a| |l| $) #2#)
                              . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#))))
                . #3#)
          (EXIT
           (COND ((NULL |args|) (SPADCALL |k| (QREFELT $ 91)))
                 ('T (|EFSTRUC;k2Elem0| |k| |op| |args| $)))))))) 

(DEFUN |EFSTRUC;depeval| (|f| |lk| |k| |v| $)
  (COND
   ((SPADCALL |k| '|log| (QREFELT $ 30))
    (|EFSTRUC;logeval| |f| |lk| |k| |v| $))
   ((SPADCALL |k| '|exp| (QREFELT $ 30))
    (|EFSTRUC;expeval| |f| |lk| |k| |v| $))
   ((SPADCALL |k| '|tan| (QREFELT $ 30))
    (|EFSTRUC;taneval| |f| |lk| |k| |v| $))
   ((SPADCALL |k| '|atan| (QREFELT $ 30))
    (|EFSTRUC;ataneval| |f| |lk| |k| |v| $))
   ((SPADCALL |k| '|nthRoot| (QREFELT $ 30))
    (|EFSTRUC;rooteval| |f| |lk| |k|
     (SPADCALL |v| (SPADCALL |v| (QREFELT $ 142)) (QREFELT $ 143)) $))
   ('T (VECTOR |f| NIL NIL)))) 

(DEFUN |EFSTRUC;rooteval| (|f| |lk| |k| |n| $)
  (PROG (|lv| #1=#:G2185 |r| #2=#:G2184 |l| #3=#:G2183 #4=#:G2182 |nv| |m| |x|)
    (RETURN
     (SEQ
      (LETT |nv|
            (SPADCALL
             (LETT |x| (|SPADfirst| (SPADCALL |k| (QREFELT $ 32)))
                   . #5=(|EFSTRUC;rooteval|))
             (LETT |m| (SPADCALL |n| (QREFELT $ 144)) . #5#) (QREFELT $ 145))
            . #5#)
      (LETT |l|
            (PROGN
             (LETT #4# NIL . #5#)
             (SEQ (LETT |r| NIL . #5#)
                  (LETT #3# (CONS |k| (|EFSTRUC;toR| |lk| |x| $)) . #5#) G190
                  (COND
                   ((OR (ATOM #3#) (PROGN (LETT |r| (CAR #3#) . #5#) NIL))
                    #6=(GO G191)))
                  (SEQ
                   (EXIT
                    (COND
                     ((COND
                       ((EQL
                         (SPADCALL
                          (SPADCALL (SPADCALL |r| (QREFELT $ 32))
                                    (QREFELT $ 146))
                          (QREFELT $ 147))
                         |m|)
                        'NIL)
                       ('T 'T))
                      (LETT #4# (CONS |r| #4#) . #5#)))))
                  (LETT #3# (CDR #3#) . #5#) #7=(GO G190) G191
                  (EXIT (NREVERSE0 #4#))))
            . #5#)
      (LETT |lv|
            (PROGN
             (LETT #2# NIL . #5#)
             (SEQ (LETT |r| NIL . #5#) (LETT #1# |l| . #5#) G190
                  (COND
                   ((OR (ATOM #1#) (PROGN (LETT |r| (CAR #1#) . #5#) NIL))
                    #6#))
                  (SEQ
                   (EXIT
                    (LETT #2#
                          (CONS
                           (SPADCALL |nv|
                                     (SPADCALL |n|
                                               (SPADCALL
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL |r| (QREFELT $ 32))
                                                  (QREFELT $ 146))
                                                 (QREFELT $ 147))
                                                (QREFELT $ 148))
                                               (QREFELT $ 149))
                                     (QREFELT $ 150))
                           #2#)
                          . #5#)))
                  (LETT #1# (CDR #1#) . #5#) #7# G191 (EXIT (NREVERSE0 #2#))))
            . #5#)
      (EXIT (VECTOR (SPADCALL |f| |l| |lv| (QREFELT $ 111)) |l| |lv|)))))) 

(DEFUN |EFSTRUC;ataneval| (|f| |lk| |k| |v| $)
  (PROG (|g| |h| |d| #1=#:G2189 #2=#:G2188 #3=#:G2190 #4=#:G2197 |i| #5=#:G2198
         |x| |s| #6=#:G2195 #7=#:G2196 #8=#:G2194 |w|)
    (RETURN
     (SEQ
      (LETT |w| (|SPADfirst| (SPADCALL |k| (QREFELT $ 32)))
            . #9=(|EFSTRUC;ataneval|))
      (LETT |s|
            (SPADCALL
             (PROGN
              (LETT #8# NIL . #9#)
              (SEQ (LETT |x| NIL . #9#) (LETT #7# (|EFSTRUC;toV| |lk| $) . #9#)
                   (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #9#)
                   (LETT #6# (QVSIZE |v|) . #9#) G190
                   (COND
                    ((OR (> |i| #6#) (ATOM #7#)
                         (PROGN (LETT |x| (CAR #7#) . #9#) NIL))
                     #10=(GO G191)))
                   (SEQ
                    (EXIT
                     (LETT #8#
                           (CONS
                            (SPADCALL (QAREF1O |v| |i| 1) |x| (QREFELT $ 50))
                            #8#)
                           . #9#)))
                   (LETT |i| (PROG1 (+ |i| 1) (LETT #7# (CDR #7#) . #9#))
                         . #9#)
                   #11=(GO G190) G191 (EXIT (NREVERSE0 #8#))))
             (QREFELT $ 53))
            . #9#)
      (LETT |g|
            (PROGN
             (LETT #1# NIL . #9#)
             (SEQ (LETT |x| NIL . #9#) (LETT #5# (|EFSTRUC;toU| |lk| $) . #9#)
                  (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #9#)
                  (LETT #4# (QVSIZE |v|) . #9#) G190
                  (COND
                   ((OR (> |i| #4#) (ATOM #5#)
                        (PROGN (LETT |x| (CAR #5#) . #9#) NIL))
                    #10#))
                  (SEQ
                   (EXIT
                    (PROGN
                     (LETT #3#
                           (SPADCALL (QAREF1O |v| |i| 1) |x| (QREFELT $ 151))
                           . #9#)
                     (COND
                      (#1# (LETT #2# (SPADCALL #2# #3# (QREFELT $ 135)) . #9#))
                      ('T (PROGN (LETT #2# #3# . #9#) (LETT #1# 'T . #9#)))))))
                  (LETT |i| (PROG1 (+ |i| 1) (LETT #5# (CDR #5#) . #9#)) . #9#)
                  #11# G191 (EXIT NIL))
             (COND (#1# #2#) (#12='T (|spadConstant| $ 26))))
            . #9#)
      (LETT |h|
            (COND
             ((SPADCALL
               (LETT |d|
                     (SPADCALL (|spadConstant| $ 61)
                               (SPADCALL |s| |w| (QREFELT $ 130))
                               (QREFELT $ 135))
                     . #9#)
               (QREFELT $ 128))
              (QREFELT $ 16))
             (#12#
              (SPADCALL
               (SPADCALL (SPADCALL |w| |s| (QREFELT $ 133)) |d| (QREFELT $ 15))
               (QREFELT $ 112))))
            . #9#)
      (LETT |g| (SPADCALL |g| |h| (QREFELT $ 135)) . #9#)
      (EXIT
       (VECTOR (SPADCALL |f| (LIST |k|) (LIST |g|) (QREFELT $ 111)) (LIST |k|)
               (LIST |g|))))))) 

(DEFUN |EFSTRUC;gdCoef?| (|c| |v| $)
  (PROG (#1=#:G2203 #2=#:G2205 #3=#:G2206 |i|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (EXIT
          (SEQ
           (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #4=(|EFSTRUC;gdCoef?|))
           (LETT #3# (QVSIZE |v|) . #4#) G190 (COND ((> |i| #3#) (GO G191)))
           (SEQ
            (EXIT
             (COND
              ((QEQCAR
                (SPADCALL (SPADCALL (QAREF1O |v| |i| 1) |c| (QREFELT $ 149))
                          (QREFELT $ 152))
                1)
               (PROGN
                (LETT #1# (PROGN (LETT #2# 'NIL . #4#) (GO #2#)) . #4#)
                (GO #1#))))))
           (LETT |i| (+ |i| 1) . #4#) (GO G190) G191 (EXIT NIL)))
         #1# (EXIT #1#))
        (EXIT 'T)))
      #2# (EXIT #2#))))) 

(DEFUN |EFSTRUC;goodCoef| (|v| |l| |s| $)
  (PROG (#1=#:G2237 #2=#:G2239 |r| #3=#:G2243 |i| #4=#:G2244 |k| |h| |j| |h1|
         #5=#:G2241 #6=#:G2242 |ll| #7=#:G2240)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |h| 0 . #8=(|EFSTRUC;goodCoef|)) (LETT |j| 0 . #8#)
            (LETT |ll| NIL . #8#)
            (SEQ (LETT |k| NIL . #8#) (LETT #7# |l| . #8#) G190
                 (COND
                  ((OR (ATOM #7#) (PROGN (LETT |k| (CAR #7#) . #8#) NIL))
                   #9=(GO G191)))
                 (SEQ
                  (EXIT
                   (COND
                    ((OR (SPADCALL |k| '|log| (QREFELT $ 30))
                         (OR (SPADCALL |k| '|exp| (QREFELT $ 30))
                             (OR (SPADCALL |k| '|tan| (QREFELT $ 30))
                                 (SPADCALL |k| '|atan| (QREFELT $ 30)))))
                     (SEQ (LETT |ll| (CONS |k| |ll|) . #8#)
                          (EXIT (LETT |h| (+ |h| 1) . #8#)))))))
                 (LETT #7# (CDR #7#) . #8#) #10=(GO G190) G191 (EXIT NIL))
            (COND
             ((NULL
               (EQL |h| (+ (- (QVSIZE |v|) (SPADCALL |v| (QREFELT $ 142))) 1)))
              (EXIT (CONS 1 "failed"))))
            (LETT |h| 0 . #8#) (LETT |ll| (REVERSE |ll|) . #8#)
            (SEQ (LETT |k| NIL . #8#) (LETT #6# |ll| . #8#)
                 (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #8#)
                 (LETT #5# (QVSIZE |v|) . #8#) G190
                 (COND
                  ((OR (> |i| #5#) (ATOM #6#)
                       (PROGN (LETT |k| (CAR #6#) . #8#) NIL))
                   #9#))
                 (SEQ (LETT |h1| (SPADCALL |k| (QREFELT $ 153)) . #8#)
                      (EXIT
                       (COND
                        ((< |h| |h1|)
                         (SEQ (LETT |j| |i| . #8#)
                              (EXIT (LETT |h| |h1| . #8#)))))))
                 (LETT |i| (PROG1 (+ |i| 1) (LETT #6# (CDR #6#) . #8#)) . #8#)
                 #10# G191 (EXIT NIL))
            (SEQ
             (EXIT
              (SEQ (LETT |k| NIL . #8#) (LETT #4# |ll| . #8#)
                   (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #8#)
                   (LETT #3# (QVSIZE |v|) . #8#) G190
                   (COND
                    ((OR (> |i| #3#) (ATOM #4#)
                         (PROGN (LETT |k| (CAR #4#) . #8#) NIL))
                     #9#))
                   (SEQ
                    (EXIT
                     (COND
                      ((SPADCALL |k| |s| (QREFELT $ 30))
                       (COND
                        ((NULL (< |i| |j|))
                         (SEQ
                          (LETT |r|
                                (SPADCALL (QAREF1O |v| |i| 1) (QREFELT $ 155))
                                . #8#)
                          (EXIT
                           (COND
                            ((QEQCAR |r| 0)
                             (COND
                              ((QEQCAR (SPADCALL (QCDR |r|) (QREFELT $ 152)) 0)
                               (COND
                                ((|EFSTRUC;gdCoef?| (QAREF1O |v| |i| 1) |v| $)
                                 (PROGN
                                  (LETT #1#
                                        (PROGN
                                         (LETT #2# (CONS 0 (CONS |i| |k|))
                                               . #8#)
                                         (GO #2#))
                                        . #8#)
                                  (GO #1#))))))))))))))))
                   (LETT |i| (PROG1 (+ |i| 1) (LETT #4# (CDR #4#) . #8#))
                         . #8#)
                   #10# G191 (EXIT NIL)))
             #1# (EXIT #1#))
            (EXIT (CONS 1 "failed"))))
      #2# (EXIT #2#))))) 

(DEFUN |EFSTRUC;taneval| (|f| |lk| |k| |v| $)
  (PROG (|g| #1=#:G2268 |a| #2=#:G2269 |x| #3=#:G2267 |l| #4=#:G2266 |kk|
         #5=#:G2265 |lv| #6=#:G2264 |i| #7=#:G2263 |v0| |rec| |c| #8=#:G2247
         #9=#:G2246 #10=#:G2248 #11=#:G2261 #12=#:G2262 |fns| |u|)
    (RETURN
     (SEQ
      (LETT |u| (|SPADfirst| (SPADCALL |k| (QREFELT $ 32)))
            . #13=(|EFSTRUC;taneval|))
      (LETT |fns| (|EFSTRUC;toU| |lk| $) . #13#)
      (LETT |c|
            (SPADCALL |u|
                      (PROGN
                       (LETT #8# NIL . #13#)
                       (SEQ (LETT |x| NIL . #13#) (LETT #12# |fns| . #13#)
                            (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #13#)
                            (LETT #11# (QVSIZE |v|) . #13#) G190
                            (COND
                             ((OR (> |i| #11#) (ATOM #12#)
                                  (PROGN (LETT |x| (CAR #12#) . #13#) NIL))
                              #14=(GO G191)))
                            (SEQ
                             (EXIT
                              (PROGN
                               (LETT #10#
                                     (SPADCALL (QAREF1O |v| |i| 1) |x|
                                               (QREFELT $ 151))
                                     . #13#)
                               (COND
                                (#8#
                                 (LETT #9# (SPADCALL #9# #10# (QREFELT $ 135))
                                       . #13#))
                                ('T
                                 (PROGN
                                  (LETT #9# #10# . #13#)
                                  (LETT #8# 'T . #13#)))))))
                            (LETT |i|
                                  (PROG1 (+ |i| 1)
                                    (LETT #12# (CDR #12#) . #13#))
                                  . #13#)
                            #15=(GO G190) G191 (EXIT NIL))
                       (COND (#8# #9#) (#16='T (|spadConstant| $ 26))))
                      (QREFELT $ 133))
            . #13#)
      (LETT |rec| (|EFSTRUC;goodCoef| |v| |lk| '|tan| $) . #13#)
      (EXIT
       (COND
        ((QEQCAR |rec| 1) (|EFSTRUC;tannosimp| |f| |lk| |k| |v| |fns| |c| $))
        (#16#
         (SEQ
          (LETT |v0|
                (SPADCALL
                 (SPADCALL (QAREF1O |v| (QCAR (QCDR |rec|)) 1) (QREFELT $ 156))
                 (QREFELT $ 144))
                . #13#)
          (LETT |lv|
                (PROGN
                 (LETT #7# NIL . #13#)
                 (SEQ (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #13#)
                      (LETT #6# (QVSIZE |v|) . #13#) G190
                      (COND ((> |i| #6#) #14#))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND ((EQL |i| (QCAR (QCDR |rec|))) 'NIL) (#16# 'T))
                          (LETT #7# (CONS (QAREF1O |v| |i| 1) #7#) . #13#)))))
                      (LETT |i| (+ |i| 1) . #13#) #15# G191
                      (EXIT (NREVERSE0 #7#))))
                . #13#)
          (LETT |l|
                (PROGN
                 (LETT #5# NIL . #13#)
                 (SEQ (LETT |kk| NIL . #13#) (LETT #4# |lk| . #13#) G190
                      (COND
                       ((OR (ATOM #4#)
                            (PROGN (LETT |kk| (CAR #4#) . #13#) NIL))
                        #14#))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND
                           ((SPADCALL |kk| (QCDR (QCDR |rec|)) (QREFELT $ 113))
                            'NIL)
                           (#16# 'T))
                          (LETT #5# (CONS |kk| #5#) . #13#)))))
                      (LETT #4# (CDR #4#) . #13#) #15# G191
                      (EXIT (NREVERSE0 #5#))))
                . #13#)
          (LETT |g|
                (|EFSTRUC;tanSum|
                 (SPADCALL (SPADCALL |v0| |c| (QREFELT $ 157)) (QREFELT $ 14))
                 (CONS
                  (SPADCALL (SPADCALL |k| (QREFELT $ 91)) |v0| (QREFELT $ 49))
                  (PROGN
                   (LETT #3# NIL . #13#)
                   (SEQ (LETT |x| NIL . #13#)
                        (LETT #2# (|EFSTRUC;toV| |l| $) . #13#)
                        (LETT |a| NIL . #13#) (LETT #1# |lv| . #13#) G190
                        (COND
                         ((OR (ATOM #1#)
                              (PROGN (LETT |a| (CAR #1#) . #13#) NIL)
                              (ATOM #2#)
                              (PROGN (LETT |x| (CAR #2#) . #13#) NIL))
                          #14#))
                        (SEQ
                         (EXIT
                          (LETT #3#
                                (CONS
                                 (SPADCALL |x|
                                           (-
                                            (SPADCALL
                                             (SPADCALL |a| |v0|
                                                       (QREFELT $ 158))
                                             (QREFELT $ 144)))
                                           (QREFELT $ 49))
                                 #3#)
                                . #13#)))
                        (LETT #1# (PROG1 (CDR #1#) (LETT #2# (CDR #2#) . #13#))
                              . #13#)
                        #15# G191 (EXIT (NREVERSE0 #3#)))))
                 $)
                . #13#)
          (EXIT
           (VECTOR
            (SPADCALL |f| (LIST (QCDR (QCDR |rec|))) (LIST |g|)
                      (QREFELT $ 111))
            (LIST (QCDR (QCDR |rec|))) (LIST |g|))))))))))) 

(DEFUN |EFSTRUC;tannosimp| (|f| |lk| |k| |v| |fns| |c| $)
  (PROG (|h| |i| #1=#:G2303 |x| #2=#:G2302 |lk1| |newtan| #3=#:G2300 #4=#:G2301
         |t| #5=#:G2299 |li| #6=#:G2298 #7=#:G2297 #8=#:G2296 |newt| #9=#:G2295
         |u| #10=#:G2294 |dd| |d| |cd| #11=#:G2293 #12=#:G2292 #13=#:G2291
         #14=#:G2290 |n|)
    (RETURN
     (SEQ (LETT |n| (QVSIZE |v|) . #15=(|EFSTRUC;tannosimp|))
          (LETT |lk|
                (PROGN
                 (LETT #14# NIL . #15#)
                 (SEQ (LETT |x| NIL . #15#) (LETT #13# |lk| . #15#) G190
                      (COND
                       ((OR (ATOM #13#)
                            (PROGN (LETT |x| (CAR #13#) . #15#) NIL))
                        #16=(GO G191)))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND ((SPADCALL |x| '|tan| (QREFELT $ 30)) 'T)
                                (#17='T (SPADCALL |x| '|atan| (QREFELT $ 30))))
                          (LETT #14# (CONS |x| #14#) . #15#)))))
                      (LETT #13# (CDR #13#) . #15#) #18=(GO G190) G191
                      (EXIT (NREVERSE0 #14#))))
                . #15#)
          (LETT |lk1|
                (PROGN
                 (LETT #12# NIL . #15#)
                 (SEQ (LETT |i| 1 . #15#) (LETT |x| NIL . #15#)
                      (LETT #11# |lk| . #15#) G190
                      (COND
                       ((OR (ATOM #11#)
                            (PROGN (LETT |x| (CAR #11#) . #15#) NIL)
                            (QSGREATERP |i| |n|))
                        #16#))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND
                           ((SPADCALL (QAREF1O |v| |i| 1)
                                      (|spadConstant| $ 159) (QREFELT $ 85))
                            'NIL)
                           (#17# 'T))
                          (LETT #12# (CONS |x| #12#) . #15#)))))
                      (LETT #11#
                            (PROG1 (CDR #11#) (LETT |i| (QSADD1 |i|) . #15#))
                            . #15#)
                      #18# G191 (EXIT (NREVERSE0 #12#))))
                . #15#)
          (EXIT
           (COND
            ((SPADCALL (CONS #'|EFSTRUC;tannosimp!0| $) |lk1| (QREFELT $ 160))
             (SEQ
              (LETT |dd|
                    (SPADCALL
                     (LETT |d|
                           (QCDR
                            (LETT |cd| (SPADCALL |v| (QREFELT $ 163)) . #15#))
                           . #15#)
                     (QREFELT $ 13))
                    . #15#)
              (LETT |newt|
                    (PROGN
                     (LETT #10# NIL . #15#)
                     (SEQ (LETT |i| 1 . #15#) (LETT |u| NIL . #15#)
                          (LETT #9# |fns| . #15#) G190
                          (COND
                           ((OR (ATOM #9#)
                                (PROGN (LETT |u| (CAR #9#) . #15#) NIL)
                                (QSGREATERP |i| |n|))
                            #16#))
                          (SEQ
                           (EXIT
                            (COND
                             ((COND
                               ((SPADCALL (QAREF1O |v| |i| 1)
                                          (|spadConstant| $ 159)
                                          (QREFELT $ 85))
                                'NIL)
                               (#17# 'T))
                              (LETT #10#
                                    (CONS
                                     (SPADCALL
                                      (SPADCALL |u| |dd| (QREFELT $ 15))
                                      (QREFELT $ 55))
                                     #10#)
                                    . #15#)))))
                          (LETT #9#
                                (PROG1 (CDR #9#)
                                  (LETT |i| (QSADD1 |i|) . #15#))
                                . #15#)
                          #18# G191 (EXIT (NREVERSE0 #10#))))
                    . #15#)
              (LETT |newtan|
                    (PROGN
                     (LETT #8# NIL . #15#)
                     (SEQ (LETT |t| NIL . #15#) (LETT #7# |newt| . #15#) G190
                          (COND
                           ((OR (ATOM #7#)
                                (PROGN (LETT |t| (CAR #7#) . #15#) NIL))
                            #16#))
                          (SEQ
                           (EXIT
                            (LETT #8#
                                  (CONS (SPADCALL |t| |d| (QREFELT $ 49)) #8#)
                                  . #15#)))
                          (LETT #7# (CDR #7#) . #15#) #18# G191
                          (EXIT (NREVERSE0 #8#))))
                    . #15#)
              (LETT |li|
                    (PROGN
                     (LETT #6# NIL . #15#)
                     (SEQ (LETT |i| 1 . #15#) G190
                          (COND ((QSGREATERP |i| |n|) #16#))
                          (SEQ
                           (EXIT
                            (COND
                             ((COND
                               ((SPADCALL (QAREF1O |v| |i| 1)
                                          (|spadConstant| $ 159)
                                          (QREFELT $ 85))
                                'NIL)
                               (#17# 'T))
                              (LETT #6# (CONS |i| #6#) . #15#)))))
                          (LETT |i| (QSADD1 |i|) . #15#) #18# G191
                          (EXIT (NREVERSE0 #6#))))
                    . #15#)
              (LETT |h|
                    (|EFSTRUC;tanSum| |c|
                     (PROGN
                      (LETT #5# NIL . #15#)
                      (SEQ (LETT |t| NIL . #15#) (LETT #4# |newt| . #15#)
                           (LETT |i| NIL . #15#) (LETT #3# |li| . #15#) G190
                           (COND
                            ((OR (ATOM #3#)
                                 (PROGN (LETT |i| (CAR #3#) . #15#) NIL)
                                 (ATOM #4#)
                                 (PROGN (LETT |t| (CAR #4#) . #15#) NIL))
                             #16#))
                           (SEQ
                            (EXIT
                             (LETT #5#
                                   (CONS
                                    (SPADCALL |t| (QAREF1O (QCAR |cd|) |i| 1)
                                              (QREFELT $ 49))
                                    #5#)
                                   . #15#)))
                           (LETT #3#
                                 (PROG1 (CDR #3#) (LETT #4# (CDR #4#) . #15#))
                                 . #15#)
                           #18# G191 (EXIT (NREVERSE0 #5#))))
                     $)
                    . #15#)
              (LETT |newtan| (CONS |h| |newtan|) . #15#)
              (LETT |lk1| (CONS |k| |lk1|) . #15#)
              (EXIT
               (VECTOR (SPADCALL |f| |lk1| |newtan| (QREFELT $ 111)) |lk1|
                       |newtan|))))
            (#17#
             (SEQ
              (LETT |h|
                    (|EFSTRUC;tanSum| |c|
                     (PROGN
                      (LETT #2# NIL . #15#)
                      (SEQ (LETT |x| NIL . #15#)
                           (LETT #1# (|EFSTRUC;toV| |lk| $) . #15#)
                           (LETT |i| 1 . #15#) G190
                           (COND
                            ((OR (QSGREATERP |i| |n|) (ATOM #1#)
                                 (PROGN (LETT |x| (CAR #1#) . #15#) NIL))
                             #16#))
                           (SEQ
                            (EXIT
                             (LETT #2#
                                   (CONS
                                    (SPADCALL (QAREF1O |v| |i| 1) |x|
                                              (QREFELT $ 50))
                                    #2#)
                                   . #15#)))
                           (LETT |i|
                                 (PROG1 (QSADD1 |i|)
                                   (LETT #1# (CDR #1#) . #15#))
                                 . #15#)
                           #18# G191 (EXIT (NREVERSE0 #2#))))
                     $)
                    . #15#)
              (EXIT
               (VECTOR (SPADCALL |f| (LIST |k|) (LIST |h|) (QREFELT $ 111))
                       (LIST |k|) (LIST |h|))))))))))) 

(DEFUN |EFSTRUC;tannosimp!0| (|x| $) (SPADCALL |x| '|tan| (QREFELT $ 30))) 

(DEFUN |EFSTRUC;expnosimp| (|f| |lk| |k| |v| |fns| |g| $)
  (PROG (|h| #1=#:G2400 #2=#:G2399 #3=#:G2401 #4=#:G2416 |i| #5=#:G2417 |y|
         |newexp| |lk1| #6=#:G2357 #7=#:G2356 #8=#:G2358 #9=#:G2414 #10=#:G2415
         |e| |li| #11=#:G2413 #12=#:G2412 #13=#:G2411 |newe| #14=#:G2410
         #15=#:G2409 |dd| |d| |cd| #16=#:G2408 |x| #17=#:G2407 #18=#:G2406
         #19=#:G2405 |n|)
    (RETURN
     (SEQ (LETT |n| (QVSIZE |v|) . #20=(|EFSTRUC;expnosimp|))
          (LETT |lk|
                (PROGN
                 (LETT #19# NIL . #20#)
                 (SEQ (LETT |x| NIL . #20#) (LETT #18# |lk| . #20#) G190
                      (COND
                       ((OR (ATOM #18#)
                            (PROGN (LETT |x| (CAR #18#) . #20#) NIL))
                        #21=(GO G191)))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND ((SPADCALL |x| '|exp| (QREFELT $ 30)) 'T)
                                (#22='T (SPADCALL |x| '|log| (QREFELT $ 30))))
                          (LETT #19# (CONS |x| #19#) . #20#)))))
                      (LETT #18# (CDR #18#) . #20#) #23=(GO G190) G191
                      (EXIT (NREVERSE0 #19#))))
                . #20#)
          (LETT |lk1|
                (PROGN
                 (LETT #17# NIL . #20#)
                 (SEQ (LETT |i| 1 . #20#) (LETT |x| NIL . #20#)
                      (LETT #16# |lk| . #20#) G190
                      (COND
                       ((OR (ATOM #16#)
                            (PROGN (LETT |x| (CAR #16#) . #20#) NIL)
                            (QSGREATERP |i| |n|))
                        #21#))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND
                           ((SPADCALL (QAREF1O |v| |i| 1)
                                      (|spadConstant| $ 159) (QREFELT $ 85))
                            'NIL)
                           (#22# 'T))
                          (LETT #17# (CONS |x| #17#) . #20#)))))
                      (LETT #16#
                            (PROG1 (CDR #16#) (LETT |i| (QSADD1 |i|) . #20#))
                            . #20#)
                      #23# G191 (EXIT (NREVERSE0 #17#))))
                . #20#)
          (EXIT
           (COND
            ((SPADCALL (CONS #'|EFSTRUC;expnosimp!0| $) |lk1| (QREFELT $ 160))
             (SEQ
              (LETT |dd|
                    (SPADCALL
                     (LETT |d|
                           (QCDR
                            (LETT |cd| (SPADCALL |v| (QREFELT $ 163)) . #20#))
                           . #20#)
                     (QREFELT $ 13))
                    . #20#)
              (LETT |newe|
                    (PROGN
                     (LETT #15# NIL . #20#)
                     (SEQ (LETT |i| 1 . #20#) (LETT |y| NIL . #20#)
                          (LETT #14# |fns| . #20#) G190
                          (COND
                           ((OR (ATOM #14#)
                                (PROGN (LETT |y| (CAR #14#) . #20#) NIL)
                                (QSGREATERP |i| |n|))
                            #21#))
                          (SEQ
                           (EXIT
                            (COND
                             ((COND
                               ((SPADCALL (QAREF1O |v| |i| 1)
                                          (|spadConstant| $ 159)
                                          (QREFELT $ 85))
                                'NIL)
                               (#22# 'T))
                              (LETT #15#
                                    (CONS
                                     (SPADCALL
                                      (SPADCALL |y| |dd| (QREFELT $ 15))
                                      (QREFELT $ 131))
                                     #15#)
                                    . #20#)))))
                          (LETT #14#
                                (PROG1 (CDR #14#)
                                  (LETT |i| (QSADD1 |i|) . #20#))
                                . #20#)
                          #23# G191 (EXIT (NREVERSE0 #15#))))
                    . #20#)
              (LETT |newexp|
                    (PROGN
                     (LETT #13# NIL . #20#)
                     (SEQ (LETT |e| NIL . #20#) (LETT #12# |newe| . #20#) G190
                          (COND
                           ((OR (ATOM #12#)
                                (PROGN (LETT |e| (CAR #12#) . #20#) NIL))
                            #21#))
                          (SEQ
                           (EXIT
                            (LETT #13#
                                  (CONS (SPADCALL |e| |d| (QREFELT $ 105))
                                        #13#)
                                  . #20#)))
                          (LETT #12# (CDR #12#) . #20#) #23# G191
                          (EXIT (NREVERSE0 #13#))))
                    . #20#)
              (LETT |li|
                    (PROGN
                     (LETT #11# NIL . #20#)
                     (SEQ (LETT |i| 1 . #20#) G190
                          (COND ((QSGREATERP |i| |n|) #21#))
                          (SEQ
                           (EXIT
                            (COND
                             ((COND
                               ((SPADCALL (QAREF1O |v| |i| 1)
                                          (|spadConstant| $ 159)
                                          (QREFELT $ 85))
                                'NIL)
                               (#22# 'T))
                              (LETT #11# (CONS |i| #11#) . #20#)))))
                          (LETT |i| (QSADD1 |i|) . #20#) #23# G191
                          (EXIT (NREVERSE0 #11#))))
                    . #20#)
              (LETT |h|
                    (SPADCALL
                     (PROGN
                      (LETT #6# NIL . #20#)
                      (SEQ (LETT |e| NIL . #20#) (LETT #10# |newe| . #20#)
                           (LETT |i| NIL . #20#) (LETT #9# |li| . #20#) G190
                           (COND
                            ((OR (ATOM #9#)
                                 (PROGN (LETT |i| (CAR #9#) . #20#) NIL)
                                 (ATOM #10#)
                                 (PROGN (LETT |e| (CAR #10#) . #20#) NIL))
                             #21#))
                           (SEQ
                            (EXIT
                             (PROGN
                              (LETT #8#
                                    (SPADCALL |e| (QAREF1O (QCAR |cd|) |i| 1)
                                              (QREFELT $ 105))
                                    . #20#)
                              (COND
                               (#6#
                                (LETT #7# (SPADCALL #7# #8# (QREFELT $ 130))
                                      . #20#))
                               ('T
                                (PROGN
                                 (LETT #7# #8# . #20#)
                                 (LETT #6# 'T . #20#)))))))
                           (LETT #9#
                                 (PROG1 (CDR #9#)
                                   (LETT #10# (CDR #10#) . #20#))
                                 . #20#)
                           #23# G191 (EXIT NIL))
                      (COND (#6# #7#) (#22# (|spadConstant| $ 61))))
                     |g| (QREFELT $ 130))
                    . #20#)
              (LETT |lk1| (CONS |k| |lk1|) . #20#)
              (LETT |newexp| (CONS |h| |newexp|) . #20#)
              (EXIT
               (VECTOR (SPADCALL |f| |lk1| |newexp| (QREFELT $ 111)) |lk1|
                       |newexp|))))
            (#22#
             (SEQ
              (LETT |h|
                    (SPADCALL
                     (PROGN
                      (LETT #1# NIL . #20#)
                      (SEQ (LETT |y| NIL . #20#) (LETT #5# |fns| . #20#)
                           (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #20#)
                           (LETT #4# (QVSIZE |v|) . #20#) G190
                           (COND
                            ((OR (> |i| #4#) (ATOM #5#)
                                 (PROGN (LETT |y| (CAR #5#) . #20#) NIL))
                             #21#))
                           (SEQ
                            (EXIT
                             (PROGN
                              (LETT #3#
                                    (SPADCALL (SPADCALL |y| (QREFELT $ 131))
                                              (QAREF1O |v| |i| 1)
                                              (QREFELT $ 150))
                                    . #20#)
                              (COND
                               (#1#
                                (LETT #2# (SPADCALL #2# #3# (QREFELT $ 130))
                                      . #20#))
                               ('T
                                (PROGN
                                 (LETT #2# #3# . #20#)
                                 (LETT #1# 'T . #20#)))))))
                           (LETT |i|
                                 (PROG1 (+ |i| 1) (LETT #5# (CDR #5#) . #20#))
                                 . #20#)
                           #23# G191 (EXIT NIL))
                      (COND (#1# #2#) (#22# (|spadConstant| $ 61))))
                     |g| (QREFELT $ 130))
                    . #20#)
              (EXIT
               (VECTOR (SPADCALL |f| (LIST |k|) (LIST |h|) (QREFELT $ 111))
                       (LIST |k|) (LIST |h|))))))))))) 

(DEFUN |EFSTRUC;expnosimp!0| (|x| $) (SPADCALL |x| '|exp| (QREFELT $ 30))) 

(DEFUN |EFSTRUC;logeval| (|f| |lk| |k| |v| $)
  (PROG (|g| #1=#:G2429 #2=#:G2428 #3=#:G2430 #4=#:G2435 |i| #5=#:G2436 |x| |c|
         #6=#:G2420 #7=#:G2419 #8=#:G2421 #9=#:G2433 #10=#:G2434 |z|)
    (RETURN
     (SEQ
      (LETT |z| (|SPADfirst| (SPADCALL |k| (QREFELT $ 32)))
            . #11=(|EFSTRUC;logeval|))
      (LETT |c|
            (SPADCALL |z|
                      (PROGN
                       (LETT #6# NIL . #11#)
                       (SEQ (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #11#)
                            (LETT #10# (QVSIZE |v|) . #11#)
                            (LETT |x| NIL . #11#)
                            (LETT #9# (|EFSTRUC;toZ| |lk| $) . #11#) G190
                            (COND
                             ((OR (ATOM #9#)
                                  (PROGN (LETT |x| (CAR #9#) . #11#) NIL)
                                  (> |i| #10#))
                              #12=(GO G191)))
                            (SEQ
                             (EXIT
                              (PROGN
                               (LETT #8#
                                     (SPADCALL |x| (QAREF1O |v| |i| 1)
                                               (QREFELT $ 150))
                                     . #11#)
                               (COND
                                (#6#
                                 (LETT #7# (SPADCALL #7# #8# (QREFELT $ 130))
                                       . #11#))
                                ('T
                                 (PROGN
                                  (LETT #7# #8# . #11#)
                                  (LETT #6# 'T . #11#)))))))
                            (LETT #9#
                                  (PROG1 (CDR #9#) (LETT |i| (+ |i| 1) . #11#))
                                  . #11#)
                            #13=(GO G190) G191 (EXIT NIL))
                       (COND (#6# #7#) (#14='T (|spadConstant| $ 61))))
                      (QREFELT $ 15))
            . #11#)
      (LETT |g|
            (SPADCALL
             (PROGN
              (LETT #1# NIL . #11#)
              (SEQ (LETT |x| NIL . #11#)
                   (LETT #5# (|EFSTRUC;toY| |lk| $) . #11#)
                   (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #11#)
                   (LETT #4# (QVSIZE |v|) . #11#) G190
                   (COND
                    ((OR (> |i| #4#) (ATOM #5#)
                         (PROGN (LETT |x| (CAR #5#) . #11#) NIL))
                     #12#))
                   (SEQ
                    (EXIT
                     (PROGN
                      (LETT #3#
                            (SPADCALL (QAREF1O |v| |i| 1) |x| (QREFELT $ 151))
                            . #11#)
                      (COND
                       (#1#
                        (LETT #2# (SPADCALL #2# #3# (QREFELT $ 135)) . #11#))
                       ('T
                        (PROGN (LETT #2# #3# . #11#) (LETT #1# 'T . #11#)))))))
                   (LETT |i| (PROG1 (+ |i| 1) (LETT #5# (CDR #5#) . #11#))
                         . #11#)
                   #13# G191 (EXIT NIL))
              (COND (#1# #2#) (#14# (|spadConstant| $ 26))))
             (SPADCALL |c| (QREFELT $ 92)) (QREFELT $ 135))
            . #11#)
      (EXIT
       (VECTOR (SPADCALL |f| (LIST |k|) (LIST |g|) (QREFELT $ 111)) (LIST |k|)
               (LIST |g|))))))) 

(DEFUN |EFSTRUC;rischNormalize;FLR;40| (|f| |vars| $)
  (PROG (#1=#:G2447 |rn| #2=#:G2443 |rec| |c| |klist| |i| #3=#:G2448 |kk| |n|
         |pars| |funs| |lk|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |lk| (SPADCALL |f| (QREFELT $ 58))
              . #4=(|EFSTRUC;rischNormalize;FLR;40|))
        (LETT |funs| |lk| . #4#)
        (LETT |pars| (SPADCALL |f| (QREFELT $ 22)) . #4#)
        (LETT |pars| (SPADCALL |pars| |vars| (QREFELT $ 164)) . #4#)
        (EXIT
         (COND ((NULL |funs|) (VECTOR |f| NIL NIL))
               ('T
                (SEQ (LETT |n| (LENGTH |funs|) . #4#)
                     (SEQ (LETT |kk| NIL . #4#) (LETT #3# (CDR |funs|) . #4#)
                          (LETT |i| 1 . #4#) G190
                          (COND
                           ((OR (QSGREATERP |i| |n|) (ATOM #3#)
                                (PROGN (LETT |kk| (CAR #3#) . #4#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (SEQ
                             (LETT |klist| (SPADCALL |funs| |i| (QREFELT $ 63))
                                   . #4#)
                             (SEQ
                              (LETT |c|
                                    (|EFSTRUC;findRelation| |vars| |pars|
                                     |klist| |kk| $)
                                    . #4#)
                              (EXIT
                               (COND
                                ((QEQCAR |c| 0)
                                 (COND
                                  ((NULL (SPADCALL (CDR |c|) (QREFELT $ 165)))
                                   (PROGN
                                    (LETT #2#
                                          (SEQ
                                           (LETT |rec|
                                                 (|EFSTRUC;depeval| |f| |klist|
                                                  |kk| (CDR |c|) $)
                                                 . #4#)
                                           (LETT |rn|
                                                 (SPADCALL (QVELT |rec| 0)
                                                           |vars|
                                                           (QREFELT $ 167))
                                                 . #4#)
                                           (EXIT
                                            (PROGN
                                             (LETT #1#
                                                   (VECTOR (QVELT |rn| 0)
                                                           (SPADCALL
                                                            (QVELT |rec| 1)
                                                            (QVELT |rn| 1)
                                                            (QREFELT $ 64))
                                                           (SPADCALL
                                                            (QVELT |rec| 2)
                                                            (QVELT |rn| 2)
                                                            (QREFELT $ 65)))
                                                   . #4#)
                                             (GO #1#))))
                                          . #4#)
                                    (GO #2#))))))))
                             (EXIT
                              (COND
                               ((QEQCAR |c| 1)
                                (SEQ
                                 (LETT |rn|
                                       (SPADCALL
                                        (SPADCALL |f| (LIST |kk|)
                                                  (LIST (CDR |c|))
                                                  (QREFELT $ 111))
                                        |vars| (QREFELT $ 167))
                                       . #4#)
                                 (EXIT
                                  (PROGN
                                   (LETT #1#
                                         (VECTOR (QVELT |rn| 0)
                                                 (CONS |kk| (QVELT |rn| 1))
                                                 (CONS (CDR |c|)
                                                       (QVELT |rn| 2)))
                                         . #4#)
                                   (GO #1#)))))))))
                           #2# (EXIT #2#))
                          (LETT |i|
                                (PROG1 (QSADD1 |i|) (LETT #3# (CDR #3#) . #4#))
                                . #4#)
                          (GO G190) G191 (EXIT NIL))
                     (EXIT (VECTOR |f| NIL NIL))))))))
      #1# (EXIT #1#))))) 

(DEFUN |EFSTRUC;rischNormalize;FSR;41| (|f| |v| $)
  (SPADCALL |f| (LIST |v|) (QREFELT $ 167))) 

(DEFUN |EFSTRUC;rootNormalize;FKF;42| (|f| |k| $)
  (PROG (|u|)
    (RETURN
     (SEQ
      (LETT |u|
            (|EFSTRUC;rootKernelNormalize| |f|
             (|EFSTRUC;toR| (SPADCALL |f| (QREFELT $ 58))
              (|SPADfirst| (SPADCALL |k| (QREFELT $ 32))) $)
             |k| $)
            |EFSTRUC;rootNormalize;FKF;42|)
      (EXIT (COND ((QEQCAR |u| 1) |f|) ('T (QVELT (QCDR |u|) 0)))))))) 

(DEFUN |EFSTRUC;rootKernelNormalize| (|f| |l| |k| $)
  (PROG (|c|)
    (RETURN
     (SEQ
      (LETT |c| (|EFSTRUC;rootDep| |l| |k| $) |EFSTRUC;rootKernelNormalize|)
      (EXIT
       (COND
        ((QEQCAR |c| 0)
         (CONS 0
               (|EFSTRUC;rooteval| |f| |l| |k|
                (SPADCALL (CDR |c|) (SPADCALL (CDR |c|) (QREFELT $ 142))
                          (QREFELT $ 143))
                $)))
        ('T (CONS 1 "failed")))))))) 

(DEFUN |EFSTRUC;localnorm| (|f| $) (QVELT (SPADCALL |f| NIL (QREFELT $ 167)) 0)) 

(DEFUN |EFSTRUC;validExponential;LFSU;45| (|twr| |eta| |x| $)
  (PROG (#1=#:G2501 #2=#:G2500 #3=#:G2502 #4=#:G2513 |i| #5=#:G2514 |yy| |g|
         #6=#:G2474 #7=#:G2473 #8=#:G2475 #9=#:G2511 #10=#:G2512 |v| |c|
         #11=#:G2510 |fns| #12=#:G2509)
    (RETURN
     (SEQ
      (LETT |c|
            (SPADCALL
             (SPADCALL
              (PROGN
               (LETT #12# NIL . #13=(|EFSTRUC;validExponential;LFSU;45|))
               (SEQ (LETT |g| NIL . #13#)
                    (LETT #11# (LETT |fns| (|EFSTRUC;toY| |twr| $) . #13#)
                          . #13#)
                    G190
                    (COND
                     ((OR (ATOM #11#) (PROGN (LETT |g| (CAR #11#) . #13#) NIL))
                      #14=(GO G191)))
                    (SEQ
                     (EXIT
                      (LETT #12# (CONS (SPADCALL |g| |x| (QREFELT $ 66)) #12#)
                            . #13#)))
                    (LETT #11# (CDR #11#) . #13#) #15=(GO G190) G191
                    (EXIT (NREVERSE0 #12#))))
              (QREFELT $ 170))
             (SPADCALL |eta| |x| (QREFELT $ 66)) (QREFELT $ 171))
            . #13#)
      (EXIT
       (COND ((QEQCAR |c| 1) (CONS 1 "failed"))
             (#16='T
              (SEQ (LETT |v| (QCDR |c|) . #13#)
                   (LETT |g|
                         (SPADCALL |eta|
                                   (PROGN
                                    (LETT #6# NIL . #13#)
                                    (SEQ (LETT |yy| NIL . #13#)
                                         (LETT #10# |fns| . #13#)
                                         (LETT |i|
                                               (SPADCALL |v| (QREFELT $ 142))
                                               . #13#)
                                         (LETT #9# (QVSIZE |v|) . #13#) G190
                                         (COND
                                          ((OR (> |i| #9#) (ATOM #10#)
                                               (PROGN
                                                (LETT |yy| (CAR #10#) . #13#)
                                                NIL))
                                           #14#))
                                         (SEQ
                                          (EXIT
                                           (PROGN
                                            (LETT #8#
                                                  (SPADCALL (QAREF1O |v| |i| 1)
                                                            |yy|
                                                            (QREFELT $ 151))
                                                  . #13#)
                                            (COND
                                             (#6#
                                              (LETT #7#
                                                    (SPADCALL #7# #8#
                                                              (QREFELT $ 135))
                                                    . #13#))
                                             ('T
                                              (PROGN
                                               (LETT #7# #8# . #13#)
                                               (LETT #6# 'T . #13#)))))))
                                         (LETT |i|
                                               (PROG1 (+ |i| 1)
                                                 (LETT #10# (CDR #10#) . #13#))
                                               . #13#)
                                         #15# G191 (EXIT NIL))
                                    (COND (#6# #7#)
                                          (#16# (|spadConstant| $ 26))))
                                   (QREFELT $ 133))
                         . #13#)
                   (EXIT
                    (CONS 0
                          (SPADCALL
                           (PROGN
                            (LETT #1# NIL . #13#)
                            (SEQ (LETT |yy| NIL . #13#) (LETT #5# |fns| . #13#)
                                 (LETT |i| (SPADCALL |v| (QREFELT $ 142))
                                       . #13#)
                                 (LETT #4# (QVSIZE |v|) . #13#) G190
                                 (COND
                                  ((OR (> |i| #4#) (ATOM #5#)
                                       (PROGN
                                        (LETT |yy| (CAR #5#) . #13#)
                                        NIL))
                                   #14#))
                                 (SEQ
                                  (EXIT
                                   (PROGN
                                    (LETT #3#
                                          (SPADCALL
                                           (SPADCALL |yy| (QREFELT $ 131))
                                           (QAREF1O |v| |i| 1) (QREFELT $ 150))
                                          . #13#)
                                    (COND
                                     (#1#
                                      (LETT #2#
                                            (SPADCALL #2# #3# (QREFELT $ 130))
                                            . #13#))
                                     ('T
                                      (PROGN
                                       (LETT #2# #3# . #13#)
                                       (LETT #1# 'T . #13#)))))))
                                 (LETT |i|
                                       (PROG1 (+ |i| 1)
                                         (LETT #5# (CDR #5#) . #13#))
                                       . #13#)
                                 #15# G191 (EXIT NIL))
                            (COND (#1# #2#) (#16# (|spadConstant| $ 61))))
                           (SPADCALL |g| (QREFELT $ 131))
                           (QREFELT $ 130)))))))))))) 

(DEFUN |EFSTRUC;irootDep;KU;46| (|k| $)
  (PROG (|nv| |nk| |nr| |nf| |pr| |n| #1=#:G2515)
    (RETURN
     (SEQ
      (LETT |n|
            (PROG1
                (LETT #1#
                      (SPADCALL
                       (SPADCALL (SPADCALL |k| (QREFELT $ 32)) (QREFELT $ 146))
                       (QREFELT $ 147))
                      . #2=(|EFSTRUC;irootDep;KU;46|))
              (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
            . #2#)
      (LETT |pr|
            (SPADCALL (|SPADfirst| (SPADCALL |k| (QREFELT $ 32))) |n|
                      (QREFELT $ 176))
            . #2#)
      (COND
       ((SPADCALL (QVELT |pr| 1) (|spadConstant| $ 61) (QREFELT $ 28))
        (COND
         ((NULL (EQL (QVELT |pr| 0) |n|))
          (EXIT
           (COND
            ((EQL (QVELT |pr| 0) 1)
             (CONS 1 (SPADCALL (QVELT |pr| 1) (QVELT |pr| 2) (QREFELT $ 130))))
            (#3='T
             (SEQ (LETT |nf| (SPADCALL (QVELT |pr| 0) (QREFELT $ 13)) . #2#)
                  (LETT |nr| (QVELT |pr| 2) . #2#)
                  (LETT |nk|
                        (SPADCALL (SPADCALL |k| (QREFELT $ 79))
                                  (LIST |nr| |nf|) (QREFELT $ 141))
                        . #2#)
                  (LETT |nv| (SPADCALL (QVELT |pr| 1) |nk| (QREFELT $ 130))
                        . #2#)
                  (EXIT (CONS 1 |nv|)))))))))
       (#3#
        (EXIT
         (COND
          ((EQL (QVELT |pr| 0) 1)
           (CONS 1 (SPADCALL (QVELT |pr| 1) (QVELT |pr| 2) (QREFELT $ 130))))
          (#3#
           (SEQ (LETT |nf| (SPADCALL (QVELT |pr| 0) (QREFELT $ 13)) . #2#)
                (LETT |nr| (QVELT |pr| 2) . #2#)
                (LETT |nk|
                      (SPADCALL (SPADCALL |k| (QREFELT $ 79)) (LIST |nr| |nf|)
                                (QREFELT $ 141))
                      . #2#)
                (LETT |nv| (SPADCALL (QVELT |pr| 1) |nk| (QREFELT $ 130))
                      . #2#)
                (EXIT (CONS 1 |nv|))))))))
      (EXIT (CONS 2 'T)))))) 

(DEFUN |EFSTRUC;irootDep;KU;47| (|k| $) (CONS 2 'T)) 

(DEFUN |EFSTRUC;rootDep| (|ker| |k| $)
  (PROG (#1=#:G2552 #2=#:G2551 #3=#:G2553 #4=#:G2556 |r|)
    (RETURN
     (SEQ
      (COND
       ((NULL
         (LETT |ker|
               (|EFSTRUC;toR| |ker| (|SPADfirst| (SPADCALL |k| (QREFELT $ 32)))
                $)
               . #5=(|EFSTRUC;rootDep|)))
        (SPADCALL |k| (QREFELT $ 178)))
       (#6='T
        (CONS 0
              (MAKEARR1 1
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL (SPADCALL |k| (QREFELT $ 32))
                                     (QREFELT $ 146))
                           (QREFELT $ 147))
                          (PROGN
                           (LETT #1# NIL . #5#)
                           (SEQ (LETT |r| NIL . #5#) (LETT #4# |ker| . #5#)
                                G190
                                (COND
                                 ((OR (ATOM #4#)
                                      (PROGN (LETT |r| (CAR #4#) . #5#) NIL))
                                  (GO G191)))
                                (SEQ
                                 (EXIT
                                  (PROGN
                                   (LETT #3#
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL |r| (QREFELT $ 32))
                                           (QREFELT $ 146))
                                          (QREFELT $ 147))
                                         . #5#)
                                   (COND
                                    (#1#
                                     (LETT #2#
                                           (SPADCALL #2# #3# (QREFELT $ 179))
                                           . #5#))
                                    ('T
                                     (PROGN
                                      (LETT #2# #3# . #5#)
                                      (LETT #1# 'T . #5#)))))))
                                (LETT #4# (CDR #4#) . #5#) (GO G190) G191
                                (EXIT NIL))
                           (COND (#1# #2#) (#6# 1)))
                          (QREFELT $ 179))
                         (QREFELT $ 148)))))))))) 

(DEFUN |EFSTRUC;expeval| (|f| |lk| |k| |v| $)
  (PROG (|h| #1=#:G2570 #2=#:G2569 #3=#:G2571 #4=#:G2581 |a| #5=#:G2582 |z| |l|
         #6=#:G2580 |kk| #7=#:G2579 |lv| #8=#:G2578 |i| #9=#:G2577 |v0| |rec|
         |g| #10=#:G2559 #11=#:G2558 #12=#:G2560 #13=#:G2575 #14=#:G2576 |fns|
         |y|)
    (RETURN
     (SEQ
      (LETT |y| (|SPADfirst| (SPADCALL |k| (QREFELT $ 32)))
            . #15=(|EFSTRUC;expeval|))
      (LETT |fns| (|EFSTRUC;toY| |lk| $) . #15#)
      (LETT |g|
            (SPADCALL |y|
                      (PROGN
                       (LETT #10# NIL . #15#)
                       (SEQ (LETT |z| NIL . #15#) (LETT #14# |fns| . #15#)
                            (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #15#)
                            (LETT #13# (QVSIZE |v|) . #15#) G190
                            (COND
                             ((OR (> |i| #13#) (ATOM #14#)
                                  (PROGN (LETT |z| (CAR #14#) . #15#) NIL))
                              #16=(GO G191)))
                            (SEQ
                             (EXIT
                              (PROGN
                               (LETT #12#
                                     (SPADCALL (QAREF1O |v| |i| 1) |z|
                                               (QREFELT $ 151))
                                     . #15#)
                               (COND
                                (#10#
                                 (LETT #11#
                                       (SPADCALL #11# #12# (QREFELT $ 135))
                                       . #15#))
                                ('T
                                 (PROGN
                                  (LETT #11# #12# . #15#)
                                  (LETT #10# 'T . #15#)))))))
                            (LETT |i|
                                  (PROG1 (+ |i| 1)
                                    (LETT #14# (CDR #14#) . #15#))
                                  . #15#)
                            #17=(GO G190) G191 (EXIT NIL))
                       (COND (#10# #11#) (#18='T (|spadConstant| $ 26))))
                      (QREFELT $ 133))
            . #15#)
      (LETT |rec| (|EFSTRUC;goodCoef| |v| |lk| '|exp| $) . #15#)
      (EXIT
       (COND
        ((QEQCAR |rec| 1)
         (|EFSTRUC;expnosimp| |f| |lk| |k| |v| |fns|
          (SPADCALL |g| (QREFELT $ 131)) $))
        (#18#
         (SEQ
          (LETT |v0|
                (SPADCALL
                 (SPADCALL (QAREF1O |v| (QCAR (QCDR |rec|)) 1) (QREFELT $ 156))
                 (QREFELT $ 144))
                . #15#)
          (LETT |lv|
                (PROGN
                 (LETT #9# NIL . #15#)
                 (SEQ (LETT |i| (SPADCALL |v| (QREFELT $ 142)) . #15#)
                      (LETT #8# (QVSIZE |v|) . #15#) G190
                      (COND ((> |i| #8#) #16#))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND ((EQL |i| (QCAR (QCDR |rec|))) 'NIL) (#18# 'T))
                          (LETT #9# (CONS (QAREF1O |v| |i| 1) #9#) . #15#)))))
                      (LETT |i| (+ |i| 1) . #15#) #17# G191
                      (EXIT (NREVERSE0 #9#))))
                . #15#)
          (LETT |l|
                (PROGN
                 (LETT #7# NIL . #15#)
                 (SEQ (LETT |kk| NIL . #15#) (LETT #6# |lk| . #15#) G190
                      (COND
                       ((OR (ATOM #6#)
                            (PROGN (LETT |kk| (CAR #6#) . #15#) NIL))
                        #16#))
                      (SEQ
                       (EXIT
                        (COND
                         ((COND
                           ((SPADCALL |kk| (QCDR (QCDR |rec|)) (QREFELT $ 113))
                            'NIL)
                           (#18# 'T))
                          (LETT #7# (CONS |kk| #7#) . #15#)))))
                      (LETT #6# (CDR #6#) . #15#) #17# G191
                      (EXIT (NREVERSE0 #7#))))
                . #15#)
          (LETT |h|
                (PROGN
                 (LETT #1# NIL . #15#)
                 (SEQ (LETT |z| NIL . #15#)
                      (LETT #5# (|EFSTRUC;toY| |l| $) . #15#)
                      (LETT |a| NIL . #15#) (LETT #4# |lv| . #15#) G190
                      (COND
                       ((OR (ATOM #4#) (PROGN (LETT |a| (CAR #4#) . #15#) NIL)
                            (ATOM #5#) (PROGN (LETT |z| (CAR #5#) . #15#) NIL))
                        #16#))
                      (SEQ
                       (EXIT
                        (PROGN
                         (LETT #3#
                               (SPADCALL (SPADCALL |z| (QREFELT $ 131))
                                         (-
                                          (SPADCALL
                                           (SPADCALL |a| |v0| (QREFELT $ 158))
                                           (QREFELT $ 144)))
                                         (QREFELT $ 105))
                               . #15#)
                         (COND
                          (#1#
                           (LETT #2# (SPADCALL #2# #3# (QREFELT $ 130))
                                 . #15#))
                          ('T
                           (PROGN
                            (LETT #2# #3# . #15#)
                            (LETT #1# 'T . #15#)))))))
                      (LETT #4# (PROG1 (CDR #4#) (LETT #5# (CDR #5#) . #15#))
                            . #15#)
                      #17# G191 (EXIT NIL))
                 (COND (#1# #2#) (#18# (|spadConstant| $ 61))))
                . #15#)
          (LETT |h|
                (SPADCALL
                 (SPADCALL |h|
                           (SPADCALL
                            (SPADCALL (SPADCALL |v0| |g| (QREFELT $ 157))
                                      (QREFELT $ 14))
                            (QREFELT $ 131))
                           (QREFELT $ 130))
                 (SPADCALL (SPADCALL |k| (QREFELT $ 91)) |v0| (QREFELT $ 105))
                 (QREFELT $ 130))
                . #15#)
          (EXIT
           (VECTOR
            (SPADCALL |f| (LIST (QCDR (QCDR |rec|))) (LIST |h|)
                      (QREFELT $ 111))
            (LIST (QCDR (QCDR |rec|))) (LIST |h|))))))))))) 

(DEFUN |EFSTRUC;normalize;2F;50| (|f| $)
  (|EFSTRUC;rtNormalize|
   (|EFSTRUC;localnorm|
    (SPADCALL (SPADCALL |f| (QREFELT $ 23)) (QREFELT $ 180)) $)
   $)) 

(DEFUN |EFSTRUC;normalize;FSF;51| (|f| |x| $)
  (|EFSTRUC;rtNormalize|
   (QVELT
    (SPADCALL (SPADCALL (SPADCALL |f| |x| (QREFELT $ 20)) |x| (QREFELT $ 182))
              |x| (QREFELT $ 168))
    0)
   $)) 

(DEFUN |EFSTRUC;factdeprel| (|l| |k| $)
  (PROG (#1=#:G2620 #2=#:G2623 #3=#:G2618 #4=#:G2617 #5=#:G2619 #6=#:G2625 |i|
         |r| |m| #7=#:G2624 |x| #8=#:G2622 |n|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (EXIT
         (SEQ
          (SEQ
           (LETT |r|
                 (SPADCALL
                  (LETT |n| (|SPADfirst| (SPADCALL |k| (QREFELT $ 32)))
                        . #9=(|EFSTRUC;factdeprel|))
                  (QREFELT $ 52))
                 . #9#)
           (EXIT
            (COND
             ((QEQCAR |r| 0)
              (COND
               ((< 0 (QCDR |r|))
                (PROGN
                 (LETT #8#
                       (CONS 1
                             (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 184))
                                       (QREFELT $ 13)))
                       . #9#)
                 (GO #8#))))))))
          (SEQ (LETT |x| NIL . #9#) (LETT #7# |l| . #9#) G190
               (COND
                ((OR (ATOM #7#) (PROGN (LETT |x| (CAR #7#) . #9#) NIL))
                 #10=(GO G191)))
               (SEQ
                (EXIT
                 (SEQ
                  (LETT |m| (|SPADfirst| (SPADCALL |x| (QREFELT $ 32))) . #9#)
                  (LETT |r|
                        (SPADCALL (SPADCALL |n| |m| (QREFELT $ 133))
                                  (QREFELT $ 52))
                        . #9#)
                  (EXIT
                   (COND
                    ((QEQCAR |r| 0)
                     (PROGN
                      (LETT #1#
                            (COND
                             ((< 0 (QCDR |r|))
                              (PROGN
                               (LETT #2#
                                     (CONS 1
                                           (SPADCALL
                                            (PROGN
                                             (LETT #3# NIL . #9#)
                                             (SEQ (LETT |i| 1 . #9#)
                                                  (LETT #6# (QCDR |r|) . #9#)
                                                  G190
                                                  (COND
                                                   ((QSGREATERP |i| #6#) #10#))
                                                  (SEQ
                                                   (EXIT
                                                    (PROGN
                                                     (LETT #5#
                                                           (SPADCALL |m|
                                                                     (SPADCALL
                                                                      |i|
                                                                      (QREFELT
                                                                       $ 13))
                                                                     (QREFELT $
                                                                              135))
                                                           . #9#)
                                                     (COND
                                                      (#3#
                                                       (LETT #4#
                                                             (SPADCALL #4# #5#
                                                                       (QREFELT
                                                                        $ 130))
                                                             . #9#))
                                                      ('T
                                                       (PROGN
                                                        (LETT #4# #5# . #9#)
                                                        (LETT #3# 'T
                                                              . #9#)))))))
                                                  (LETT |i| (QSADD1 |i|) . #9#)
                                                  #11=(GO G190) G191
                                                  (EXIT NIL))
                                             (COND (#3# #4#)
                                                   ('T (|spadConstant| $ 61))))
                                            (SPADCALL |x| (QREFELT $ 91))
                                            (QREFELT $ 130)))
                                     . #9#)
                               (GO #2#)))
                             ('T (|error| "bad order of factorials")))
                            . #9#)
                      (GO #1#)))))))
                #1# (EXIT #1#))
               (LETT #7# (CDR #7#) . #9#) #11# G191 (EXIT NIL))
          (EXIT (CONS 2 'T))))
        #8# (EXIT #8#)))
      #2# (EXIT #2#))))) 

(DEFUN |EFSTRUC;normalize;2F;53| (|f| $)
  (|EFSTRUC;rtNormalize| (|EFSTRUC;localnorm| (SPADCALL |f| (QREFELT $ 23)) $)
   $)) 

(DEFUN |EFSTRUC;normalize;FSF;54| (|f| |x| $)
  (|EFSTRUC;rtNormalize|
   (QVELT (SPADCALL (SPADCALL |f| |x| (QREFELT $ 20)) |x| (QREFELT $ 168)) 0)
   $)) 

(DEFUN |ElementaryFunctionStructurePackage| (&REST #1=#:G2629)
  (PROG ()
    (RETURN
     (PROG (#2=#:G2630)
       (RETURN
        (COND
         ((LETT #2#
                (|lassocShiftWithFunction| (|devaluateList| #1#)
                                           (HGET |$ConstructorCache|
                                                 '|ElementaryFunctionStructurePackage|)
                                           '|domainEqualList|)
                . #3=(|ElementaryFunctionStructurePackage|))
          (|CDRwithIncrement| #2#))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (APPLY (|function| |ElementaryFunctionStructurePackage;|)
                         #1#)
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache|
                    '|ElementaryFunctionStructurePackage|))))))))))) 

(DEFUN |ElementaryFunctionStructurePackage;| (|#1| |#2|)
  (PROG (|pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|)
            . #1=(|ElementaryFunctionStructurePackage|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT |dv$| (LIST '|ElementaryFunctionStructurePackage| DV$1 DV$2) . #1#)
      (LETT $ (GETREFV 185) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|ElementaryFunctionStructurePackage|
                  (LIST DV$1 DV$2) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (SETF |pv$| (QREFELT $ 3))
      (QSETREFV $ 8 '|htrig|)
      (QSETREFV $ 9 '|trig|)
      (QSETREFV $ 10 (|HasCategory| |#2| '(|CombinatorialOpsCategory|)))
      (QSETREFV $ 16
                (SPADCALL (SPADCALL (QREFELT $ 11))
                          (SPADCALL (SPADCALL 2 (QREFELT $ 13)) (QREFELT $ 14))
                          (QREFELT $ 15)))
      (COND
       ((|HasCategory| |#1| '(|GcdDomain|))
        (QSETREFV $ 50 (CONS (|dispatchFunction| |EFSTRUC;tanQ;F2F;11|) $)))
       ('T
        (QSETREFV $ 50 (CONS (|dispatchFunction| |EFSTRUC;tanQ;F2F;12|) $))))
      (QSETREFV $ 77 '|%alg|)
      (QSETREFV $ 126
                (SPADCALL (SPADCALL '|%iint| (QREFELT $ 123)) (QREFELT $ 125)))
      (COND
       ((|HasCategory| |#1| '(|GcdDomain|))
        (PROGN
         (QSETREFV $ 178
                   (CONS (|dispatchFunction| |EFSTRUC;irootDep;KU;46|) $))))
       ('T
        (QSETREFV $ 178
                  (CONS (|dispatchFunction| |EFSTRUC;irootDep;KU;47|) $))))
      (COND
       ((|HasCategory| |#2| '(|CombinatorialOpsCategory|))
        (PROGN
         (QSETREFV $ 181
                   (CONS (|dispatchFunction| |EFSTRUC;normalize;2F;50|) $))
         (QSETREFV $ 183
                   (CONS (|dispatchFunction| |EFSTRUC;normalize;FSF;51|) $))))
       ('T
        (PROGN
         (QSETREFV $ 181
                   (CONS (|dispatchFunction| |EFSTRUC;normalize;2F;53|) $))
         (QSETREFV $ 183
                   (CONS (|dispatchFunction| |EFSTRUC;normalize;FSF;54|) $)))))
      $)))) 

(MAKEPROP '|ElementaryFunctionStructurePackage| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) 'HTRIG
              'TRIG '|comb?| (0 . |pi|) (|Integer|) (4 . |coerce|) (9 . -)
              (14 . /) '|mpiover2| (|Mapping| 7 29) |EFSTRUC;rmap;M2F;27|
              (|Symbol|) |EFSTRUC;realElementary;FSF;2| (|List| 19)
              (20 . |variables|) |EFSTRUC;realElementary;2F;3|
              |EFSTRUC;realLiouvillian;2F;4| (25 . |Zero|) (29 . |Zero|)
              (|Boolean|) (33 . =) (|Kernel| 7) (39 . |is?|) (|List| 7)
              (45 . |argument|) (50 . |first|) (55 . |false|) (|Mapping| 27 29)
              (|List| 29) (59 . |select|) (|Fraction| 12) (65 . |denom|)
              (|SparseUnivariatePolynomial| 7) (|PositiveInteger|)
              (|TangentExpansions| 7) (70 . |tanAn|)
              (|SparseUnivariatePolynomial| $) (76 . |zeroOf|)
              (|AlgebraicManipulations| 6 7) (81 . |rootSimp|) (86 . |numer|)
              (91 . |tanNa|) (97 . |tanQ|) (|Union| 12 '#1="failed")
              (103 . |retractIfCan|) (108 . |tanSum|) (113 . |inv|)
              (118 . |tan|) (123 . |empty?|) (|List| 90) (128 . |tower|)
              (133 . |select!|) (139 . |One|) (143 . |One|)
              (|NonNegativeInteger|) (147 . |first|) (153 . |concat|)
              (159 . |concat|) (165 . |differentiate|) (|Vector| 7)
              (171 . |setelt|) (178 . |elt|) (|Matrix| 7) (184 . |new|)
              (191 . |setelt|) (|Union| 106 '"failed")
              (|IntegerLinearDependence| 7) (199 . |solveLinearlyOverQ|)
              (205 . |One|) 'ALGOP (|BasicOperator|) (209 . |operator|)
              (214 . |has?|) (220 . |elt|) (|Union| 38 '#1#)
              (226 . |retractIfCan|) (231 . |kernels|) (236 . =) (242 . -)
              (|List| 38) (|MultiplicativeDependence|) (247 . |logDependenceQ|)
              (|Kernel| $) (253 . |coerce|) (258 . |log|)
              (|Union| 97 '"failed") (|Expression| 6) (|Numeric| 6)
              (263 . |numericIfCan|) (|Float|) (269 . |rationalApproximation|)
              (275 . |float|) (282 . |coerce|) (287 . /) (293 . -)
              (299 . |abs|) (304 . <) (310 . ^) (|Vector| 38) (316 . |vector|)
              (321 . |new|) (325 . |kernel|) (|List| $) (330 . |eval|)
              (337 . |atan|) (342 . =) (348 . |coerce|) (|Mapping| 7 6)
              (|SparseMultivariatePolynomial| 6 29)
              (|PolynomialCategoryLifting| (|IndexedExponents| 29) 29 6 116 7)
              (353 . |map|) (|SparseMultivariatePolynomial| 6 90)
              (360 . |numer|) (365 . |denom|) (|CommonOperators|)
              (370 . |operator|) (|LiouvillianFunction| 6 7) (375 . |operator|)
              '|opint| (380 . |is?|) (386 . |zero?|) (391 . |last|) (396 . *)
              (402 . |exp|) (407 . ^) (413 . -) (419 . |sqrt|) (424 . +)
              (430 . *) (436 . |One|) (440 . |elt|) (446 . |coerce|) (451 . D)
              (457 . |kernel|) (463 . |minIndex|) (468 . |elt|)
              (474 . |retract|) (479 . |nthRoot|) (485 . |second|)
              (490 . |retract|) (495 . |coerce|) (500 . /) (506 . ^) (512 . *)
              (518 . |retractIfCan|) (523 . |height|) (|Union| $ '"failed")
              (528 . |recip|) (533 . |inv|) (538 . *) (544 . *) (550 . |Zero|)
              (554 . |every?|)
              (|Record| (|:| |num| (|Vector| 12)) (|:| |den| 12))
              (|InnerCommonDenominator| 12 38 (|Vector| 12) 106)
              (560 . |splitDenominator|) (565 . |setDifference|)
              (571 . |empty?|)
              (|Record| (|:| |func| 7) (|:| |kers| 36) (|:| |vals| 31))
              |EFSTRUC;rischNormalize;FLR;40| |EFSTRUC;rischNormalize;FSR;41|
              |EFSTRUC;rootNormalize;FKF;42| (576 . |construct|)
              (581 . |solveLinearlyOverQ|) (|Union| 7 '"failed")
              |EFSTRUC;validExponential;LFSU;45|
              (|Record| (|:| |exponent| 62) (|:| |coef| 7) (|:| |radicand| 7))
              (|PolynomialRoots| (|IndexedExponents| 29) 29 6 116 7)
              (587 . |froot|)
              (|Union| (|:| |vec| 106) (|:| |func| 7) (|:| |fail| 27))
              (593 . |irootDep|) (598 . |lcm|) (604 . |factorials|)
              (609 . |normalize|) (614 . |factorials|) (620 . |normalize|)
              (626 . |factorial|))
           '#(|validExponential| 631 |tanQ| 638 |rootNormalize| 644 |rmap| 650
              |rischNormalize| 656 |realLiouvillian| 668 |realElementary| 673
              |normalize| 684 |irootDep| 695)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 184
                                                 '(0 7 0 11 1 7 0 12 13 1 7 0 0
                                                   14 2 7 0 0 0 15 1 7 21 0 22
                                                   0 6 0 25 0 7 0 26 2 7 27 0 0
                                                   28 2 29 27 0 19 30 1 29 31 0
                                                   32 1 31 7 0 33 0 27 0 34 2
                                                   36 0 35 0 37 1 38 12 0 39 2
                                                   42 40 7 41 43 1 7 0 44 45 1
                                                   46 7 7 47 1 38 12 0 48 2 42
                                                   7 7 12 49 2 0 7 38 7 50 1 7
                                                   51 0 52 1 42 7 31 53 1 7 0 0
                                                   54 1 7 0 0 55 1 21 27 0 56 1
                                                   7 57 0 58 2 36 0 35 0 59 0 6
                                                   0 60 0 7 0 61 2 36 0 0 62 63
                                                   2 36 0 0 0 64 2 31 0 0 0 65
                                                   2 7 0 0 19 66 3 67 7 0 12 7
                                                   68 2 67 7 0 12 69 3 70 0 62
                                                   62 7 71 4 70 7 0 12 12 7 72
                                                   2 74 73 70 67 75 0 38 0 76 1
                                                   29 78 0 79 2 78 27 0 19 80 2
                                                   31 7 0 12 81 1 7 82 0 83 1 7
                                                   57 0 84 2 38 27 0 0 85 1 38
                                                   0 0 86 2 88 73 87 38 89 1 7
                                                   0 90 91 1 7 0 0 92 2 95 93
                                                   94 41 96 2 97 38 0 62 98 3
                                                   97 0 12 12 41 99 1 97 0 38
                                                   100 2 97 0 0 0 101 2 97 0 0
                                                   0 102 1 97 0 0 103 2 97 27 0
                                                   0 104 2 7 0 0 12 105 1 106 0
                                                   87 107 0 19 0 108 1 29 0 19
                                                   109 3 7 0 0 57 110 111 1 7 0
                                                   0 112 2 29 27 0 0 113 1 7 0
                                                   6 114 3 117 7 17 115 116 118
                                                   1 7 119 0 120 1 7 119 0 121
                                                   1 122 78 19 123 1 124 78 78
                                                   125 2 78 27 0 19 127 1 7 27
                                                   0 128 1 31 7 0 129 2 7 0 0 0
                                                   130 1 7 0 0 131 2 7 0 0 41
                                                   132 2 7 0 0 0 133 1 7 0 0
                                                   134 2 7 0 0 0 135 2 7 0 41 0
                                                   136 0 116 0 137 2 7 0 78 110
                                                   138 1 7 0 19 139 2 7 0 0 19
                                                   140 2 7 0 78 110 141 1 106
                                                   12 0 142 2 106 38 0 12 143 1
                                                   38 12 0 144 2 7 0 0 12 145 1
                                                   31 7 0 146 1 7 12 0 147 1 38
                                                   0 12 148 2 38 0 0 0 149 2 7
                                                   0 0 38 150 2 7 0 38 0 151 1
                                                   38 51 0 152 1 29 62 0 153 1
                                                   38 154 0 155 1 38 0 0 156 2
                                                   7 0 12 0 157 2 38 0 0 12 158
                                                   0 38 0 159 2 36 27 35 0 160
                                                   1 162 161 106 163 2 21 0 0 0
                                                   164 1 106 27 0 165 1 67 0 31
                                                   170 2 74 73 67 7 171 2 175
                                                   174 7 62 176 1 0 177 29 178
                                                   2 12 0 0 0 179 1 7 0 0 180 1
                                                   0 7 7 181 2 7 0 0 19 182 2 0
                                                   7 7 19 183 1 12 0 0 184 3 0
                                                   172 36 7 19 173 2 0 7 38 7
                                                   50 2 0 7 7 29 169 2 0 7 17 7
                                                   18 2 0 166 7 19 168 2 0 166
                                                   7 21 167 1 0 7 7 24 1 0 7 7
                                                   23 2 0 7 7 19 20 1 0 7 7 181
                                                   2 0 7 7 19 183 1 0 177 29
                                                   178)))))
           '|lookupComplete|)) 
