
(/VERSIONCHECK 2) 

(DEFUN |GUESS;ord1| (|x| |i| $)
  (PROG (#1=#:G2794 |k| #2=#:G2793 |j| #3=#:G2792 #4=#:G2791 |n|)
    (RETURN
     (SEQ (LETT |n| (- (- (LENGTH |x|) 3) |i|) . #5=(|GUESS;ord1|))
          (EXIT
           (+
            (* (SPADCALL |x| (+ |n| 1) (QREFELT $ 15))
               (SPADCALL (ELT $ 16)
                         (PROGN
                          (LETT #4# NIL . #5#)
                          (SEQ (LETT |j| 1 . #5#) G190
                               (COND ((QSGREATERP |j| |n|) #6=(GO G191)))
                               (SEQ
                                (EXIT
                                 (LETT #4#
                                       (CONS (SPADCALL |x| |j| (QREFELT $ 15))
                                             #4#)
                                       . #5#)))
                               (LETT |j| (QSADD1 |j|) . #5#) #7=(GO G190) G191
                               (EXIT (NREVERSE0 #4#))))
                         0 (QREFELT $ 18)))
            (SPADCALL 2
                      (SPADCALL (ELT $ 16)
                                (PROGN
                                 (LETT #3# NIL . #5#)
                                 (SEQ (LETT |j| 1 . #5#) G190
                                      (COND ((QSGREATERP |j| |n|) #6#))
                                      (SEQ
                                       (EXIT
                                        (LETT #3#
                                              (CONS
                                               (SPADCALL (ELT $ 16)
                                                         (PROGN
                                                          (LETT #2# NIL . #5#)
                                                          (SEQ
                                                           (LETT |k| 1 . #5#)
                                                           (LETT #1# (- |j| 1)
                                                                 . #5#)
                                                           G190
                                                           (COND
                                                            ((QSGREATERP |k|
                                                                         #1#)
                                                             #6#))
                                                           (SEQ
                                                            (EXIT
                                                             (LETT #2#
                                                                   (CONS
                                                                    (*
                                                                     (SPADCALL
                                                                      |x| |k|
                                                                      (QREFELT
                                                                       $ 15))
                                                                     (SPADCALL
                                                                      |x| |j|
                                                                      (QREFELT
                                                                       $ 15)))
                                                                    #2#)
                                                                   . #5#)))
                                                           (LETT |k|
                                                                 (QSADD1 |k|)
                                                                 . #5#)
                                                           #7# G191
                                                           (EXIT
                                                            (NREVERSE0 #2#))))
                                                         0 (QREFELT $ 18))
                                               #3#)
                                              . #5#)))
                                      (LETT |j| (QSADD1 |j|) . #5#) #7# G191
                                      (EXIT (NREVERSE0 #3#))))
                                0 (QREFELT $ 18))
                      (QREFELT $ 20)))))))) 

(DEFUN |GUESS;ord2| (|x| |i| $)
  (PROG (|j| #1=#:G2799 |n|)
    (RETURN
     (SEQ
      (COND
       ((ZEROP |i|)
        (SEQ (LETT |n| (- (- (LENGTH |x|) 3) |i|) . #2=(|GUESS;ord2|))
             (EXIT
              (+ (|GUESS;ord1| |x| |i| $)
                 (*
                  (SPADCALL (ELT $ 16)
                            (PROGN
                             (LETT #1# NIL . #2#)
                             (SEQ (LETT |j| 1 . #2#) G190
                                  (COND ((QSGREATERP |j| |n|) (GO G191)))
                                  (SEQ
                                   (EXIT
                                    (LETT #1#
                                          (CONS
                                           (SPADCALL |x| |j| (QREFELT $ 15))
                                           #1#)
                                          . #2#)))
                                  (LETT |j| (QSADD1 |j|) . #2#) (GO G190) G191
                                  (EXIT (NREVERSE0 #1#))))
                            0 (QREFELT $ 18))
                  (- (SPADCALL |x| (+ |n| 2) (QREFELT $ 15))
                     (SPADCALL |x| (+ |n| 1) (QREFELT $ 15))))))))
       ('T (|GUESS;ord1| |x| |i| $))))))) 

(DEFUN |GUESS;deg1| (|x| |i| $)
  (PROG (#1=#:G2808 |k| #2=#:G2807 |j| #3=#:G2806 #4=#:G2805 |m|)
    (RETURN
     (SEQ (LETT |m| (- (LENGTH |x|) 3) . #5=(|GUESS;deg1|))
          (EXIT
           (+
            (+
             (*
              (+
               (+ (SPADCALL |x| (+ |m| 3) (QREFELT $ 15))
                  (SPADCALL |x| (+ |m| 1) (QREFELT $ 15)))
               (SPADCALL |x| (+ 1 |i|) (QREFELT $ 15)))
              (SPADCALL (ELT $ 16)
                        (PROGN
                         (LETT #4# NIL . #5#)
                         (SEQ (LETT |j| (+ 2 |i|) . #5#) G190
                              (COND ((> |j| |m|) #6=(GO G191)))
                              (SEQ
                               (EXIT
                                (LETT #4#
                                      (CONS (SPADCALL |x| |j| (QREFELT $ 15))
                                            #4#)
                                      . #5#)))
                              (LETT |j| (+ |j| 1) . #5#) #7=(GO G190) G191
                              (EXIT (NREVERSE0 #4#))))
                        0 (QREFELT $ 18)))
             (* (SPADCALL |x| (+ |m| 3) (QREFELT $ 15))
                (SPADCALL |x| (+ |m| 1) (QREFELT $ 15))))
            (SPADCALL 2
                      (SPADCALL (ELT $ 16)
                                (PROGN
                                 (LETT #3# NIL . #5#)
                                 (SEQ (LETT |j| (+ 2 |i|) . #5#) G190
                                      (COND ((> |j| |m|) #6#))
                                      (SEQ
                                       (EXIT
                                        (LETT #3#
                                              (CONS
                                               (SPADCALL (ELT $ 16)
                                                         (PROGN
                                                          (LETT #2# NIL . #5#)
                                                          (SEQ
                                                           (LETT |k| (+ 2 |i|)
                                                                 . #5#)
                                                           (LETT #1# (- |j| 1)
                                                                 . #5#)
                                                           G190
                                                           (COND
                                                            ((> |k| #1#) #6#))
                                                           (SEQ
                                                            (EXIT
                                                             (LETT #2#
                                                                   (CONS
                                                                    (*
                                                                     (SPADCALL
                                                                      |x| |k|
                                                                      (QREFELT
                                                                       $ 15))
                                                                     (SPADCALL
                                                                      |x| |j|
                                                                      (QREFELT
                                                                       $ 15)))
                                                                    #2#)
                                                                   . #5#)))
                                                           (LETT |k| (+ |k| 1)
                                                                 . #5#)
                                                           #7# G191
                                                           (EXIT
                                                            (NREVERSE0 #2#))))
                                                         0 (QREFELT $ 18))
                                               #3#)
                                              . #5#)))
                                      (LETT |j| (+ |j| 1) . #5#) #7# G191
                                      (EXIT (NREVERSE0 #3#))))
                                0 (QREFELT $ 18))
                      (QREFELT $ 20)))))))) 

(DEFUN |GUESS;deg2| (|x| |i| $)
  (PROG (|j| #1=#:G2812 |m|)
    (RETURN
     (SEQ (LETT |m| (- (LENGTH |x|) 3) . #2=(|GUESS;deg2|))
          (EXIT
           (+ (|GUESS;deg1| |x| |i| $)
              (*
               (+ (SPADCALL |x| (+ |m| 3) (QREFELT $ 15))
                  (SPADCALL (ELT $ 16)
                            (PROGN
                             (LETT #1# NIL . #2#)
                             (SEQ (LETT |j| (+ 2 |i|) . #2#) G190
                                  (COND ((> |j| |m|) (GO G191)))
                                  (SEQ
                                   (EXIT
                                    (LETT #1#
                                          (CONS
                                           (SPADCALL |x| |j| (QREFELT $ 15))
                                           #1#)
                                          . #2#)))
                                  (LETT |j| (+ |j| 1) . #2#) (GO G190) G191
                                  (EXIT (NREVERSE0 #1#))))
                            0 (QREFELT $ 18)))
               (- (SPADCALL |x| (+ |m| 2) (QREFELT $ 15))
                  (SPADCALL |x| (+ |m| 1) (QREFELT $ 15)))))))))) 

(DEFUN |GUESS;checkResult| (|res| |n| |l| |list| $)
  (PROG (#1=#:G2818 #2=#:G2814 |num| #3=#:G2813 |den| |i|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ (LETT |i| |l| . #4=(|GUESS;checkResult|)) G190
             (COND ((< |i| 1) (GO G191)))
             (SEQ
              (LETT |den|
                    (SPADCALL (SPADCALL |res| (QREFELT $ 21))
                              (SPADCALL |n| (QREFELT $ 23))
                              (SPADCALL (- |i| 1) (QREFELT $ 24))
                              (QREFELT $ 25))
                    . #4#)
              (COND
               ((SPADCALL |den| (|spadConstant| $ 28) (QREFELT $ 30))
                (PROGN
                 (LETT #1#
                       (PROG1 (LETT #3# |i| . #4#)
                         (|check-subtype| (>= #3# 0) '(|NonNegativeInteger|)
                                          #3#))
                       . #4#)
                 (GO #1#))))
              (LETT |num|
                    (SPADCALL (SPADCALL |res| (QREFELT $ 31))
                              (SPADCALL |n| (QREFELT $ 23))
                              (SPADCALL (- |i| 1) (QREFELT $ 24))
                              (QREFELT $ 25))
                    . #4#)
              (EXIT
               (COND
                ((NULL
                  (SPADCALL (SPADCALL |list| |i| (QREFELT $ 33))
                            (SPADCALL (SPADCALL |num| |den| (QREFELT $ 34))
                                      (QREFELT $ 9))
                            (QREFELT $ 35)))
                 (PROGN
                  (LETT #1#
                        (PROG1 (LETT #2# |i| . #4#)
                          (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|)
                                           #2#))
                        . #4#)
                  (GO #1#))))))
             (LETT |i| (+ |i| -1) . #4#) (GO G190) G191 (EXIT NIL))
        (EXIT 0)))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;SUPS2SUPF| (|p| $)
  (COND ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7)) |p|)
        ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
         (SPADCALL (ELT $ 37) |p| (QREFELT $ 42)))
        ('T
         (|error|
          "Guess: type parameter F should be either equal to S or equal                       to Fraction S")))) 

(DEFUN |GUESS;guess;LLLLL;7| (|list| |guessers| |ops| |options| $)
  (PROG (|res| #1=#:G2869 |guess| |sumGuess| |summ| |init| #2=#:G2868 |var|
         |sumList| #3=#:G2867 |i| #4=#:G2866 #5=#:G2860 #6=#:G2865 |prodGuess|
         |prod| #7=#:G2864 |prodList| #8=#:G2863 #9=#:G2862 |newMaxLevel|
         #10=#:G2833 #11=#:G2861 |guesser| |len| #12=#:G2828 |xx|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |newMaxLevel| (SPADCALL |options| (QREFELT $ 46))
              . #13=(|GUESS;guess;LLLLL;7|))
        (LETT |xx|
              (SPADCALL (SPADCALL |options| (QREFELT $ 47)) (QREFELT $ 23))
              . #13#)
        (COND
         ((SPADCALL |options| (QREFELT $ 48))
          (COND
           ((QEQCAR |newMaxLevel| 0)
            (SPADCALL
             (SPADCALL "guessing level "
                       (SPADCALL |newMaxLevel| (QREFELT $ 50)) (QREFELT $ 51))
             (QREFELT $ 54))))))
        (LETT |res| NIL . #13#)
        (LETT |len|
              (PROG1 (LETT #12# (LENGTH |list|) . #13#)
                (|check-subtype| (> #12# 0) '(|PositiveInteger|) #12#))
              . #13#)
        (COND ((NULL (< 1 |len|)) (PROGN (LETT #5# |res| . #13#) (GO #5#))))
        (SEQ (LETT |guesser| NIL . #13#) (LETT #11# |guessers| . #13#) G190
             (COND
              ((OR (ATOM #11#) (PROGN (LETT |guesser| (CAR #11#) . #13#) NIL))
               #14=(GO G191)))
             (SEQ
              (LETT |res| (APPEND (SPADCALL |list| |options| |guesser|) |res|)
                    . #13#)
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SPADCALL
                 (SPADCALL "res " (SPADCALL |res| (QREFELT $ 56))
                           (QREFELT $ 51))
                 (QREFELT $ 54))))
              (EXIT
               (COND
                ((SPADCALL |options| (QREFELT $ 57))
                 (COND
                  ((NULL (NULL |res|))
                   (PROGN (LETT #5# |res| . #13#) (GO #5#))))))))
             (LETT #11# (CDR #11#) . #13#) #15=(GO G190) G191 (EXIT NIL))
        (COND
         ((QEQCAR |newMaxLevel| 0)
          (COND
           ((ZEROP (QCDR |newMaxLevel|))
            (PROGN (LETT #5# |res| . #13#) (GO #5#)))
           (#16='T
            (LETT |newMaxLevel|
                  (CONS 0
                        (PROG1 (LETT #10# (- (QCDR |newMaxLevel|) 1) . #13#)
                          (|check-subtype| (>= #10# 0) '(|NonNegativeInteger|)
                                           #10#)))
                  . #13#)))))
        (COND
         ((SPADCALL '|guessProduct| |ops| (QREFELT $ 59))
          (COND
           ((SPADCALL (|spadConstant| $ 26) |list| (QREFELT $ 60))
            (SEQ (|spadConstant| $ 26)
                 (EXIT
                  (COND
                   ((SPADCALL |options| (QREFELT $ 48))
                    (SPADCALL "cannot use guessProduct because of zeros"
                              (QREFELT $ 62)))))))
           (#16#
            (SEQ
             (LETT |prodList|
                   (PROGN
                    (LETT #9# NIL . #13#)
                    (SEQ (LETT |i| 1 . #13#) (LETT #8# (- |len| 1) . #13#) G190
                         (COND ((QSGREATERP |i| #8#) #14#))
                         (SEQ
                          (EXIT
                           (LETT #9#
                                 (CONS
                                  (SPADCALL
                                   (SPADCALL |list| (+ |i| 1) (QREFELT $ 33))
                                   (SPADCALL |list| |i| (QREFELT $ 33))
                                   (QREFELT $ 63))
                                  #9#)
                                 . #13#)))
                         (LETT |i| (QSADD1 |i|) . #13#) #15# G191
                         (EXIT (NREVERSE0 #9#))))
                   . #13#)
             (EXIT
              (COND
               ((NULL (SPADCALL (ELT $ 64) |prodList| (QREFELT $ 66)))
                (SEQ
                 (LETT |var|
                       (SPADCALL '|p| (LIST (SPADCALL |len| (QREFELT $ 67)))
                                 (QREFELT $ 69))
                       . #13#)
                 (LETT |prodGuess| NIL . #13#)
                 (SEQ (LETT |guess| NIL . #13#)
                      (LETT #7#
                            (SPADCALL |prodList| |guessers| |ops|
                                      (APPEND
                                       (LIST (SPADCALL |var| (QREFELT $ 71))
                                             (SPADCALL |newMaxLevel|
                                                       (QREFELT $ 72)))
                                       |options|)
                                      (QREFELT $ 75))
                            . #13#)
                      G190
                      (COND
                       ((OR (ATOM #7#)
                            (PROGN (LETT |guess| (CAR #7#) . #13#) NIL))
                        #14#))
                      (SEQ
                       (LETT |init|
                             (SPADCALL (SPADCALL |list| 1 (QREFELT $ 33))
                                       (QREFELT $ 10))
                             . #13#)
                       (LETT |prod|
                             (SPADCALL |guess|
                                       (SPADCALL |var|
                                                 (SPADCALL
                                                  (|spadConstant| $ 28)
                                                  (SPADCALL |xx|
                                                            (|spadConstant| $
                                                                            76)
                                                            (QREFELT $ 77))
                                                  (QREFELT $ 79))
                                                 (QREFELT $ 81))
                                       (QREFELT $ 83))
                             . #13#)
                       (EXIT
                        (LETT |prodGuess|
                              (CONS (SPADCALL |init| |prod| (QREFELT $ 87))
                                    |prodGuess|)
                              . #13#)))
                      (LETT #7# (CDR #7#) . #13#) #15# G191 (EXIT NIL))
                 (COND
                  ((SPADCALL |options| (QREFELT $ 48))
                   (SPADCALL
                    (SPADCALL "prodGuess "
                              (SPADCALL |prodGuess| (QREFELT $ 56))
                              (QREFELT $ 51))
                    (QREFELT $ 54))))
                 (EXIT
                  (SEQ (LETT |guess| NIL . #13#) (LETT #6# |prodGuess| . #13#)
                       G190
                       (COND
                        ((OR (ATOM #6#)
                             (PROGN (LETT |guess| (CAR #6#) . #13#) NIL))
                         #14#))
                       (SEQ
                        (EXIT
                         (COND
                          ((COND ((SPADCALL |guess| |res| (QREFELT $ 88)) 'NIL)
                                 (#16# 'T))
                           (LETT |res| (CONS |guess| |res|) . #13#)))))
                       (LETT #6# (CDR #6#) . #13#) #15# G191
                       (EXIT NIL))))))))))))
        (COND
         ((SPADCALL |options| (QREFELT $ 57))
          (COND
           ((NULL (NULL |res|)) (PROGN (LETT #5# |res| . #13#) (GO #5#))))))
        (COND
         ((SPADCALL '|guessSum| |ops| (QREFELT $ 59))
          (SEQ
           (LETT |sumList|
                 (PROGN
                  (LETT #4# NIL . #13#)
                  (SEQ (LETT |i| 1 . #13#) (LETT #3# (- |len| 1) . #13#) G190
                       (COND ((QSGREATERP |i| #3#) #14#))
                       (SEQ
                        (EXIT
                         (LETT #4#
                               (CONS
                                (SPADCALL
                                 (SPADCALL |list| (+ |i| 1) (QREFELT $ 33))
                                 (SPADCALL |list| |i| (QREFELT $ 33))
                                 (QREFELT $ 89))
                                #4#)
                               . #13#)))
                       (LETT |i| (QSADD1 |i|) . #13#) #15# G191
                       (EXIT (NREVERSE0 #4#))))
                 . #13#)
           (EXIT
            (COND
             ((NULL
               (SPADCALL (CONS #'|GUESS;guess;LLLLL;7!0| (VECTOR $ |sumList|))
                         |sumList| (QREFELT $ 66)))
              (SEQ
               (LETT |var|
                     (SPADCALL '|s| (LIST (SPADCALL |len| (QREFELT $ 67)))
                               (QREFELT $ 69))
                     . #13#)
               (LETT |sumGuess| NIL . #13#)
               (SEQ (LETT |guess| NIL . #13#)
                    (LETT #2#
                          (SPADCALL |sumList| |guessers| |ops|
                                    (APPEND
                                     (LIST (SPADCALL |var| (QREFELT $ 71))
                                           (SPADCALL |newMaxLevel|
                                                     (QREFELT $ 72)))
                                     |options|)
                                    (QREFELT $ 75))
                          . #13#)
                    G190
                    (COND
                     ((OR (ATOM #2#)
                          (PROGN (LETT |guess| (CAR #2#) . #13#) NIL))
                      #14#))
                    (SEQ
                     (LETT |init|
                           (SPADCALL (SPADCALL |list| 1 (QREFELT $ 33))
                                     (QREFELT $ 10))
                           . #13#)
                     (LETT |summ|
                           (SPADCALL |guess|
                                     (SPADCALL |var|
                                               (SPADCALL (|spadConstant| $ 28)
                                                         (SPADCALL |xx|
                                                                   (|spadConstant|
                                                                    $ 76)
                                                                   (QREFELT $
                                                                            77))
                                                         (QREFELT $ 79))
                                               (QREFELT $ 81))
                                     (QREFELT $ 91))
                           . #13#)
                     (EXIT
                      (LETT |sumGuess|
                            (CONS (SPADCALL |init| |summ| (QREFELT $ 92))
                                  |sumGuess|)
                            . #13#)))
                    (LETT #2# (CDR #2#) . #13#) #15# G191 (EXIT NIL))
               (EXIT
                (SEQ (LETT |guess| NIL . #13#) (LETT #1# |sumGuess| . #13#)
                     G190
                     (COND
                      ((OR (ATOM #1#)
                           (PROGN (LETT |guess| (CAR #1#) . #13#) NIL))
                       #14#))
                     (SEQ
                      (EXIT
                       (COND
                        ((COND ((SPADCALL |guess| |res| (QREFELT $ 88)) 'NIL)
                               (#16# 'T))
                         (LETT |res| (CONS |guess| |res|) . #13#)))))
                     (LETT #1# (CDR #1#) . #13#) #15# G191 (EXIT NIL))))))))))
        (EXIT |res|)))
      #5# (EXIT #5#))))) 

(DEFUN |GUESS;guess;LLLLL;7!0| (|z1| $$)
  (PROG (|sumList| $)
    (LETT |sumList| (QREFELT $$ 1) . #1=(|GUESS;guess;LLLLL;7|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1| (SPADCALL |sumList| (|spadConstant| $ 90) (QREFELT $ 33))
                (QREFELT $ 35)))))) 

(DEFUN |GUESS;guess;LL;8| (|list| $)
  (SPADCALL |list| (LIST (ELT $ 93)) (LIST '|guessProduct| '|guessSum|) NIL
            (QREFELT $ 75))) 

(DEFUN |GUESS;guess;LLL;9| (|list| |options| $)
  (SPADCALL |list| (LIST (ELT $ 93)) (LIST '|guessProduct| '|guessSum|)
            |options| (QREFELT $ 75))) 

(DEFUN |GUESS;guess;LLLL;10| (|list| |guessers| |ops| $)
  (SPADCALL |list| |guessers| |ops| NIL (QREFELT $ 75))) 

(DEFUN |GUESS;F2FPOLYS| (|p| $)
  (COND
   ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7))
    (SPADCALL (SPADCALL |p| (QREFELT $ 98)) (QREFELT $ 100)))
   ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
    (SPADCALL (SPADCALL (SPADCALL |p| (QREFELT $ 101)) (QREFELT $ 103))
              (SPADCALL (SPADCALL |p| (QREFELT $ 104)) (QREFELT $ 103))
              (QREFELT $ 106)))
   ('T
    (|error|
     "Guess: type parameter F should be either equal to S or equal                        to Fraction S")))) 

(DEFUN |GUESS;SUPF2EXPRR| (|xx| |p| $)
  (COND ((SPADCALL |p| (QREFELT $ 107)) (|spadConstant| $ 28))
        ('T
         (SPADCALL
          (SPADCALL (SPADCALL (SPADCALL |p| (QREFELT $ 108)) (QREFELT $ 10))
                    (SPADCALL (SPADCALL |xx| (QREFELT $ 23))
                              (SPADCALL |p| (QREFELT $ 110)) (QREFELT $ 111))
                    (QREFELT $ 87))
          (|GUESS;SUPF2EXPRR| |xx| (SPADCALL |p| (QREFELT $ 112)) $)
          (QREFELT $ 92))))) 

(DEFUN |GUESS;FSUPF2EXPRR| (|xx| |p| $)
  (SPADCALL (|GUESS;SUPF2EXPRR| |xx| (SPADCALL |p| (QREFELT $ 113)) $)
            (|GUESS;SUPF2EXPRR| |xx| (SPADCALL |p| (QREFELT $ 114)) $)
            (QREFELT $ 34))) 

(DEFUN |GUESS;POLYS2POLYF| (|p| $)
  (COND ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7)) |p|)
        ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
         (SPADCALL (ELT $ 37) |p| (QREFELT $ 116)))
        ('T
         (|error|
          "Guess: type parameter F should be either equal to S or equal                       to Fraction S")))) 

(DEFUN |GUESS;SUPPOLYS2SUPF| (|p| |a1v| |Av| $)
  (PROG (|lc|)
    (RETURN
     (SEQ
      (COND ((SPADCALL |p| (QREFELT $ 118)) (|spadConstant| $ 119))
            ('T
             (SEQ
              (LETT |lc| (|GUESS;POLYS2POLYF| (SPADCALL |p| (QREFELT $ 120)) $)
                    |GUESS;SUPPOLYS2SUPF|)
              (EXIT
               (SPADCALL
                (SPADCALL
                 (SPADCALL
                  (SPADCALL |lc|
                            (LIST (SPADCALL 1 (QREFELT $ 122))
                                  (SPADCALL 2 (QREFELT $ 122)))
                            (LIST |a1v| |Av|) (QREFELT $ 124))
                  (QREFELT $ 125))
                 (SPADCALL |p| (QREFELT $ 126)) (QREFELT $ 127))
                (|GUESS;SUPPOLYS2SUPF| (SPADCALL |p| (QREFELT $ 128)) |a1v|
                 |Av| $)
                (QREFELT $ 129)))))))))) 

(DEFUN |GUESS;SUPFPOLYS2FSUPPOLYS| (|p| $)
  (PROG (|pden| |pnum| |cden|)
    (RETURN
     (SEQ
      (LETT |cden| (SPADCALL |p| (QREFELT $ 133))
            . #1=(|GUESS;SUPFPOLYS2FSUPPOLYS|))
      (LETT |pnum|
            (SPADCALL (CONS #'|GUESS;SUPFPOLYS2FSUPPOLYS!0| (VECTOR $ |cden|))
                      |p| (QREFELT $ 138))
            . #1#)
      (LETT |pden| (SPADCALL (QCDR |cden|) (QREFELT $ 139)) . #1#)
      (EXIT (SPADCALL |pnum| |pden| (QREFELT $ 141))))))) 

(DEFUN |GUESS;SUPFPOLYS2FSUPPOLYS!0| (|z1| $$)
  (PROG (|cden| $)
    (LETT |cden| (QREFELT $$ 1) . #1=(|GUESS;SUPFPOLYS2FSUPPOLYS|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |z1| (QCDR |cden|) (QREFELT $ 134))
                (QREFELT $ 135)))))) 

(PUT '|GUESS;defaultD| '|SPADreplace| '(XLAM (|expr|) |expr|)) 

(DEFUN |GUESS;defaultD| (|expr| $) |expr|) 

(DEFUN |GUESS;DN2DL| (DN |i| $)
  (SPADCALL (SPADCALL (SPADCALL |i| (QREFELT $ 24)) DN) (QREFELT $ 9))) 

(DEFUN |GUESS;evalResultant| (|p1| |p2| |o| |d| |va1| |vA| $)
  (PROG (|res| #1=#:G2902 #2=#:G2897 |lead| #3=#:G2891 #4=#:G2889 |d2atk|
         |d1atk| |p2atk| |p1atk| #5=#:G2908 |k| |d2| |d1|)
    (RETURN
     (SEQ (LETT |res| NIL . #6=(|GUESS;evalResultant|))
          (LETT |d1| (SPADCALL |p1| |va1| (QREFELT $ 142)) . #6#)
          (LETT |d2| (SPADCALL |p2| |va1| (QREFELT $ 142)) . #6#)
          (SEQ (LETT |k| 1 . #6#) (LETT #5# (+ (- |d| |o|) 1) . #6#) G190
               (COND ((QSGREATERP |k| #5#) (GO G191)))
               (SEQ
                (LETT |p1atk|
                      (SPADCALL
                       (SPADCALL |p1| |vA| (SPADCALL |k| (QREFELT $ 143))
                                 (QREFELT $ 144))
                       (QREFELT $ 145))
                      . #6#)
                (LETT |p2atk|
                      (SPADCALL
                       (SPADCALL |p2| |vA| (SPADCALL |k| (QREFELT $ 143))
                                 (QREFELT $ 144))
                       (QREFELT $ 145))
                      . #6#)
                (LETT |d1atk| (SPADCALL |p1atk| (QREFELT $ 146)) . #6#)
                (LETT |d2atk| (SPADCALL |p2atk| (QREFELT $ 146)) . #6#)
                (COND
                 ((< |d2atk| |d2|)
                  (COND
                   ((< |d1atk| |d1|) (LETT |lead| (|spadConstant| $ 27) . #6#))
                   ('T
                    (LETT |lead|
                          (SPADCALL (SPADCALL |p1atk| (QREFELT $ 147))
                                    (PROG1 (LETT #4# (- |d2| |d2atk|) . #6#)
                                      (|check-subtype| (>= #4# 0)
                                                       '(|NonNegativeInteger|)
                                                       #4#))
                                    (QREFELT $ 148))
                          . #6#))))
                 ((< |d1atk| |d1|)
                  (LETT |lead|
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL (|spadConstant| $ 12) (QREFELT $ 149)) |d2|
                          (QREFELT $ 148))
                         (SPADCALL (SPADCALL |p2atk| (QREFELT $ 147))
                                   (PROG1 (LETT #3# (- |d1| |d1atk|) . #6#)
                                     (|check-subtype| (>= #3# 0)
                                                      '(|NonNegativeInteger|)
                                                      #3#))
                                   (QREFELT $ 148))
                         (QREFELT $ 150))
                        . #6#))
                 ('T (LETT |lead| (|spadConstant| $ 12) . #6#)))
                (EXIT
                 (COND
                  ((SPADCALL |lead| (QREFELT $ 151))
                   (LETT |res| (CONS (|spadConstant| $ 27) |res|) . #6#))
                  ('T
                   (LETT |res|
                         (CONS
                          (SPADCALL |lead|
                                    (PROG2
                                        (LETT #1#
                                              (SPADCALL
                                               (SPADCALL |p1atk| |p2atk|
                                                         (QREFELT $ 152))
                                               (SPADCALL
                                                (SPADCALL |k| (QREFELT $ 143))
                                                (PROG1 (LETT #2# |o| . #6#)
                                                  (|check-subtype| (>= #2# 0)
                                                                   '(|NonNegativeInteger|)
                                                                   #2#))
                                                (QREFELT $ 148))
                                               (QREFELT $ 154))
                                              . #6#)
                                        (QCDR #1#)
                                      (|check-union| (QEQCAR #1# 0)
                                                     (QREFELT $ 7) #1#))
                                    (QREFELT $ 150))
                          |res|)
                         . #6#)))))
               (LETT |k| (QSADD1 |k|) . #6#) (GO G190) G191 (EXIT NIL))
          (EXIT (REVERSE |res|)))))) 

(DEFUN |GUESS;p| (|xm| |i| |va1| |vA| |basis| $)
  (SPADCALL (SPADCALL (SPADCALL |vA| (QREFELT $ 155)) (QREFELT $ 156))
            (SPADCALL
             (SPADCALL (SPADCALL |va1| (QREFELT $ 155)) (QREFELT $ 156))
             (|GUESS;F2FPOLYS|
              (SPADCALL (|GUESS;DN2DL| |basis| |i| $)
                        (|GUESS;DN2DL| |basis| |xm| $) (QREFELT $ 89))
              $)
             (QREFELT $ 157))
            (QREFELT $ 158))) 

(DEFUN |GUESS;p2| (|xm| |i| |a1v| |Av| |basis| $)
  (SPADCALL (SPADCALL |Av| (QREFELT $ 10))
            (SPADCALL (SPADCALL |a1v| (QREFELT $ 10))
                      (SPADCALL
                       (SPADCALL (SPADCALL |i| (QREFELT $ 23)) |basis|)
                       (SPADCALL (SPADCALL |xm| (QREFELT $ 24)) |basis|)
                       (QREFELT $ 77))
                      (QREFELT $ 87))
            (QREFELT $ 92))) 

(DEFUN |GUESS;guessExpRatAux| (|xx| |list| |basis| |xValues| |options| $)
  (PROG (#1=#:G2951 |res| |res4| |denr| |numr| |ri1| |t2| |t1| |a1v| #2=#:G2955
         |g| |evalPoly| |Av| #3=#:G2954 |f| |res3| |res2| |res1| |d2| |o2| |d1|
         |o1| |n| |poly3| |poly2| |poly1| |ri| #4=#:G2921 |i| |maxDeg| |maxD|
         |y3| |y2| |y1| |ylist| #5=#:G2953 |y| |x3| |x2| |x1| |xlist|
         #6=#:G2952 |len| #7=#:G2911 A |a1|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |a1| (SPADCALL 1 (QREFELT $ 122)) . #8=(|GUESS;guessExpRatAux|))
        (LETT A (SPADCALL 2 (QREFELT $ 122)) . #8#)
        (LETT |len| (LENGTH |list|) . #8#)
        (COND ((< |len| 4) (PROGN (LETT #1# NIL . #8#) (GO #1#)))
              (#9='T
               (LETT |len|
                     (PROG1 (LETT #7# (- |len| 3) . #8#)
                       (|check-subtype| (>= #7# 0) '(|NonNegativeInteger|)
                                        #7#))
                     . #8#)))
        (LETT |xlist|
              (PROGN
               (LETT #6# NIL . #8#)
               (SEQ (LETT |i| 1 . #8#) G190
                    (COND ((QSGREATERP |i| |len|) #10=(GO G191)))
                    (SEQ
                     (EXIT
                      (LETT #6#
                            (CONS
                             (|GUESS;F2FPOLYS|
                              (|GUESS;DN2DL| |basis|
                               (SPADCALL |xValues| |i| (QREFELT $ 15)) $)
                              $)
                             #6#)
                            . #8#)))
                    (LETT |i| (QSADD1 |i|) . #8#) #11=(GO G190) G191
                    (EXIT (NREVERSE0 #6#))))
              . #8#)
        (LETT |x1|
              (|GUESS;F2FPOLYS|
               (|GUESS;DN2DL| |basis|
                (SPADCALL |xValues| (+ |len| 1) (QREFELT $ 15)) $)
               $)
              . #8#)
        (LETT |x2|
              (|GUESS;F2FPOLYS|
               (|GUESS;DN2DL| |basis|
                (SPADCALL |xValues| (+ |len| 2) (QREFELT $ 15)) $)
               $)
              . #8#)
        (LETT |x3|
              (|GUESS;F2FPOLYS|
               (|GUESS;DN2DL| |basis|
                (SPADCALL |xValues| (+ |len| 3) (QREFELT $ 15)) $)
               $)
              . #8#)
        (LETT |y|
              (CONS #'|GUESS;guessExpRatAux!0|
                    (VECTOR |basis| A |a1| |xValues| $ |list|))
              . #8#)
        (LETT |ylist|
              (PROGN
               (LETT #5# NIL . #8#)
               (SEQ (LETT |i| 1 . #8#) G190
                    (COND ((QSGREATERP |i| |len|) #10#))
                    (SEQ (EXIT (LETT #5# (CONS (SPADCALL |i| |y|) #5#) . #8#)))
                    (LETT |i| (QSADD1 |i|) . #8#) #11# G191
                    (EXIT (NREVERSE0 #5#))))
              . #8#)
        (LETT |y1| (SPADCALL (+ |len| 1) |y|) . #8#)
        (LETT |y2| (SPADCALL (+ |len| 2) |y|) . #8#)
        (LETT |y3| (SPADCALL (+ |len| 3) |y|) . #8#) (LETT |res| NIL . #8#)
        (SEQ (LETT |maxD| (SPADCALL |options| (QREFELT $ 163)) . #8#)
             (EXIT
              (COND
               ((QEQCAR |maxD| 0)
                (LETT |maxDeg| (MIN (QCDR |maxD|) (- |len| 1)) . #8#))
               (#9# (LETT |maxDeg| (- |len| 1) . #8#)))))
        (SEQ (LETT |i| 0 . #8#) G190 (COND ((QSGREATERP |i| |maxDeg|) #10#))
             (SEQ
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SPADCALL
                 (SPADCALL "degree ExpRat " (SPADCALL |i| (QREFELT $ 164))
                           (QREFELT $ 51))
                 (QREFELT $ 54))))
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 166))
                     (EXIT (SPADCALL "interpolating..." (QREFELT $ 54))))))
              (LETT |ri|
                    (SPADCALL |xlist| |ylist|
                              (PROG1 (LETT #4# (- (- |len| 1) |i|) . #8#)
                                (|check-subtype| (>= #4# 0)
                                                 '(|NonNegativeInteger|) #4#))
                              (QREFELT $ 170))
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 166))
                     (EXIT (SPADCALL "polynomials..." (QREFELT $ 54))))))
              (LETT |poly1|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x1| (QREFELT $ 172)) |y1|
                               (QREFELT $ 173))
                     (QREFELT $ 174))
                    . #8#)
              (LETT |poly2|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x2| (QREFELT $ 172)) |y2|
                               (QREFELT $ 173))
                     (QREFELT $ 174))
                    . #8#)
              (LETT |poly3|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x3| (QREFELT $ 172)) |y3|
                               (QREFELT $ 173))
                     (QREFELT $ 174))
                    . #8#)
              (LETT |n| (- |len| |i|) . #8#)
              (LETT |o1| (|GUESS;ord1| |xValues| |i| $) . #8#)
              (LETT |d1| (|GUESS;deg1| |xValues| |i| $) . #8#)
              (LETT |o2| (|GUESS;ord2| |xValues| |i| $) . #8#)
              (LETT |d2| (|GUESS;deg2| |xValues| |i| $) . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 166))
                     (EXIT
                      (SPADCALL "interpolating resultants..."
                                (QREFELT $ 54))))))
              (LETT |res1|
                    (SPADCALL
                     (|GUESS;evalResultant| |poly1| |poly3| |o1| |d1| |a1| A $)
                     (QREFELT $ 177))
                    . #8#)
              (LETT |res2|
                    (SPADCALL
                     (|GUESS;evalResultant| |poly2| |poly3| |o2| |d2| |a1| A $)
                     (QREFELT $ 177))
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SEQ
                 (SPADCALL
                  (SPADCALL "n/i: "
                            (SPADCALL (STRINGIMAGE |n|)
                                      (SPADCALL " " (STRINGIMAGE |i|)
                                                (QREFELT $ 178))
                                      (QREFELT $ 178))
                            (QREFELT $ 178))
                  (QREFELT $ 62))
                 (SPADCALL
                  (SPADCALL "res1 ord: "
                            (SPADCALL (STRINGIMAGE |o1|)
                                      (SPADCALL " "
                                                (STRINGIMAGE
                                                 (SPADCALL |res1|
                                                           (QREFELT $ 179)))
                                                (QREFELT $ 178))
                                      (QREFELT $ 178))
                            (QREFELT $ 178))
                  (QREFELT $ 62))
                 (SPADCALL
                  (SPADCALL "res1 deg: "
                            (SPADCALL (STRINGIMAGE |d1|)
                                      (SPADCALL " "
                                                (STRINGIMAGE
                                                 (SPADCALL |res1|
                                                           (QREFELT $ 146)))
                                                (QREFELT $ 178))
                                      (QREFELT $ 178))
                            (QREFELT $ 178))
                  (QREFELT $ 62))
                 (SPADCALL
                  (SPADCALL "res2 ord: "
                            (SPADCALL (STRINGIMAGE |o2|)
                                      (SPADCALL " "
                                                (STRINGIMAGE
                                                 (SPADCALL |res2|
                                                           (QREFELT $ 179)))
                                                (QREFELT $ 178))
                                      (QREFELT $ 178))
                            (QREFELT $ 178))
                  (QREFELT $ 62))
                 (EXIT
                  (SPADCALL
                   (SPADCALL "res2 deg: "
                             (SPADCALL (STRINGIMAGE |d2|)
                                       (SPADCALL " "
                                                 (STRINGIMAGE
                                                  (SPADCALL |res2|
                                                            (QREFELT $ 146)))
                                                 (QREFELT $ 178))
                                       (QREFELT $ 178))
                             (QREFELT $ 178))
                   (QREFELT $ 62))))))
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 166))
                     (EXIT (SPADCALL "computing gcd..." (QREFELT $ 54))))))
              (LETT |res3|
                    (|GUESS;SUPS2SUPF|
                     (SPADCALL (SPADCALL |res1| |res2| (QREFELT $ 180))
                               (QREFELT $ 181))
                     $)
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 166))
                     (EXIT (SPADCALL "solving..." (QREFELT $ 54))))))
              (SEQ (LETT |f| NIL . #8#)
                   (LETT #3#
                         (SPADCALL (SPADCALL |res3| (QREFELT $ 184))
                                   (QREFELT $ 187))
                         . #8#)
                   G190
                   (COND
                    ((OR (ATOM #3#) (PROGN (LETT |f| (CAR #3#) . #8#) NIL))
                     #10#))
                   (SEQ
                    (EXIT
                     (COND
                      ((EQL (SPADCALL (QCAR |f|) (QREFELT $ 110)) 1)
                       (SEQ
                        (COND
                         ((SPADCALL |options| (QREFELT $ 48))
                          (SPADCALL
                           (SPADCALL "f: "
                                     (|coerceRe2E| |f|
                                                   (ELT
                                                    (|Record|
                                                     (|:| |factor|
                                                          (|SparseUnivariatePolynomial|
                                                           (QREFELT $ 6)))
                                                     (|:| |exponent|
                                                          (|Integer|)))
                                                    0))
                                     (QREFELT $ 51))
                           (QREFELT $ 54))))
                        (LETT |Av|
                              (SPADCALL
                               (SPADCALL
                                (SPADCALL (QCAR |f|) 0 (QREFELT $ 188))
                                (SPADCALL (QCAR |f|) (QREFELT $ 108))
                                (QREFELT $ 63))
                               (QREFELT $ 189))
                              . #8#)
                        (LETT |evalPoly|
                              (SPADCALL (|GUESS;POLYS2POLYF| |poly3| $) A |Av|
                                        (QREFELT $ 190))
                              . #8#)
                        (COND
                         ((SPADCALL |evalPoly| (QREFELT $ 191))
                          (LETT |evalPoly|
                                (SPADCALL (|GUESS;POLYS2POLYF| |poly1| $) A
                                          |Av| (QREFELT $ 190))
                                . #8#)))
                        (EXIT
                         (SEQ (LETT |g| NIL . #8#)
                              (LETT #2#
                                    (SPADCALL
                                     (SPADCALL
                                      (SPADCALL |evalPoly| (QREFELT $ 192))
                                      (QREFELT $ 184))
                                     (QREFELT $ 187))
                                    . #8#)
                              G190
                              (COND
                               ((OR (ATOM #2#)
                                    (PROGN (LETT |g| (CAR #2#) . #8#) NIL))
                                #10#))
                              (SEQ
                               (EXIT
                                (COND
                                 ((EQL (SPADCALL (QCAR |g|) (QREFELT $ 110)) 1)
                                  (SEQ
                                   (COND
                                    ((SPADCALL |options| (QREFELT $ 48))
                                     (SPADCALL
                                      (SPADCALL "g: "
                                                (|coerceRe2E| |g|
                                                              (ELT
                                                               (|Record|
                                                                (|:| |factor|
                                                                     (|SparseUnivariatePolynomial|
                                                                      (QREFELT
                                                                       $ 6)))
                                                                (|:| |exponent|
                                                                     (|Integer|)))
                                                               0))
                                                (QREFELT $ 51))
                                      (QREFELT $ 54))))
                                   (LETT |a1v|
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL (QCAR |g|) 0
                                                     (QREFELT $ 188))
                                           (SPADCALL (QCAR |g|)
                                                     (QREFELT $ 108))
                                           (QREFELT $ 63))
                                          (QREFELT $ 189))
                                         . #8#)
                                   (LETT |t1|
                                         (SPADCALL
                                          (|GUESS;POLYS2POLYF| |poly1| $)
                                          (LIST |a1| A) (LIST |a1v| |Av|)
                                          (QREFELT $ 124))
                                         . #8#)
                                   (EXIT
                                    (COND
                                     ((SPADCALL |t1| (QREFELT $ 191))
                                      (SEQ
                                       (LETT |t2|
                                             (SPADCALL
                                              (|GUESS;POLYS2POLYF| |poly2| $)
                                              (LIST |a1| A) (LIST |a1v| |Av|)
                                              (QREFELT $ 124))
                                             . #8#)
                                       (EXIT
                                        (COND
                                         ((SPADCALL |t2| (QREFELT $ 191))
                                          (SEQ
                                           (LETT |ri1|
                                                 (SPADCALL
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 193))
                                                   $)
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 194))
                                                   $)
                                                  (QREFELT $ 195))
                                                 . #8#)
                                           (LETT |numr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 196))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (LETT |denr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 197))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (EXIT
                                            (COND
                                             ((SPADCALL |denr| (QREFELT $ 107))
                                              (COND
                                               ((SPADCALL |numr|
                                                          (QREFELT $ 107))
                                                (COND
                                                 ((SPADCALL |options|
                                                            (QREFELT $ 48))
                                                  (SPADCALL
                                                   "numerator and denominator vanish!"
                                                   (QREFELT $ 62)))))))
                                             ('T
                                              (SEQ
                                               (LETT |res4|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (|GUESS;FSUPF2EXPRR|
                                                        |xx|
                                                        (SPADCALL |numr| |denr|
                                                                  (QREFELT $
                                                                           198))
                                                        $)
                                                       (SPADCALL |xx|
                                                                 (QREFELT $
                                                                          200))
                                                       (SPADCALL
                                                        (SPADCALL |xx|
                                                                  (QREFELT $
                                                                           23))
                                                        |basis|)
                                                       (QREFELT $ 202))
                                                      (SPADCALL
                                                       (|GUESS;p2|
                                                        (SPADCALL |xValues|
                                                                  (QREFELT $
                                                                           159))
                                                        |xx| |a1v| |Av| |basis|
                                                        $)
                                                       (SPADCALL |xx|
                                                                 (QREFELT $
                                                                          23))
                                                       (QREFELT $ 203))
                                                      (QREFELT $ 87))
                                                     . #8#)
                                               (EXIT
                                                (LETT |res| (CONS |res4| |res|)
                                                      . #8#)))))))))))))))))))
                              (LETT #2# (CDR #2#) . #8#) #11# G191
                              (EXIT NIL))))))))
                   (LETT #3# (CDR #3#) . #8#) #11# G191 (EXIT NIL))
              (EXIT
               (COND
                ((NULL (NULL |res|))
                 (COND
                  ((SPADCALL |options| (QREFELT $ 57))
                   (PROGN (LETT #1# |res| . #8#) (GO #1#))))))))
             (LETT |i| (QSADD1 |i|) . #8#) #11# G191 (EXIT NIL))
        (EXIT |res|)))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;guessExpRatAux!0| (|z1| $$)
  (PROG (|list| $ |xValues| |a1| A |basis|)
    (LETT |list| (QREFELT $$ 5) . #1=(|GUESS;guessExpRatAux|))
    (LETT $ (QREFELT $$ 4) . #1#)
    (LETT |xValues| (QREFELT $$ 3) . #1#)
    (LETT |a1| (QREFELT $$ 2) . #1#)
    (LETT A (QREFELT $$ 1) . #1#)
    (LETT |basis| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (|GUESS;F2FPOLYS| (SPADCALL |list| |z1| (QREFELT $ 33)) $)
                (SPADCALL
                 (|GUESS;p| (SPADCALL |xValues| (QREFELT $ 159))
                  (SPADCALL |xValues| |z1| (QREFELT $ 15)) |a1| A |basis| $)
                 (SPADCALL (SPADCALL |xValues| |z1| (QREFELT $ 15))
                           (QREFELT $ 160))
                 (QREFELT $ 162))
                (QREFELT $ 157)))))) 

(DEFUN |GUESS;guessExpRatAux0| (|list| |basis| |options| $)
  (PROG (|res| #1=#:G2971 |f| #2=#:G2970 |xValues| |newlist| |i| #3=#:G2969 |x|
         |zeros| #4=#:G2968 |shortlist| #5=#:G2958 #6=#:G2967 |len| |xx|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((ZEROP (SPADCALL |options| (QREFELT $ 204)))
          (|error| "Guess: guessExpRat does not support zero safety")))
        (LETT |xx| (SPADCALL |options| (QREFELT $ 47))
              . #7=(|GUESS;guessExpRatAux0|))
        (LETT |len| (LENGTH |list|) . #7#)
        (COND
         ((< (+ (- |len| (SPADCALL |options| (QREFELT $ 204))) 1) 0)
          (PROGN (LETT #6# NIL . #7#) (GO #6#))))
        (LETT |shortlist|
              (SPADCALL |list|
                        (PROG1
                            (LETT #5#
                                  (+
                                   (- |len|
                                      (SPADCALL |options| (QREFELT $ 204)))
                                   1)
                                  . #7#)
                          (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|)
                                           #5#))
                        (QREFELT $ 205))
              . #7#)
        (LETT |zeros| (|spadConstant| $ 76) . #7#) (LETT |i| -1 . #7#)
        (SEQ (LETT |x| NIL . #7#) (LETT #4# |shortlist| . #7#) G190
             (COND
              ((OR (ATOM #4#) (PROGN (LETT |x| (CAR #4#) . #7#) NIL))
               #8=(GO G191)))
             (SEQ (LETT |i| (+ |i| 1) . #7#)
                  (EXIT
                   (COND
                    ((SPADCALL |x| (|spadConstant| $ 26) (QREFELT $ 35))
                     (LETT |zeros|
                           (SPADCALL |zeros|
                                     (SPADCALL
                                      (SPADCALL (SPADCALL |xx| (QREFELT $ 23))
                                                |basis|)
                                      (SPADCALL (SPADCALL |i| (QREFELT $ 24))
                                                |basis|)
                                      (QREFELT $ 77))
                                     (QREFELT $ 87))
                           . #7#)))))
             (LETT #4# (CDR #4#) . #7#) #9=(GO G190) G191 (EXIT NIL))
        (LETT |i| -1 . #7#)
        (SEQ (LETT |x| NIL . #7#) (LETT #3# |shortlist| . #7#) G190
             (COND
              ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#) . #7#) NIL)) #8#))
             (SEQ (LETT |i| (+ |i| 1) . #7#)
                  (EXIT
                   (COND
                    ((NULL (SPADCALL |x| (|spadConstant| $ 26) (QREFELT $ 35)))
                     (SEQ
                      (LETT |newlist|
                            (CONS
                             (SPADCALL |x|
                                       (SPADCALL
                                        (SPADCALL |zeros|
                                                  (SPADCALL |xx|
                                                            (QREFELT $ 23))
                                                  (SPADCALL |i| (QREFELT $ 24))
                                                  (QREFELT $ 25))
                                        (QREFELT $ 9))
                                       (QREFELT $ 63))
                             |newlist|)
                            . #7#)
                      (EXIT (LETT |xValues| (CONS |i| |xValues|) . #7#)))))))
             (LETT #3# (CDR #3#) . #7#) #9# G191 (EXIT NIL))
        (LETT |newlist| (REVERSE |newlist|) . #7#)
        (LETT |xValues| (REVERSE |xValues|) . #7#)
        (LETT |res|
              (PROGN
               (LETT #2# NIL . #7#)
               (SEQ (LETT |f| NIL . #7#)
                    (LETT #1#
                          (|GUESS;guessExpRatAux| |xx| |newlist| |basis|
                           |xValues| |options| $)
                          . #7#)
                    G190
                    (COND
                     ((OR (ATOM #1#) (PROGN (LETT |f| (CAR #1#) . #7#) NIL))
                      #8#))
                    (SEQ
                     (EXIT
                      (LETT #2#
                            (CONS
                             (SPADCALL (SPADCALL |zeros| |f| (QREFELT $ 87))
                                       (SPADCALL |xx| (QREFELT $ 23))
                                       (SPADCALL |xx| (QREFELT $ 23))
                                       (QREFELT $ 25))
                             #2#)
                            . #7#)))
                    (LETT #1# (CDR #1#) . #7#) #9# G191
                    (EXIT (NREVERSE0 #2#))))
              . #7#)
        (EXIT
         (SPADCALL
          (CONS #'|GUESS;guessExpRatAux0!0|
                (VECTOR |options| $ |list| |len| |xx|))
          |res| (QREFELT $ 209)))))
      #6# (EXIT #6#))))) 

(DEFUN |GUESS;guessExpRatAux0!0| (|z1| $$)
  (PROG (|xx| |len| |list| $ |options|)
    (LETT |xx| (QREFELT $$ 4) . #1=(|GUESS;guessExpRatAux0|))
    (LETT |len| (QREFELT $$ 3) . #1#)
    (LETT |list| (QREFELT $$ 2) . #1#)
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |options| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (|GUESS;checkResult| |z1| |xx| |len| |list| $)
                (SPADCALL |len| (SPADCALL |options| (QREFELT $ 204))
                          (QREFELT $ 206))
                (QREFELT $ 207)))))) 

(DEFUN |GUESS;guessExpRat;LL;24| (|list| $)
  (|GUESS;guessExpRatAux0| |list| (CONS (|function| |GUESS;defaultD|) $) NIL $)) 

(DEFUN |GUESS;guessExpRat;LLL;25| (|list| |options| $)
  (|GUESS;guessExpRatAux0| |list| (CONS (|function| |GUESS;defaultD|) $)
   |options| $)) 

(DEFUN |GUESS;guessExpRat;SM;26| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessExpRat;SM;26!1| (VECTOR |q| $))))) 

(DEFUN |GUESS;guessExpRat;SM;26!1| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessExpRat;SM;26|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG ()
        (RETURN
         (|GUESS;guessExpRatAux0| |z1|
          (CONS #'|GUESS;guessExpRat;SM;26!0| (VECTOR $ |q|)) |z2| $))))))) 

(DEFUN |GUESS;guessExpRat;SM;26!0| (|i1| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN (SPADCALL (SPADCALL |q| (QREFELT $ 23)) |i1| (QREFELT $ 203)))))) 

(DEFUN |GUESS;binExt| (|i| |va1| |vA| $)
  (PROG (|num| |numl| #1=#:G2980 |l| #2=#:G2979)
    (RETURN
     (SEQ
      (LETT |numl|
            (PROGN
             (LETT #2# NIL . #3=(|GUESS;binExt|))
             (SEQ (LETT |l| 0 . #3#) (LETT #1# (- |i| 1) . #3#) G190
                  (COND ((QSGREATERP |l| #1#) (GO G191)))
                  (SEQ
                   (EXIT
                    (LETT #2#
                          (CONS
                           (SPADCALL
                            (SPADCALL (SPADCALL |vA| (QREFELT $ 155))
                                      (SPADCALL |i|
                                                (SPADCALL |va1|
                                                          (QREFELT $ 155))
                                                (QREFELT $ 213))
                                      (QREFELT $ 214))
                            (SPADCALL |l| (QREFELT $ 215)) (QREFELT $ 216))
                           #2#)
                          . #3#)))
                  (LETT |l| (QSADD1 |l|) . #3#) (GO G190) G191
                  (EXIT (NREVERSE0 #2#))))
            . #3#)
      (LETT |num|
            (SPADCALL (ELT $ 217) |numl| (|spadConstant| $ 218)
                      (QREFELT $ 221))
            . #3#)
      (EXIT
       (SPADCALL |num|
                 (SPADCALL (SPADCALL |i| (QREFELT $ 222)) (QREFELT $ 215))
                 (QREFELT $ 106))))))) 

(DEFUN |GUESS;binExtEXPR| (|i| |a1v| |Av| $)
  (SPADCALL
   (SPADCALL (SPADCALL |Av| (QREFELT $ 10))
             (SPADCALL (SPADCALL |a1v| (QREFELT $ 10))
                       (SPADCALL |i| (QREFELT $ 23)) (QREFELT $ 87))
             (QREFELT $ 92))
   (SPADCALL |i| (QREFELT $ 23)) (QREFELT $ 223))) 

(DEFUN |GUESS;guessBinRatAux|
       (|xx| |list| |basis| |ext| |extEXPR| |xValues| |options| $)
  (PROG (#1=#:G3008 |res| |res4| |denr| |numr| |ri1| |t2| |t1| |a1v| #2=#:G3012
         |g| |evalPoly| |Av| #3=#:G3011 |f| |res3| |res2| |res1| |n| |poly3|
         |poly2| |poly1| |ri| #4=#:G2989 |i| |maxDeg| |maxD| |y3| |y2| |y1|
         |ylist| #5=#:G3010 |y| |x3| |x2| |x1| |xlist| #6=#:G3009 |len|
         #7=#:G2982 A |a1|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |a1| (SPADCALL 1 (QREFELT $ 122)) . #8=(|GUESS;guessBinRatAux|))
        (LETT A (SPADCALL 2 (QREFELT $ 122)) . #8#)
        (LETT |len| (LENGTH |list|) . #8#)
        (COND ((< |len| 4) (PROGN (LETT #1# NIL . #8#) (GO #1#)))
              (#9='T
               (LETT |len|
                     (PROG1 (LETT #7# (- |len| 3) . #8#)
                       (|check-subtype| (>= #7# 0) '(|NonNegativeInteger|)
                                        #7#))
                     . #8#)))
        (LETT |xlist|
              (PROGN
               (LETT #6# NIL . #8#)
               (SEQ (LETT |i| 1 . #8#) G190
                    (COND ((QSGREATERP |i| |len|) #10=(GO G191)))
                    (SEQ
                     (EXIT
                      (LETT #6#
                            (CONS
                             (|GUESS;F2FPOLYS|
                              (|GUESS;DN2DL| |basis|
                               (SPADCALL |xValues| |i| (QREFELT $ 15)) $)
                              $)
                             #6#)
                            . #8#)))
                    (LETT |i| (QSADD1 |i|) . #8#) #11=(GO G190) G191
                    (EXIT (NREVERSE0 #6#))))
              . #8#)
        (LETT |x1|
              (|GUESS;F2FPOLYS|
               (|GUESS;DN2DL| |basis|
                (SPADCALL |xValues| (+ |len| 1) (QREFELT $ 15)) $)
               $)
              . #8#)
        (LETT |x2|
              (|GUESS;F2FPOLYS|
               (|GUESS;DN2DL| |basis|
                (SPADCALL |xValues| (+ |len| 2) (QREFELT $ 15)) $)
               $)
              . #8#)
        (LETT |x3|
              (|GUESS;F2FPOLYS|
               (|GUESS;DN2DL| |basis|
                (SPADCALL |xValues| (+ |len| 3) (QREFELT $ 15)) $)
               $)
              . #8#)
        (LETT |y|
              (CONS #'|GUESS;guessBinRatAux!0|
                    (VECTOR |ext| A |a1| |xValues| $ |list|))
              . #8#)
        (LETT |ylist|
              (PROGN
               (LETT #5# NIL . #8#)
               (SEQ (LETT |i| 1 . #8#) G190
                    (COND ((QSGREATERP |i| |len|) #10#))
                    (SEQ (EXIT (LETT #5# (CONS (SPADCALL |i| |y|) #5#) . #8#)))
                    (LETT |i| (QSADD1 |i|) . #8#) #11# G191
                    (EXIT (NREVERSE0 #5#))))
              . #8#)
        (LETT |y1| (SPADCALL (+ |len| 1) |y|) . #8#)
        (LETT |y2| (SPADCALL (+ |len| 2) |y|) . #8#)
        (LETT |y3| (SPADCALL (+ |len| 3) |y|) . #8#) (LETT |res| NIL . #8#)
        (SEQ (LETT |maxD| (SPADCALL |options| (QREFELT $ 163)) . #8#)
             (EXIT
              (COND
               ((QEQCAR |maxD| 0)
                (LETT |maxDeg| (MIN (QCDR |maxD|) (- |len| 1)) . #8#))
               (#9# (LETT |maxDeg| (- |len| 1) . #8#)))))
        (SEQ (LETT |i| 0 . #8#) G190 (COND ((QSGREATERP |i| |maxDeg|) #10#))
             (SEQ
              (LETT |ri|
                    (SPADCALL |xlist| |ylist|
                              (PROG1 (LETT #4# (- (- |len| 1) |i|) . #8#)
                                (|check-subtype| (>= #4# 0)
                                                 '(|NonNegativeInteger|) #4#))
                              (QREFELT $ 170))
                    . #8#)
              (LETT |poly1|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x1| (QREFELT $ 172)) |y1|
                               (QREFELT $ 173))
                     (QREFELT $ 174))
                    . #8#)
              (LETT |poly2|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x2| (QREFELT $ 172)) |y2|
                               (QREFELT $ 173))
                     (QREFELT $ 174))
                    . #8#)
              (LETT |poly3|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x3| (QREFELT $ 172)) |y3|
                               (QREFELT $ 173))
                     (QREFELT $ 174))
                    . #8#)
              (LETT |n| (- |len| |i|) . #8#)
              (LETT |res1|
                    (SPADCALL (SPADCALL |poly1| |poly3| |a1| (QREFELT $ 225))
                              (QREFELT $ 145))
                    . #8#)
              (LETT |res2|
                    (SPADCALL (SPADCALL |poly2| |poly3| |a1| (QREFELT $ 225))
                              (QREFELT $ 145))
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SEQ
                 (SPADCALL
                  (SPADCALL "res1 ord: "
                            (STRINGIMAGE (SPADCALL |res1| (QREFELT $ 179)))
                            (QREFELT $ 178))
                  (QREFELT $ 62))
                 (SPADCALL
                  (SPADCALL "res1 deg: "
                            (STRINGIMAGE (SPADCALL |res1| (QREFELT $ 146)))
                            (QREFELT $ 178))
                  (QREFELT $ 62))
                 (SPADCALL
                  (SPADCALL "res2 ord: "
                            (STRINGIMAGE (SPADCALL |res2| (QREFELT $ 179)))
                            (QREFELT $ 178))
                  (QREFELT $ 62))
                 (EXIT
                  (SPADCALL
                   (SPADCALL "res2 deg: "
                             (STRINGIMAGE (SPADCALL |res2| (QREFELT $ 146)))
                             (QREFELT $ 178))
                   (QREFELT $ 62))))))
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SPADCALL "computing gcd..." (QREFELT $ 54))))
              (LETT |res3|
                    (|GUESS;SUPS2SUPF|
                     (SPADCALL (SPADCALL |res1| |res2| (QREFELT $ 180))
                               (QREFELT $ 181))
                     $)
                    . #8#)
              (SEQ (LETT |f| NIL . #8#)
                   (LETT #3#
                         (SPADCALL (SPADCALL |res3| (QREFELT $ 184))
                                   (QREFELT $ 187))
                         . #8#)
                   G190
                   (COND
                    ((OR (ATOM #3#) (PROGN (LETT |f| (CAR #3#) . #8#) NIL))
                     #10#))
                   (SEQ
                    (EXIT
                     (COND
                      ((EQL (SPADCALL (QCAR |f|) (QREFELT $ 110)) 1)
                       (SEQ
                        (LETT |Av|
                              (SPADCALL
                               (SPADCALL
                                (SPADCALL (QCAR |f|) 0 (QREFELT $ 188))
                                (SPADCALL (QCAR |f|) (QREFELT $ 108))
                                (QREFELT $ 63))
                               (QREFELT $ 189))
                              . #8#)
                        (LETT |evalPoly|
                              (SPADCALL (|GUESS;POLYS2POLYF| |poly3| $) A |Av|
                                        (QREFELT $ 190))
                              . #8#)
                        (COND
                         ((SPADCALL |evalPoly| (QREFELT $ 191))
                          (LETT |evalPoly|
                                (SPADCALL (|GUESS;POLYS2POLYF| |poly1| $) A
                                          |Av| (QREFELT $ 190))
                                . #8#)))
                        (EXIT
                         (SEQ (LETT |g| NIL . #8#)
                              (LETT #2#
                                    (SPADCALL
                                     (SPADCALL
                                      (SPADCALL |evalPoly| (QREFELT $ 192))
                                      (QREFELT $ 184))
                                     (QREFELT $ 187))
                                    . #8#)
                              G190
                              (COND
                               ((OR (ATOM #2#)
                                    (PROGN (LETT |g| (CAR #2#) . #8#) NIL))
                                #10#))
                              (SEQ
                               (EXIT
                                (COND
                                 ((EQL (SPADCALL (QCAR |g|) (QREFELT $ 110)) 1)
                                  (SEQ
                                   (LETT |a1v|
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL (QCAR |g|) 0
                                                     (QREFELT $ 188))
                                           (SPADCALL (QCAR |g|)
                                                     (QREFELT $ 108))
                                           (QREFELT $ 63))
                                          (QREFELT $ 189))
                                         . #8#)
                                   (LETT |t1|
                                         (SPADCALL
                                          (|GUESS;POLYS2POLYF| |poly1| $)
                                          (LIST |a1| A) (LIST |a1v| |Av|)
                                          (QREFELT $ 124))
                                         . #8#)
                                   (EXIT
                                    (COND
                                     ((SPADCALL |t1| (QREFELT $ 191))
                                      (SEQ
                                       (LETT |t2|
                                             (SPADCALL
                                              (|GUESS;POLYS2POLYF| |poly2| $)
                                              (LIST |a1| A) (LIST |a1v| |Av|)
                                              (QREFELT $ 124))
                                             . #8#)
                                       (EXIT
                                        (COND
                                         ((SPADCALL |t2| (QREFELT $ 191))
                                          (SEQ
                                           (LETT |ri1|
                                                 (SPADCALL
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 193))
                                                   $)
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 194))
                                                   $)
                                                  (QREFELT $ 195))
                                                 . #8#)
                                           (LETT |numr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 196))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (LETT |denr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 197))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (EXIT
                                            (COND
                                             ((SPADCALL |denr| (QREFELT $ 107))
                                              (COND
                                               ((SPADCALL |numr|
                                                          (QREFELT $ 107))
                                                (COND
                                                 ((SPADCALL |options|
                                                            (QREFELT $ 48))
                                                  (SPADCALL
                                                   "numerator and denominator vanish!"
                                                   (QREFELT $ 62)))))))
                                             ('T
                                              (SEQ
                                               (LETT |res4|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (|GUESS;FSUPF2EXPRR|
                                                        |xx|
                                                        (SPADCALL |numr| |denr|
                                                                  (QREFELT $
                                                                           198))
                                                        $)
                                                       (SPADCALL |xx|
                                                                 (QREFELT $
                                                                          200))
                                                       (SPADCALL
                                                        (SPADCALL |xx|
                                                                  (QREFELT $
                                                                           23))
                                                        |basis|)
                                                       (QREFELT $ 202))
                                                      (SPADCALL |xx| |a1v| |Av|
                                                                |extEXPR|)
                                                      (QREFELT $ 87))
                                                     . #8#)
                                               (EXIT
                                                (LETT |res| (CONS |res4| |res|)
                                                      . #8#)))))))))))))))))))
                              (LETT #2# (CDR #2#) . #8#) #11# G191
                              (EXIT NIL))))))))
                   (LETT #3# (CDR #3#) . #8#) #11# G191 (EXIT NIL))
              (EXIT
               (COND
                ((NULL (NULL |res|))
                 (COND
                  ((SPADCALL |options| (QREFELT $ 57))
                   (PROGN (LETT #1# |res| . #8#) (GO #1#))))))))
             (LETT |i| (QSADD1 |i|) . #8#) #11# G191 (EXIT NIL))
        (EXIT |res|)))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;guessBinRatAux!0| (|z1| $$)
  (PROG (|list| $ |xValues| |a1| A |ext|)
    (LETT |list| (QREFELT $$ 5) . #1=(|GUESS;guessBinRatAux|))
    (LETT $ (QREFELT $$ 4) . #1#)
    (LETT |xValues| (QREFELT $$ 3) . #1#)
    (LETT |a1| (QREFELT $$ 2) . #1#)
    (LETT A (QREFELT $$ 1) . #1#)
    (LETT |ext| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (|GUESS;F2FPOLYS| (SPADCALL |list| |z1| (QREFELT $ 33)) $)
                (SPADCALL (SPADCALL |xValues| |z1| (QREFELT $ 15)) |a1| A
                          |ext|)
                (QREFELT $ 224)))))) 

(DEFUN |GUESS;guessBinRatAux0| (|list| |basis| |ext| |extEXPR| |options| $)
  (PROG (|res| #1=#:G3027 |f| #2=#:G3026 |xValues| |newlist| |i| #3=#:G3025 |x|
         |zeros| #4=#:G3024 |shortlist| #5=#:G3015 #6=#:G3023 |len| |xx|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((ZEROP (SPADCALL |options| (QREFELT $ 204)))
          (|error| "Guess: guessBinRat does not support zero safety")))
        (LETT |xx| (SPADCALL |options| (QREFELT $ 47))
              . #7=(|GUESS;guessBinRatAux0|))
        (LETT |len| (LENGTH |list|) . #7#)
        (COND
         ((< (+ (- |len| (SPADCALL |options| (QREFELT $ 204))) 1) 0)
          (PROGN (LETT #6# NIL . #7#) (GO #6#))))
        (LETT |shortlist|
              (SPADCALL |list|
                        (PROG1
                            (LETT #5#
                                  (+
                                   (- |len|
                                      (SPADCALL |options| (QREFELT $ 204)))
                                   1)
                                  . #7#)
                          (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|)
                                           #5#))
                        (QREFELT $ 205))
              . #7#)
        (LETT |zeros| (|spadConstant| $ 76) . #7#) (LETT |i| -1 . #7#)
        (SEQ (LETT |x| NIL . #7#) (LETT #4# |shortlist| . #7#) G190
             (COND
              ((OR (ATOM #4#) (PROGN (LETT |x| (CAR #4#) . #7#) NIL))
               #8=(GO G191)))
             (SEQ (LETT |i| (+ |i| 1) . #7#)
                  (EXIT
                   (COND
                    ((SPADCALL |x| (|spadConstant| $ 26) (QREFELT $ 35))
                     (LETT |zeros|
                           (SPADCALL |zeros|
                                     (SPADCALL
                                      (SPADCALL (SPADCALL |xx| (QREFELT $ 23))
                                                |basis|)
                                      (SPADCALL (SPADCALL |i| (QREFELT $ 24))
                                                |basis|)
                                      (QREFELT $ 77))
                                     (QREFELT $ 87))
                           . #7#)))))
             (LETT #4# (CDR #4#) . #7#) #9=(GO G190) G191 (EXIT NIL))
        (LETT |i| -1 . #7#)
        (SEQ (LETT |x| NIL . #7#) (LETT #3# |shortlist| . #7#) G190
             (COND
              ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#) . #7#) NIL)) #8#))
             (SEQ (LETT |i| (+ |i| 1) . #7#)
                  (EXIT
                   (COND
                    ((NULL (SPADCALL |x| (|spadConstant| $ 26) (QREFELT $ 35)))
                     (SEQ
                      (LETT |newlist|
                            (CONS
                             (SPADCALL |x|
                                       (SPADCALL
                                        (SPADCALL |zeros|
                                                  (SPADCALL |xx|
                                                            (QREFELT $ 23))
                                                  (SPADCALL |i| (QREFELT $ 24))
                                                  (QREFELT $ 25))
                                        (QREFELT $ 9))
                                       (QREFELT $ 63))
                             |newlist|)
                            . #7#)
                      (EXIT (LETT |xValues| (CONS |i| |xValues|) . #7#)))))))
             (LETT #3# (CDR #3#) . #7#) #9# G191 (EXIT NIL))
        (LETT |newlist| (REVERSE |newlist|) . #7#)
        (LETT |xValues| (REVERSE |xValues|) . #7#)
        (LETT |res|
              (PROGN
               (LETT #2# NIL . #7#)
               (SEQ (LETT |f| NIL . #7#)
                    (LETT #1#
                          (|GUESS;guessBinRatAux| |xx| |newlist| |basis| |ext|
                           |extEXPR| |xValues| |options| $)
                          . #7#)
                    G190
                    (COND
                     ((OR (ATOM #1#) (PROGN (LETT |f| (CAR #1#) . #7#) NIL))
                      #8#))
                    (SEQ
                     (EXIT
                      (LETT #2#
                            (CONS
                             (SPADCALL (SPADCALL |zeros| |f| (QREFELT $ 87))
                                       (SPADCALL |xx| (QREFELT $ 23))
                                       (SPADCALL |xx| (QREFELT $ 23))
                                       (QREFELT $ 25))
                             #2#)
                            . #7#)))
                    (LETT #1# (CDR #1#) . #7#) #9# G191
                    (EXIT (NREVERSE0 #2#))))
              . #7#)
        (EXIT
         (SPADCALL
          (CONS #'|GUESS;guessBinRatAux0!0|
                (VECTOR |options| $ |list| |len| |xx|))
          |res| (QREFELT $ 209)))))
      #6# (EXIT #6#))))) 

(DEFUN |GUESS;guessBinRatAux0!0| (|z1| $$)
  (PROG (|xx| |len| |list| $ |options|)
    (LETT |xx| (QREFELT $$ 4) . #1=(|GUESS;guessBinRatAux0|))
    (LETT |len| (QREFELT $$ 3) . #1#)
    (LETT |list| (QREFELT $$ 2) . #1#)
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |options| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (|GUESS;checkResult| |z1| |xx| |len| |list| $)
                (SPADCALL |len| (SPADCALL |options| (QREFELT $ 204))
                          (QREFELT $ 206))
                (QREFELT $ 207)))))) 

(DEFUN |GUESS;guessBinRat;LL;31| (|list| $)
  (|GUESS;guessBinRatAux0| |list| (CONS (|function| |GUESS;defaultD|) $)
   (CONS (|function| |GUESS;binExt|) $)
   (CONS (|function| |GUESS;binExtEXPR|) $) NIL $)) 

(DEFUN |GUESS;guessBinRat;LLL;32| (|list| |options| $)
  (|GUESS;guessBinRatAux0| |list| (CONS (|function| |GUESS;defaultD|) $)
   (CONS (|function| |GUESS;binExt|) $)
   (CONS (|function| |GUESS;binExtEXPR|) $) |options| $)) 

(DEFUN |GUESS;qD| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;qD!0| (VECTOR $ |q|))))) 

(DEFUN |GUESS;qD!0| (|z1| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) . #1=(|GUESS;qD|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN (SPADCALL (SPADCALL |q| (QREFELT $ 23)) |z1| (QREFELT $ 203)))))) 

(DEFUN |GUESS;qBinExtAux| (|q| |i| |va1| |vA| $)
  (PROG (|fl| |l| #1=#:G3035)
    (RETURN
     (SEQ
      (LETT |fl|
            (PROGN
             (LETT #1# NIL . #2=(|GUESS;qBinExtAux|))
             (SEQ (LETT |l| 1 . #2#) G190
                  (COND ((QSGREATERP |l| |i|) (GO G191)))
                  (SEQ
                   (EXIT
                    (LETT #1#
                          (CONS
                           (SPADCALL
                            (SPADCALL (|spadConstant| $ 228)
                                      (SPADCALL
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |va1| (QREFELT $ 155))
                                         (QREFELT $ 156))
                                        (SPADCALL
                                         (SPADCALL
                                          (SPADCALL |vA| (QREFELT $ 155))
                                          (QREFELT $ 156))
                                         (- |i| 1) (QREFELT $ 162))
                                        (QREFELT $ 157))
                                       (SPADCALL
                                        (|GUESS;F2FPOLYS|
                                         (SPADCALL |q| (QREFELT $ 229)) $)
                                        |l| (QREFELT $ 162))
                                       (QREFELT $ 157))
                                      (QREFELT $ 173))
                            (SPADCALL (|spadConstant| $ 228)
                                      (SPADCALL
                                       (|GUESS;F2FPOLYS|
                                        (SPADCALL |q| (QREFELT $ 229)) $)
                                       |l| (QREFELT $ 162))
                                      (QREFELT $ 173))
                            (QREFELT $ 224))
                           #1#)
                          . #2#)))
                  (LETT |l| (QSADD1 |l|) . #2#) (GO G190) G191
                  (EXIT (NREVERSE0 #1#))))
            . #2#)
      (EXIT
       (SPADCALL (ELT $ 157) |fl| (|spadConstant| $ 228) (QREFELT $ 231))))))) 

(DEFUN |GUESS;qBinExt| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;qBinExt!0| (VECTOR $ |q|))))) 

(DEFUN |GUESS;qBinExt!0| (|z1| |z2| |z3| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) . #1=(|GUESS;qBinExt|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;qBinExtAux| |q| |z1| |z2| |z3| $))))) 

(DEFUN |GUESS;qBinExtEXPRaux| (|q| |i| |a1v| |Av| $)
  (PROG (|l|)
    (RETURN
     (SEQ (LETT |l| '|l| |GUESS;qBinExtEXPRaux|)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL (|spadConstant| $ 76)
                       (SPADCALL
                        (SPADCALL (SPADCALL |a1v| (QREFELT $ 10))
                                  (SPADCALL (SPADCALL |Av| (QREFELT $ 10))
                                            (SPADCALL
                                             (SPADCALL |i| (QREFELT $ 23))
                                             (|spadConstant| $ 76)
                                             (QREFELT $ 77))
                                            (QREFELT $ 203))
                                  (QREFELT $ 87))
                        (SPADCALL (SPADCALL |q| (QREFELT $ 23))
                                  (SPADCALL |l| (QREFELT $ 23))
                                  (QREFELT $ 203))
                        (QREFELT $ 87))
                       (QREFELT $ 77))
             (SPADCALL (|spadConstant| $ 76)
                       (SPADCALL (SPADCALL |q| (QREFELT $ 23))
                                 (SPADCALL |l| (QREFELT $ 23)) (QREFELT $ 203))
                       (QREFELT $ 77))
             (QREFELT $ 34))
            (SPADCALL |l|
                      (SPADCALL (|spadConstant| $ 76)
                                (SPADCALL |i| (QREFELT $ 23)) (QREFELT $ 79))
                      (QREFELT $ 81))
            (QREFELT $ 83))))))) 

(DEFUN |GUESS;qBinExtEXPR| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;qBinExtEXPR!0| (VECTOR $ |q|))))) 

(DEFUN |GUESS;qBinExtEXPR!0| (|z1| |z2| |z3| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) . #1=(|GUESS;qBinExtEXPR|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;qBinExtEXPRaux| |q| |z1| |z2| |z3| $))))) 

(DEFUN |GUESS;guessBinRat;SM;38| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessBinRat;SM;38!0| (VECTOR $ |q|))))) 

(DEFUN |GUESS;guessBinRat;SM;38!0| (|z1| |z2| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) . #1=(|GUESS;guessBinRat;SM;38|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;guessBinRatAux0| |z1| (|GUESS;qD| |q| $) (|GUESS;qBinExt| |q| $)
       (|GUESS;qBinExtEXPR| |q| $) |z2| $))))) 

(DEFUN |GUESS;FilteredPartitionStream| (|options| $)
  (PROG (|s| |s3| |s2| |s1| |maxP?| |homD?| |maxD?|)
    (RETURN
     (SEQ
      (LETT |maxD?| (SPADCALL |options| (QREFELT $ 233))
            . #1=(|GUESS;FilteredPartitionStream|))
      (LETT |maxP?| (SPADCALL |options| (QREFELT $ 235)) . #1#)
      (LETT |homD?| (SPADCALL |options| (QREFELT $ 237)) . #1#)
      (COND
       ((QEQCAR |homD?| 1)
        (COND
         ((QCDR |homD?|)
          (EXIT
           (|error|
            "Guess: internal error - homogeneous should not be Boolean in FilteredPartitionStream")))))
       (#2='T
        (SEQ
         (COND
          ((QEQCAR |maxD?| 0)
           (COND
            ((ZEROP (QCDR |maxD?|))
             (EXIT
              (|error|
               "Guess: the option homogeneous requires that maxShift/maxDerivative is at least one"))))))
         (EXIT (LETT |maxP?| (CONS 0 (QCDR |homD?|)) . #1#)))))
      (COND
       ((QEQCAR |maxD?| 0)
        (COND
         ((QEQCAR |maxP?| 0)
          (LETT |s|
                (SPADCALL (+ (QCDR |maxD?|) 1) (QCDR |maxP?|) (QREFELT $ 240))
                . #1#))
         (#2#
          (SEQ (LETT |s1| (SPADCALL (ELT $ 241) 1 (QREFELT $ 244)) . #1#)
               (LETT |s2|
                     (COND
                      ((QEQCAR |maxD?| 0)
                       (SPADCALL
                        (CONS #'|GUESS;FilteredPartitionStream!0|
                              (VECTOR $ |maxD?|))
                        |s1| (QREFELT $ 250)))
                      ((QEQCAR |maxP?| 0)
                       (SPADCALL
                        (CONS #'|GUESS;FilteredPartitionStream!1|
                              (VECTOR $ |maxP?|))
                        |s1| (QREFELT $ 250)))
                      (#2# (SPADCALL (ELT $ 251) |s1| (QREFELT $ 250))))
                     . #1#)
               (LETT |s3| (SPADCALL |s2| (QREFELT $ 253)) . #1#)
               (EXIT (LETT |s| (SPADCALL NIL |s3| (QREFELT $ 254)) . #1#))))))
       (#2#
        (SEQ (LETT |s1| (SPADCALL (ELT $ 241) 1 (QREFELT $ 244)) . #1#)
             (LETT |s2|
                   (COND
                    ((QEQCAR |maxD?| 0)
                     (SPADCALL
                      (CONS #'|GUESS;FilteredPartitionStream!2|
                            (VECTOR $ |maxD?|))
                      |s1| (QREFELT $ 250)))
                    ((QEQCAR |maxP?| 0)
                     (SPADCALL
                      (CONS #'|GUESS;FilteredPartitionStream!3|
                            (VECTOR $ |maxP?|))
                      |s1| (QREFELT $ 250)))
                    (#2# (SPADCALL (ELT $ 251) |s1| (QREFELT $ 250))))
                   . #1#)
             (LETT |s3| (SPADCALL |s2| (QREFELT $ 253)) . #1#)
             (EXIT (LETT |s| (SPADCALL NIL |s3| (QREFELT $ 254)) . #1#)))))
      (LETT |s| (SPADCALL |s| (QREFELT $ 255)) . #1#)
      (EXIT
       (COND
        ((QEQCAR |homD?| 0)
         (SPADCALL
          (CONS #'|GUESS;FilteredPartitionStream!4| (VECTOR |homD?| $)) |s|
          (QREFELT $ 259)))
        (#2# |s|))))))) 

(DEFUN |GUESS;FilteredPartitionStream!4| (|z1| $$)
  (PROG ($ |homD?|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;FilteredPartitionStream|))
    (LETT |homD?| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |z1| (QREFELT $ 256)) (QCDR |homD?|)
                (QREFELT $ 257)))))) 

(DEFUN |GUESS;FilteredPartitionStream!3| (|z1| $$)
  (PROG (|maxP?| $)
    (LETT |maxP?| (QREFELT $$ 1) . #1=(|GUESS;FilteredPartitionStream|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |z1| (QCDR |maxP?|) |z1| (QREFELT $ 246)))))) 

(DEFUN |GUESS;FilteredPartitionStream!2| (|z1| $$)
  (PROG (|maxD?| $)
    (LETT |maxD?| (QREFELT $$ 1) . #1=(|GUESS;FilteredPartitionStream|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL (QCDR |maxD?|) (|spadConstant| $ 90) (QREFELT $ 245))
                |z1| |z1| (QREFELT $ 246)))))) 

(DEFUN |GUESS;FilteredPartitionStream!1| (|z1| $$)
  (PROG (|maxP?| $)
    (LETT |maxP?| (QREFELT $$ 1) . #1=(|GUESS;FilteredPartitionStream|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |z1| (QCDR |maxP?|) |z1| (QREFELT $ 246)))))) 

(DEFUN |GUESS;FilteredPartitionStream!0| (|z1| $$)
  (PROG (|maxD?| $)
    (LETT |maxD?| (QREFELT $$ 1) . #1=(|GUESS;FilteredPartitionStream|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL (QCDR |maxD?|) (|spadConstant| $ 90) (QREFELT $ 245))
                |z1| |z1| (QREFELT $ 246)))))) 

(DEFUN |GUESS;termAsEXPRR| (|f| |xx| |partition| DX D1X $)
  (PROG (|fl| #1=#:G3071 #2=#:G3070 #3=#:G3078 |part| #4=#:G3077 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) (SPADCALL |xx| D1X))
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 262))
                    . #5=(|GUESS;termAsEXPRR|))
              (LETT |fl|
                    (PROGN
                     (LETT #4# NIL . #5#)
                     (SEQ (LETT |part| NIL . #5#) (LETT #3# |ll| . #5#) G190
                          (COND
                           ((OR (ATOM #3#)
                                (PROGN (LETT |part| (CAR #3#) . #5#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #4#
                                  (CONS
                                   (SPADCALL
                                    (SPADCALL |f| |xx|
                                              (PROG1
                                                  (LETT #2#
                                                        (- (|SPADfirst| |part|)
                                                           1)
                                                        . #5#)
                                                (|check-subtype| (>= #2# 0)
                                                                 '(|NonNegativeInteger|)
                                                                 #2#))
                                              DX)
                                    (PROG1
                                        (LETT #1#
                                              (SPADCALL |part| (QREFELT $ 263))
                                              . #5#)
                                      (|check-subtype| (>= #1# 0)
                                                       '(|NonNegativeInteger|)
                                                       #1#))
                                    (QREFELT $ 111))
                                   #4#)
                                  . #5#)))
                          (LETT #3# (CDR #3#) . #5#) (GO G190) G191
                          (EXIT (NREVERSE0 #4#))))
                    . #5#)
              (EXIT (SPADCALL (ELT $ 87) |fl| (QREFELT $ 265)))))))))) 

(DEFUN |GUESS;termAsU32VectorDiff| (|f| |partition| |prime| |degreeLoss| $)
  (PROG (|fl| #1=#:G3082 #2=#:G3081 #3=#:G3091 |part| #4=#:G3090 |ll| |d|
         #5=#:G3080 #6=#:G3089 |i| #7=#:G3088)
    (RETURN
     (SEQ
      (COND
       ((NULL |partition|)
        (SPADCALL
         (CONS 1
               (PROGN
                (LETT #7# NIL . #8=(|GUESS;termAsU32VectorDiff|))
                (SEQ (LETT |i| (+ |degreeLoss| 2) . #8#)
                     (LETT #6# (QV32LEN |f|) . #8#) G190
                     (COND ((> |i| #6#) #9=(GO G191)))
                     (SEQ (EXIT (LETT #7# (CONS 0 #7#) . #8#)))
                     (LETT |i| (+ |i| 1) . #8#) #10=(GO G190) G191
                     (EXIT (NREVERSE0 #7#)))))
         (QREFELT $ 267)))
       ('T
        (SEQ
         (LETT |d|
               (PROG1 (LETT #5# (- (- (QV32LEN |f|) |degreeLoss|) 1) . #8#)
                 (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|) #5#))
               . #8#)
         (LETT |ll| (SPADCALL |partition| (QREFELT $ 262)) . #8#)
         (LETT |fl|
               (PROGN
                (LETT #4# NIL . #8#)
                (SEQ (LETT |part| NIL . #8#) (LETT #3# |ll| . #8#) G190
                     (COND
                      ((OR (ATOM #3#)
                           (PROGN (LETT |part| (CAR #3#) . #8#) NIL))
                       #9#))
                     (SEQ
                      (EXIT
                       (LETT #4#
                             (CONS
                              (SPADCALL
                               (SPADCALL |f|
                                         (PROG1
                                             (LETT #2#
                                                   (- (|SPADfirst| |part|) 1)
                                                   . #8#)
                                           (|check-subtype| (>= #2# 0)
                                                            '(|NonNegativeInteger|)
                                                            #2#))
                                         |prime| (QREFELT $ 269))
                               (PROG1
                                   (LETT #1# (SPADCALL |part| (QREFELT $ 263))
                                         . #8#)
                                 (|check-subtype| (> #1# 0)
                                                  '(|PositiveInteger|) #1#))
                               |d| |prime| (QREFELT $ 270))
                              #4#)
                             . #8#)))
                     (LETT #3# (CDR #3#) . #8#) #10# G191
                     (EXIT (NREVERSE0 #4#))))
               . #8#)
         (EXIT
          (SPADCALL
           (CONS #'|GUESS;termAsU32VectorDiff!0| (VECTOR $ |prime| |d|)) |fl|
           (QREFELT $ 274)))))))))) 

(DEFUN |GUESS;termAsU32VectorDiff!0| (|f1| |f2| $$)
  (PROG (|d| |prime| $)
    (LETT |d| (QREFELT $$ 2) . #1=(|GUESS;termAsU32VectorDiff|))
    (LETT |prime| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |f1| |f2| |d| |prime| (QREFELT $ 271)))))) 

(DEFUN |GUESS;termAsU32VectorShift| (|f| |partition| |prime| |degreeLoss| $)
  (PROG (#1=#:G3114 |e| |i| |r| |fl| #2=#:G3100 #3=#:G3113 |j| #4=#:G3112
         #5=#:G3111 |part| #6=#:G3110 |ll| |d| #7=#:G3093 #8=#:G3109
         #9=#:G3108)
    (RETURN
     (SEQ
      (COND
       ((NULL |partition|)
        (SPADCALL
         (PROGN
          (LETT #9# NIL . #10=(|GUESS;termAsU32VectorShift|))
          (SEQ (LETT |i| (+ |degreeLoss| 1) . #10#)
               (LETT #8# (QV32LEN |f|) . #10#) G190
               (COND ((> |i| #8#) #11=(GO G191)))
               (SEQ (EXIT (LETT #9# (CONS 1 #9#) . #10#)))
               (LETT |i| (+ |i| 1) . #10#) #12=(GO G190) G191
               (EXIT (NREVERSE0 #9#))))
         (QREFELT $ 267)))
       ('T
        (SEQ
         (LETT |d|
               (PROG1 (LETT #7# (- (- (QV32LEN |f|) |degreeLoss|) 1) . #10#)
                 (|check-subtype| (>= #7# 0) '(|NonNegativeInteger|) #7#))
               . #10#)
         (LETT |ll| (SPADCALL |partition| (QREFELT $ 262)) . #10#)
         (LETT |fl|
               (PROGN
                (LETT #6# NIL . #10#)
                (SEQ (LETT |part| NIL . #10#) (LETT #5# |ll| . #10#) G190
                     (COND
                      ((OR (ATOM #5#)
                           (PROGN (LETT |part| (CAR #5#) . #10#) NIL))
                       #11#))
                     (SEQ
                      (EXIT
                       (LETT #6#
                             (CONS
                              (SPADCALL
                               (PROGN
                                (LETT #4# NIL . #10#)
                                (SEQ
                                 (LETT |j| (- (|SPADfirst| |part|) 1) . #10#)
                                 (LETT #3# (+ (- (|SPADfirst| |part|) 1) |d|)
                                       . #10#)
                                 G190 (COND ((> |j| #3#) #11#))
                                 (SEQ
                                  (EXIT
                                   (LETT #4#
                                         (CONS
                                          (QSMOD64-32
                                           (REMAINDER2
                                            (EXPT (ELT32 |f| |j|)
                                                  (PROG1
                                                      (LETT #2#
                                                            (SPADCALL |part|
                                                                      (QREFELT
                                                                       $ 263))
                                                            . #10#)
                                                    (|check-subtype| (> #2# 0)
                                                                     '(|PositiveInteger|)
                                                                     #2#)))
                                            |prime|)
                                           |prime|)
                                          #4#)
                                         . #10#)))
                                 (LETT |j| (+ |j| 1) . #10#) #12# G191
                                 (EXIT (NREVERSE0 #4#))))
                               (QREFELT $ 267))
                              #6#)
                             . #10#)))
                     (LETT #5# (CDR #5#) . #10#) #12# G191
                     (EXIT (NREVERSE0 #6#))))
               . #10#)
         (LETT |r| (GETREFV32 (+ |d| 1) 0) . #10#)
         (SPADCALL |r| (|SPADfirst| |fl|) (+ |d| 1) (QREFELT $ 275))
         (SEQ (LETT |i| 0 . #10#) G190 (COND ((QSGREATERP |i| |d|) #11#))
              (SEQ
               (EXIT
                (SEQ (LETT |e| NIL . #10#) (LETT #1# (CDR |fl|) . #10#) G190
                     (COND
                      ((OR (ATOM #1#) (PROGN (LETT |e| (CAR #1#) . #10#) NIL))
                       #11#))
                     (SEQ
                      (EXIT
                       (SETELT32 |r| |i|
                                 (QSMULMOD32 (ELT32 |r| |i|) (ELT32 |e| |i|)
                                             |prime|))))
                     (LETT #1# (CDR #1#) . #10#) #12# G191 (EXIT NIL))))
              (LETT |i| (QSADD1 |i|) . #10#) #12# G191 (EXIT NIL))
         (EXIT |r|)))))))) 

(DEFUN |GUESS;termAsUFPSF| (|f| |partition| DS D1 $)
  (PROG (|fl| #1=#:G3123 #2=#:G3122 #3=#:G3130 |part| #4=#:G3129 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) D1)
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 262))
                    . #5=(|GUESS;termAsUFPSF|))
              (LETT |fl|
                    (PROGN
                     (LETT #4# NIL . #5#)
                     (SEQ (LETT |part| NIL . #5#) (LETT #3# |ll| . #5#) G190
                          (COND
                           ((OR (ATOM #3#)
                                (PROGN (LETT |part| (CAR #3#) . #5#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #4#
                                  (CONS
                                   (SPADCALL
                                    (SPADCALL |f|
                                              (PROG1
                                                  (LETT #2#
                                                        (- (|SPADfirst| |part|)
                                                           1)
                                                        . #5#)
                                                (|check-subtype| (>= #2# 0)
                                                                 '(|NonNegativeInteger|)
                                                                 #2#))
                                              DS)
                                    (PROG1
                                        (LETT #1#
                                              (SPADCALL |part| (QREFELT $ 263))
                                              . #5#)
                                      (|check-subtype| (>= #1# 0)
                                                       '(|NonNegativeInteger|)
                                                       #1#))
                                    (QREFELT $ 277))
                                   #4#)
                                  . #5#)))
                          (LETT #3# (CDR #3#) . #5#) (GO G190) G191
                          (EXIT (NREVERSE0 #4#))))
                    . #5#)
              (EXIT (SPADCALL (ELT $ 278) |fl| (QREFELT $ 281)))))))))) 

(DEFUN |GUESS;termAsUFPSF2| (|f| |partition| DS D1 $)
  (PROG (|fl| #1=#:G3133 #2=#:G3140 |part| #3=#:G3139 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) D1)
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 262))
                    . #4=(|GUESS;termAsUFPSF2|))
              (LETT |fl|
                    (PROGN
                     (LETT #3# NIL . #4#)
                     (SEQ (LETT |part| NIL . #4#) (LETT #2# |ll| . #4#) G190
                          (COND
                           ((OR (ATOM #2#)
                                (PROGN (LETT |part| (CAR #2#) . #4#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #3#
                                  (CONS
                                   (SPADCALL
                                    (CONS #'|GUESS;termAsUFPSF2!0|
                                          (VECTOR $ |part|))
                                    (SPADCALL |f|
                                              (PROG1
                                                  (LETT #1#
                                                        (- (|SPADfirst| |part|)
                                                           1)
                                                        . #4#)
                                                (|check-subtype| (>= #1# 0)
                                                                 '(|NonNegativeInteger|)
                                                                 #1#))
                                              DS)
                                    (QREFELT $ 284))
                                   #3#)
                                  . #4#)))
                          (LETT #2# (CDR #2#) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    . #4#)
              (EXIT (SPADCALL (ELT $ 286) |fl| (QREFELT $ 281)))))))))) 

(DEFUN |GUESS;termAsUFPSF2!0| (|z1| $$)
  (PROG (|part| $)
    (LETT |part| (QREFELT $$ 1) . #1=(|GUESS;termAsUFPSF2|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3132)
        (RETURN
         (SPADCALL |z1|
                   (PROG1 (LETT #2# (SPADCALL |part| (QREFELT $ 263)) NIL)
                     (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                   (QREFELT $ 282)))))))) 

(DEFUN |GUESS;termAsUFPSSUPF2| (|f| |partition| DSF D1F $)
  (PROG (|fl| #1=#:G3142 #2=#:G3150 |part| #3=#:G3149 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) D1F)
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 262))
                    . #4=(|GUESS;termAsUFPSSUPF2|))
              (LETT |fl|
                    (PROGN
                     (LETT #3# NIL . #4#)
                     (SEQ (LETT |part| NIL . #4#) (LETT #2# |ll| . #4#) G190
                          (COND
                           ((OR (ATOM #2#)
                                (PROGN (LETT |part| (CAR #2#) . #4#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #3#
                                  (CONS
                                   (SPADCALL
                                    (CONS #'|GUESS;termAsUFPSSUPF2!0|
                                          (VECTOR $ |part|))
                                    (SPADCALL |f|
                                              (PROG1
                                                  (LETT #1#
                                                        (- (|SPADfirst| |part|)
                                                           1)
                                                        . #4#)
                                                (|check-subtype| (>= #1# 0)
                                                                 '(|NonNegativeInteger|)
                                                                 #1#))
                                              DSF)
                                    (QREFELT $ 290))
                                   #3#)
                                  . #4#)))
                          (LETT #2# (CDR #2#) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    . #4#)
              (EXIT (SPADCALL (ELT $ 292) |fl| (QREFELT $ 295)))))))))) 

(DEFUN |GUESS;termAsUFPSSUPF2!0| (|z1| $$)
  (PROG (|part| $)
    (LETT |part| (QREFELT $$ 1) . #1=(|GUESS;termAsUFPSSUPF2|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3141)
        (RETURN
         (SPADCALL |z1|
                   (PROG1 (LETT #2# (SPADCALL |part| (QREFELT $ 263)) NIL)
                     (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                   (QREFELT $ 287)))))))) 

(DEFUN |GUESS;ADEguessStream| (|f| |partitions| DS D1 $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GUESS;ADEguessStream!0| (VECTOR $ D1 DS |f|))
               |partitions| (QREFELT $ 299))))) 

(DEFUN |GUESS;ADEguessStream!0| (|z1| $$)
  (PROG (|f| DS D1 $)
    (LETT |f| (QREFELT $$ 3) . #1=(|GUESS;ADEguessStream|))
    (LETT DS (QREFELT $$ 2) . #1#)
    (LETT D1 (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;termAsUFPSF| |f| |z1| DS D1 $))))) 

(DEFUN |GUESS;ADEguessStream2| (|f| |partitions| DS D1 $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GUESS;ADEguessStream2!0| (VECTOR $ D1 DS |f|))
               |partitions| (QREFELT $ 299))))) 

(DEFUN |GUESS;ADEguessStream2!0| (|z1| $$)
  (PROG (|f| DS D1 $)
    (LETT |f| (QREFELT $$ 3) . #1=(|GUESS;ADEguessStream2|))
    (LETT DS (QREFELT $$ 2) . #1#)
    (LETT D1 (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;termAsUFPSF2| |f| |z1| DS D1 $))))) 

(DEFUN |GUESS;ADEguessModGenCached|
       (|f| |addOne| |maxD| |prodl| |terml| |prime| $)
  (PROG (|i| #1=#:G3167 |r| |res| #2=#:G3165 #3=#:G3166 |res1| #4=#:G3156 |nt|
         #5=#:G3163 #6=#:G3164 |pp| |cache| |np| |sigma|)
    (RETURN
     (SEQ
      (LETT |sigma| (- (QV32LEN |f|) |maxD|)
            . #7=(|GUESS;ADEguessModGenCached|))
      (LETT |np| (LENGTH |prodl|) . #7#)
      (LETT |cache| (MAKEARR1 (+ (+ |maxD| 1) |np|) (GETREFV32 0 0)) . #7#)
      (QSETAREF1 |cache| 0 |f|)
      (SEQ (LETT |i| 1 . #7#) G190
           (COND ((QSGREATERP |i| |maxD|) #8=(GO G191)))
           (SEQ
            (EXIT
             (QSETAREF1 |cache| |i|
                        (SPADCALL (QAREF1 |cache| (- |i| 1)) |prime|
                                  (QREFELT $ 305)))))
           (LETT |i| (QSADD1 |i|) . #7#) #9=(GO G190) G191 (EXIT NIL))
      (SEQ (LETT |pp| NIL . #7#) (LETT #6# |prodl| . #7#)
           (LETT |i| (+ |maxD| 1) . #7#) (LETT #5# (+ |maxD| |np|) . #7#) G190
           (COND
            ((OR (> |i| #5#) (ATOM #6#)
                 (PROGN (LETT |pp| (CAR #6#) . #7#) NIL))
             #8#))
           (SEQ
            (EXIT
             (QSETAREF1 |cache| |i|
                        (SPADCALL (QAREF1 |cache| (|SPADfirst| |pp|))
                                  (QAREF1 |cache|
                                          (SPADCALL |pp| (QREFELT $ 263)))
                                  (- |sigma| 1) |prime| (QREFELT $ 271)))))
           (LETT |i| (PROG1 (+ |i| 1) (LETT #6# (CDR #6#) . #7#)) . #7#) #9#
           G191 (EXIT NIL))
      (LETT |nt| (LENGTH |terml|) . #7#)
      (COND
       (|addOne|
        (SEQ (LETT |res| (MAKEARR1 (+ |nt| 1) (GETREFV32 0 0)) . #7#)
             (LETT |res1|
                   (GETREFV32
                    (PROG1 (LETT #4# |sigma| . #7#)
                      (|check-subtype| (>= #4# 0) '(|NonNegativeInteger|) #4#))
                    0)
                   . #7#)
             (SETELT32 |res1| 0 1) (SPADCALL |res| 1 |res1| (QREFELT $ 312))
             (EXIT
              (SEQ (LETT |r| NIL . #7#) (LETT #3# |terml| . #7#)
                   (LETT |i| 2 . #7#) (LETT #2# (+ |nt| 1) . #7#) G190
                   (COND
                    ((OR (QSGREATERP |i| #2#) (ATOM #3#)
                         (PROGN (LETT |r| (CAR #3#) . #7#) NIL))
                     #8#))
                   (SEQ
                    (EXIT
                     (SPADCALL |res| |i| (QAREF1 |cache| |r|)
                               (QREFELT $ 312))))
                   (LETT |i| (PROG1 (QSADD1 |i|) (LETT #3# (CDR #3#) . #7#))
                         . #7#)
                   #9# G191 (EXIT NIL)))))
       ('T
        (SEQ (LETT |res| (MAKEARR1 |nt| (GETREFV32 0 0)) . #7#)
             (EXIT
              (SEQ (LETT |r| NIL . #7#) (LETT #1# |terml| . #7#)
                   (LETT |i| 1 . #7#) G190
                   (COND
                    ((OR (QSGREATERP |i| |nt|) (ATOM #1#)
                         (PROGN (LETT |r| (CAR #1#) . #7#) NIL))
                     #8#))
                   (SEQ
                    (EXIT
                     (SPADCALL |res| |i| (QAREF1 |cache| |r|)
                               (QREFELT $ 312))))
                   (LETT |i| (PROG1 (QSADD1 |i|) (LETT #1# (CDR #1#) . #7#))
                         . #7#)
                   #9# G191 (EXIT NIL))))))
      (EXIT |res|))))) 

(DEFUN |GUESS;ADEtestGenCached| (|f| |addOne| |maxD| |prodl| |terml| DSF D1F $)
  (PROG (|i| #1=#:G3180 |r| |res| #2=#:G3178 #3=#:G3179 |nt| #4=#:G3176
         #5=#:G3177 |pp| |cache| |np|)
    (RETURN
     (SEQ (LETT |np| (LENGTH |prodl|) . #6=(|GUESS;ADEtestGenCached|))
          (LETT |cache| (MAKEARR1 (+ (+ |maxD| 1) |np|) (|spadConstant| $ 304))
                . #6#)
          (QSETAREF1 |cache| 0 |f|)
          (SEQ (LETT |i| 1 . #6#) G190
               (COND ((QSGREATERP |i| |maxD|) #7=(GO G191)))
               (SEQ
                (EXIT
                 (QSETAREF1 |cache| |i|
                            (SPADCALL (QAREF1 |cache| 0) |i| DSF))))
               (LETT |i| (QSADD1 |i|) . #6#) #8=(GO G190) G191 (EXIT NIL))
          (SEQ (LETT |pp| NIL . #6#) (LETT #5# |prodl| . #6#)
               (LETT |i| (+ |maxD| 1) . #6#) (LETT #4# (+ |maxD| |np|) . #6#)
               G190
               (COND
                ((OR (> |i| #4#) (ATOM #5#)
                     (PROGN (LETT |pp| (CAR #5#) . #6#) NIL))
                 #7#))
               (SEQ
                (EXIT
                 (QSETAREF1 |cache| |i|
                            (SPADCALL (QAREF1 |cache| (|SPADfirst| |pp|))
                                      (QAREF1 |cache|
                                              (SPADCALL |pp| (QREFELT $ 263)))
                                      (QREFELT $ 313)))))
               (LETT |i| (PROG1 (+ |i| 1) (LETT #5# (CDR #5#) . #6#)) . #6#)
               #8# G191 (EXIT NIL))
          (LETT |nt| (LENGTH |terml|) . #6#)
          (COND
           (|addOne|
            (SEQ
             (LETT |res| (MAKEARR1 (+ |nt| 1) (|spadConstant| $ 304)) . #6#)
             (SPADCALL |res| 1 D1F (QREFELT $ 317))
             (EXIT
              (SEQ (LETT |r| NIL . #6#) (LETT #3# |terml| . #6#)
                   (LETT |i| 2 . #6#) (LETT #2# (+ |nt| 1) . #6#) G190
                   (COND
                    ((OR (QSGREATERP |i| #2#) (ATOM #3#)
                         (PROGN (LETT |r| (CAR #3#) . #6#) NIL))
                     #7#))
                   (SEQ
                    (EXIT
                     (SPADCALL |res| |i| (QAREF1 |cache| |r|)
                               (QREFELT $ 317))))
                   (LETT |i| (PROG1 (QSADD1 |i|) (LETT #3# (CDR #3#) . #6#))
                         . #6#)
                   #8# G191 (EXIT NIL)))))
           ('T
            (SEQ (LETT |res| (MAKEARR1 |nt| (|spadConstant| $ 304)) . #6#)
                 (EXIT
                  (SEQ (LETT |r| NIL . #6#) (LETT #1# |terml| . #6#)
                       (LETT |i| 1 . #6#) G190
                       (COND
                        ((OR (QSGREATERP |i| |nt|) (ATOM #1#)
                             (PROGN (LETT |r| (CAR #1#) . #6#) NIL))
                         #7#))
                       (SEQ
                        (EXIT
                         (SPADCALL |res| |i| (QAREF1 |cache| |r|)
                                   (QREFELT $ 317))))
                       (LETT |i|
                             (PROG1 (QSADD1 |i|) (LETT #1# (CDR #1#) . #6#))
                             . #6#)
                       #8# G191 (EXIT NIL))))))
          (EXIT |res|))))) 

(DEFUN |GUESS;multiplyExponents| (|f| |n| $)
  (PROG (|i| |deg| |f0| |nn|)
    (RETURN
     (SEQ (LETT |nn| (QV32LEN |f|) . #1=(|GUESS;multiplyExponents|))
          (LETT |f0| (GETREFV32 |nn| 0) . #1#) (LETT |deg| (- |nn| 1) . #1#)
          (SEQ (LETT |i| 0 . #1#) G190
               (COND
                ((OR (QSGREATERP |i| |deg|)
                     (NULL (COND ((< |deg| (* |n| |i|)) 'NIL) ('T 'T))))
                 (GO G191)))
               (SEQ (EXIT (SETELT32 |f0| (* |n| |i|) (ELT32 |f| |i|))))
               (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
          (EXIT |f0|))))) 

(DEFUN |GUESS;FEguessModGenCached|
       (|f| |addOne| |maxD| |prodl| |terml| |prime| $)
  (PROG (|i| #1=#:G3197 |r| |res| #2=#:G3195 #3=#:G3196 |res1| |nt| #4=#:G3193
         #5=#:G3194 |pp| |cache| |np| |sigma|)
    (RETURN
     (SEQ (LETT |sigma| (QV32LEN |f|) . #6=(|GUESS;FEguessModGenCached|))
          (LETT |np| (LENGTH |prodl|) . #6#)
          (LETT |cache| (MAKEARR1 (+ (+ |maxD| 1) |np|) (GETREFV32 0 0)) . #6#)
          (QSETAREF1 |cache| 0 |f|)
          (SEQ (LETT |i| 1 . #6#) G190
               (COND ((QSGREATERP |i| |maxD|) #7=(GO G191)))
               (SEQ
                (EXIT
                 (QSETAREF1 |cache| |i|
                            (|GUESS;multiplyExponents| (QAREF1 |cache| 0)
                             (+ |i| 1) $))))
               (LETT |i| (QSADD1 |i|) . #6#) #8=(GO G190) G191 (EXIT NIL))
          (SEQ (LETT |pp| NIL . #6#) (LETT #5# |prodl| . #6#)
               (LETT |i| (+ |maxD| 1) . #6#) (LETT #4# (+ |maxD| |np|) . #6#)
               G190
               (COND
                ((OR (> |i| #4#) (ATOM #5#)
                     (PROGN (LETT |pp| (CAR #5#) . #6#) NIL))
                 #7#))
               (SEQ
                (EXIT
                 (QSETAREF1 |cache| |i|
                            (SPADCALL (QAREF1 |cache| (|SPADfirst| |pp|))
                                      (QAREF1 |cache|
                                              (SPADCALL |pp| (QREFELT $ 263)))
                                      (- |sigma| 1) |prime| (QREFELT $ 271)))))
               (LETT |i| (PROG1 (+ |i| 1) (LETT #5# (CDR #5#) . #6#)) . #6#)
               #8# G191 (EXIT NIL))
          (LETT |nt| (LENGTH |terml|) . #6#)
          (COND
           (|addOne|
            (SEQ (LETT |res| (MAKEARR1 (+ |nt| 1) (GETREFV32 0 0)) . #6#)
                 (LETT |res1| (GETREFV32 |sigma| 0) . #6#)
                 (SETELT32 |res1| 0 1)
                 (SPADCALL |res| 1 |res1| (QREFELT $ 312))
                 (EXIT
                  (SEQ (LETT |r| NIL . #6#) (LETT #3# |terml| . #6#)
                       (LETT |i| 2 . #6#) (LETT #2# (+ |nt| 1) . #6#) G190
                       (COND
                        ((OR (QSGREATERP |i| #2#) (ATOM #3#)
                             (PROGN (LETT |r| (CAR #3#) . #6#) NIL))
                         #7#))
                       (SEQ
                        (EXIT
                         (SPADCALL |res| |i| (QAREF1 |cache| |r|)
                                   (QREFELT $ 312))))
                       (LETT |i|
                             (PROG1 (QSADD1 |i|) (LETT #3# (CDR #3#) . #6#))
                             . #6#)
                       #8# G191 (EXIT NIL)))))
           ('T
            (SEQ (LETT |res| (MAKEARR1 |nt| (GETREFV32 0 0)) . #6#)
                 (EXIT
                  (SEQ (LETT |r| NIL . #6#) (LETT #1# |terml| . #6#)
                       (LETT |i| 1 . #6#) G190
                       (COND
                        ((OR (QSGREATERP |i| |nt|) (ATOM #1#)
                             (PROGN (LETT |r| (CAR #1#) . #6#) NIL))
                         #7#))
                       (SEQ
                        (EXIT
                         (SPADCALL |res| |i| (QAREF1 |cache| |r|)
                                   (QREFELT $ 312))))
                       (LETT |i|
                             (PROG1 (QSADD1 |i|) (LETT #1# (CDR #1#) . #6#))
                             . #6#)
                       #8# G191 (EXIT NIL))))))
          (EXIT |res|))))) 

(DEFUN |GUESS;optimiseFactor| (|partition| |partitions| $)
  (PROG (#1=#:G3208 |j| |r| #2=#:G3209 |p| |i| |n|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |n| (LENGTH |partitions|) . #3=(|GUESS;optimiseFactor|))
            (SEQ (LETT |i| 1 . #3#) (LETT |p| NIL . #3#)
                 (LETT #2# |partitions| . #3#) G190
                 (COND
                  ((OR (ATOM #2#) (PROGN (LETT |p| (CAR #2#) . #3#) NIL)
                       (QSGREATERP |i| |n|))
                   (GO G191)))
                 (SEQ
                  (LETT |r| (SPADCALL |partition| |p| (QREFELT $ 318)) . #3#)
                  (EXIT
                   (COND
                    ((QEQCAR |r| 0)
                     (SEQ
                      (LETT |j|
                            (SPADCALL (QCDR |r|) |partitions| (QREFELT $ 320))
                            . #3#)
                      (EXIT
                       (COND
                        ((< 0 |j|)
                         (PROGN
                          (LETT #1# (CONS 0 (LIST |i| |j|)) . #3#)
                          (GO #1#))))))))))
                 (LETT #2# (PROG1 (CDR #2#) (LETT |i| (QSADD1 |i|) . #3#))
                       . #3#)
                 (GO G190) G191 (EXIT NIL))
            (EXIT (CONS 1 "failed"))))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;optimiseProducts1| (|p| |prods0| |parts0| $)
  (PROG (|lp0| |r|)
    (RETURN
     (SEQ
      (SEQ
       (LETT |r|
             (|GUESS;optimiseFactor| |p| (SPADCALL |parts0| (QREFELT $ 322)) $)
             . #1=(|GUESS;optimiseProducts1|))
       (EXIT
        (COND
         ((QEQCAR |r| 1)
          (SEQ
           (|GUESS;optimiseProducts1|
            (SPADCALL (CDR (SPADCALL |p| (QREFELT $ 323))) (QREFELT $ 324))
            |prods0| |parts0| $)
           (EXIT
            (LETT |r|
                  (|GUESS;optimiseFactor| |p|
                   (SPADCALL |parts0| (QREFELT $ 322)) $)
                  . #1#)))))))
      (EXIT
       (COND
        ((QEQCAR |r| 1)
         (|error| "Internal error: failed adding intermediate partition"))
        ('T
         (SEQ (LETT |lp0| (LENGTH (SPADCALL |parts0| (QREFELT $ 322))) . #1#)
              (SPADCALL |prods0|
                        (CONS
                         (LIST (- |lp0| (|SPADfirst| (QCDR |r|)))
                               (- |lp0| (SPADCALL (QCDR |r|) (QREFELT $ 263))))
                         (SPADCALL |prods0| (QREFELT $ 326)))
                        (QREFELT $ 327))
              (EXIT
               (SPADCALL |parts0|
                         (CONS |p| (SPADCALL |parts0| (QREFELT $ 322)))
                         (QREFELT $ 328))))))))))) 

(DEFUN |GUESS;optimiseProducts| (|partitions| $)
  (PROG (#1=#:G3222 |terms0| #2=#:G3226 |p| |parts0| |i| #3=#:G3225 |prods0|
         |maxD0| #4=#:G3224 |addOne0|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |addOne0| (NULL (|SPADfirst| |partitions|))
              . #5=(|GUESS;optimiseProducts|))
        (COND
         (|addOne0|
          (SEQ (LETT |partitions| (CDR |partitions|) . #5#)
               (EXIT
                (COND
                 ((NULL |partitions|)
                  (PROGN
                   (LETT #4# (VECTOR |addOne0| 0 NIL NIL) . #5#)
                   (GO #4#))))))))
        (LETT |maxD0|
              (SPADCALL (ELT $ 329)
                        (SPADCALL (ELT $ 330) |partitions| (QREFELT $ 333))
                        (QREFELT $ 334))
              . #5#)
        (LETT |prods0| (SPADCALL NIL (QREFELT $ 335)) . #5#)
        (LETT |terms0| NIL . #5#)
        (LETT |parts0|
              (SPADCALL
               (PROGN
                (LETT #3# NIL . #5#)
                (SEQ (LETT |i| |maxD0| . #5#) G190
                     (COND ((< |i| 1) #6=(GO G191)))
                     (SEQ
                      (EXIT
                       (LETT #3#
                             (CONS (SPADCALL (LIST |i|) (QREFELT $ 324)) #3#)
                             . #5#)))
                     (LETT |i| (+ |i| -1) . #5#) #7=(GO G190) G191
                     (EXIT (NREVERSE0 #3#))))
               (QREFELT $ 336))
              . #5#)
        (SEQ (LETT |p| NIL . #5#) (LETT #2# |partitions| . #5#) G190
             (COND
              ((OR (ATOM #2#) (PROGN (LETT |p| (CAR #2#) . #5#) NIL)) #6#))
             (SEQ
              (EXIT
               (COND
                ((EQL (LENGTH |p|) 1)
                 (LETT |terms0| (CONS (- (|SPADfirst| |p|) 1) |terms0|) . #5#))
                ('T
                 (SEQ
                  (|GUESS;optimiseProducts1| (SPADCALL |p| (QREFELT $ 324))
                   |prods0| |parts0| $)
                  (EXIT
                   (LETT |terms0|
                         (CONS
                          (- (LENGTH (SPADCALL |parts0| (QREFELT $ 322))) 1)
                          |terms0|)
                         . #5#)))))))
             (LETT #2# (CDR #2#) . #5#) #7# G191 (EXIT NIL))
        (EXIT
         (VECTOR |addOne0|
                 (PROG1 (LETT #1# (- |maxD0| 1) . #5#)
                   (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
                 (NREVERSE (SPADCALL |prods0| (QREFELT $ 326)))
                 (NREVERSE |terms0|)))))
      #4# (EXIT #4#))))) 

(DEFUN |GUESS;ADEguessModOptimisedGen| (|partitions| $)
  (PROG (|r|)
    (RETURN
     (SEQ
      (LETT |r| (|GUESS;optimiseProducts| |partitions| $)
            |GUESS;ADEguessModOptimisedGen|)
      (EXIT (CONS #'|GUESS;ADEguessModOptimisedGen!0| (VECTOR $ |r|))))))) 

(DEFUN |GUESS;ADEguessModOptimisedGen!0| (|f| |prime| |q| $$)
  (PROG (|r| $)
    (LETT |r| (QREFELT $$ 1) . #1=(|GUESS;ADEguessModOptimisedGen|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModGenCached| |f| (QVELT |r| 0) (QVELT |r| 1)
       (QVELT |r| 2) (QVELT |r| 3) |prime| $))))) 

(DEFUN |GUESS;FEguessModOptimisedGen| (|partitions| $)
  (PROG (|r|)
    (RETURN
     (SEQ
      (LETT |r| (|GUESS;optimiseProducts| |partitions| $)
            |GUESS;FEguessModOptimisedGen|)
      (EXIT (CONS #'|GUESS;FEguessModOptimisedGen!0| (VECTOR $ |r|))))))) 

(DEFUN |GUESS;FEguessModOptimisedGen!0| (|f| |prime| |q| $$)
  (PROG (|r| $)
    (LETT |r| (QREFELT $$ 1) . #1=(|GUESS;FEguessModOptimisedGen|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;FEguessModGenCached| |f| (QVELT |r| 0) (QVELT |r| 1)
       (QVELT |r| 2) (QVELT |r| 3) |prime| $))))) 

(DEFUN |GUESS;ADEguessModGen2| (|partitions| |d| $)
  (PROG ()
    (RETURN
     (SEQ (CONS #'|GUESS;ADEguessModGen2!0| (VECTOR $ |d| |partitions|)))))) 

(DEFUN |GUESS;ADEguessModGen2!0| (|f| |prime| |q| $$)
  (PROG (|partitions| |d| $)
    (LETT |partitions| (QREFELT $$ 2) . #1=(|GUESS;ADEguessModGen2|))
    (LETT |d| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3233 |p| #3=#:G3232)
        (RETURN
         (SEQ
          (SPADCALL
           (PROGN
            (LETT #3# NIL NIL)
            (SEQ (LETT |p| NIL NIL) (LETT #2# |partitions| NIL) G190
                 (COND
                  ((OR (ATOM #2#) (PROGN (LETT |p| (CAR #2#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #3#
                         (CONS
                          (|GUESS;termAsU32VectorShift| |f| |p| |prime| |d| $)
                          #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (QREFELT $ 337))))))))) 

(DEFUN |GUESS;ADEtestOptimisedGen| (|partitions| DSF D1F $)
  (PROG (|r|)
    (RETURN
     (SEQ
      (LETT |r| (|GUESS;optimiseProducts| |partitions| $)
            |GUESS;ADEtestOptimisedGen|)
      (EXIT (CONS #'|GUESS;ADEtestOptimisedGen!0| (VECTOR $ D1F DSF |r|))))))) 

(DEFUN |GUESS;ADEtestOptimisedGen!0| (|f| $$)
  (PROG (|r| DSF D1F $)
    (LETT |r| (QREFELT $$ 3) . #1=(|GUESS;ADEtestOptimisedGen|))
    (LETT DSF (QREFELT $$ 2) . #1#)
    (LETT D1F (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEtestGenCached| |f| (QVELT |r| 0) (QVELT |r| 1) (QVELT |r| 2)
       (QVELT |r| 3) DSF D1F $))))) 

(DEFUN |GUESS;ADEtestGen2| (|partitions| DSF D1F $)
  (PROG ()
    (RETURN
     (SEQ (CONS #'|GUESS;ADEtestGen2!0| (VECTOR $ D1F DSF |partitions|)))))) 

(DEFUN |GUESS;ADEtestGen2!0| (|f| $$)
  (PROG (|partitions| DSF D1F $)
    (LETT |partitions| (QREFELT $$ 3) . #1=(|GUESS;ADEtestGen2|))
    (LETT DSF (QREFELT $$ 2) . #1#)
    (LETT D1F (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3239 |p| #3=#:G3238)
        (RETURN
         (SEQ
          (SPADCALL
           (PROGN
            (LETT #3# NIL NIL)
            (SEQ (LETT |p| NIL NIL) (LETT #2# |partitions| NIL) G190
                 (COND
                  ((OR (ATOM #2#) (PROGN (LETT |p| (CAR #2#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #3#
                         (CONS (|GUESS;termAsUFPSSUPF2| |f| |p| DSF D1F $) #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (QREFELT $ 338))))))))) 

(DEFUN |GUESS;ADEEXPRRStream| (|f| |xx| |partitions| DX D1X $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GUESS;ADEEXPRRStream!0| (VECTOR $ D1X DX |xx| |f|))
               |partitions| (QREFELT $ 342))))) 

(DEFUN |GUESS;ADEEXPRRStream!0| (|z1| $$)
  (PROG (|f| |xx| DX D1X $)
    (LETT |f| (QREFELT $$ 4) . #1=(|GUESS;ADEEXPRRStream|))
    (LETT |xx| (QREFELT $$ 3) . #1#)
    (LETT DX (QREFELT $$ 2) . #1#)
    (LETT D1X (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;termAsEXPRR| |f| |xx| |z1| DX D1X $))))) 

(DEFUN |GUESS;ADEdegreeStream| (|partitions| $)
  (PROG ()
    (RETURN
     (SPADCALL 0 (CONS #'|GUESS;ADEdegreeStream!0| $) |partitions|
               (QREFELT $ 350))))) 

(DEFUN |GUESS;ADEdegreeStream!0| (|z1| |z2| $)
  (PROG (#1=#:G3243)
    (RETURN
     (SPADCALL
      (COND ((SPADCALL |z1| (QREFELT $ 343)) (|spadConstant| $ 344))
            ('T
             (PROG1
                 (LETT #1#
                       (SPADCALL (SPADCALL |z1| (QREFELT $ 330))
                                 (|spadConstant| $ 345) (QREFELT $ 206))
                       NIL)
               (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))))
      |z2| (QREFELT $ 346))))) 

(DEFUN |GUESS;diffDX| (|expr| |x| |n| $)
  (SPADCALL |expr| |x| |n| (QREFELT $ 351))) 

(DEFUN |GUESS;diffDS| (|s| |n| $) (SPADCALL |s| |n| (QREFELT $ 352))) 

(DEFUN |GUESS;diffDSF| (|s| |n| $)
  (COND
   ((|HasSignature| (|SparseUnivariatePolynomial| (QREFELT $ 6))
                    (LIST '*
                          (LIST
                           (LIST '|SparseUnivariatePolynomial|
                                 (|devaluate| (QREFELT $ 6)))
                           '(|NonNegativeInteger|)
                           (LIST '|SparseUnivariatePolynomial|
                                 (|devaluate| (QREFELT $ 6))))))
    (SPADCALL |s| |n| (QREFELT $ 353))))) 

(DEFUN |GUESS;diffAX| (|l| |x| |f| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 23)) |l| (QREFELT $ 111)) |f|
            (QREFELT $ 87))) 

(DEFUN |GUESS;diffA| (|k| |l| |f| $) (SPADCALL |k| |l| |f| (QREFELT $ 355))) 

(DEFUN |GUESS;diffAF| (|k| |l| |f| $) (SPADCALL |k| |l| |f| (QREFELT $ 357))) 

(DEFUN |GUESS;diffC| (|total| $) (SPADCALL |total| (QREFELT $ 358))) 

(DEFUN |GUESS;diff1X| (|x| $) (|spadConstant| $ 76)) 

(DEFUN |GUESS;diffHP;LR;70| (|options| $)
  (PROG (|degrees| |partitions|)
    (RETURN
     (SEQ
      (COND
       ((NULL (ZEROP (SPADCALL |options| (QREFELT $ 359))))
        (|error|
         "Guess: no support for mixed shifts in differential equations")))
      (EXIT
       (COND
        ((SPADCALL |options| (QREFELT $ 360))
         (SEQ
          (LETT |partitions| (|GUESS;FilteredPartitionStream| |options| $)
                . #1=(|GUESS;diffHP;LR;70|))
          (LETT |degrees| (|GUESS;ADEdegreeStream| |partitions| $) . #1#)
          (EXIT
           (VECTOR |degrees|
                   (CONS #'|GUESS;diffHP;LR;70!0| (VECTOR $ |partitions|))
                   (CONS #'|GUESS;diffHP;LR;70!1| (VECTOR $ |partitions|))
                   (CONS #'|GUESS;diffHP;LR;70!2| (VECTOR $ |partitions|))
                   (CONS #'|GUESS;diffHP;LR;70!3| (VECTOR $ |partitions|))
                   '|diffHP| '|dummy| (CONS (|function| |GUESS;diffA|) $)
                   (CONS (|function| |GUESS;diffAF|) $)
                   (CONS (|function| |GUESS;diffAX|) $)
                   (CONS (|function| |GUESS;diffC|) $)))))
        ('T (|error| "Guess: guessADE supports only displayAsGF")))))))) 

(DEFUN |GUESS;diffHP;LR;70!3| (|z1| |z2| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;diffHP;LR;70|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
       (CONS (|function| |GUESS;diffDX|) $)
       (CONS (|function| |GUESS;diff1X|) $) $))))) 

(DEFUN |GUESS;diffHP;LR;70!2| (|l| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;diffHP;LR;70|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3259 |i| #3=#:G3258)
        (RETURN
         (SEQ
          (|GUESS;ADEtestOptimisedGen|
           (PROGN
            (LETT #3# NIL NIL)
            (SEQ (LETT |i| NIL NIL) (LETT #2# |l| NIL) G190
                 (COND
                  ((OR (ATOM #2#) (PROGN (LETT |i| (CAR #2#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #3#
                         (CONS (SPADCALL |partitions| |i| (QREFELT $ 364)) #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (CONS (|function| |GUESS;diffDSF|) $) (|spadConstant| $ 310)
           $)))))))) 

(DEFUN |GUESS;diffHP;LR;70!1| (|o| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;diffHP;LR;70|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModOptimisedGen|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 361)) (QREFELT $ 362))
        (QREFELT $ 363))
       $))))) 

(DEFUN |GUESS;diffHP;LR;70!0| (|z1| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;diffHP;LR;70|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessStream| |z1| |partitions|
       (CONS (|function| |GUESS;diffDS|) $) (|spadConstant| $ 309) $))))) 

(DEFUN |GUESS;substDX| (|expr| |x| |n| $)
  (SPADCALL |expr| (SPADCALL |x| (QREFELT $ 23))
            (SPADCALL (SPADCALL |x| (QREFELT $ 23)) (+ |n| 1) (QREFELT $ 111))
            (QREFELT $ 25))) 

(DEFUN |GUESS;substDS| (|s| |n| $)
  (PROG (#1=#:G3275)
    (RETURN
     (SPADCALL |s|
               (PROG1 (LETT #1# (+ |n| 1) |GUESS;substDS|)
                 (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))
               (QREFELT $ 377))))) 

(DEFUN |GUESS;substDSF| (|s| |n| $)
  (PROG (#1=#:G3277)
    (RETURN
     (SPADCALL |s|
               (PROG1 (LETT #1# (+ |n| 1) |GUESS;substDSF|)
                 (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))
               (QREFELT $ 378))))) 

(DEFUN |GUESS;substHP;LR;74| (|options| $)
  (PROG (|partitions|)
    (RETURN
     (SEQ
      (COND
       ((NULL (ZEROP (SPADCALL |options| (QREFELT $ 359))))
        (|error|
         "Guess: no support for mixed shifts in functional equations")))
      (EXIT
       (COND
        ((SPADCALL |options| (QREFELT $ 360))
         (SEQ
          (LETT |partitions| (|GUESS;FilteredPartitionStream| |options| $)
                |GUESS;substHP;LR;74|)
          (EXIT
           (VECTOR
            (SPADCALL (CONS #'|GUESS;substHP;LR;74!0| $) |partitions|
                      (QREFELT $ 380))
            (CONS #'|GUESS;substHP;LR;74!1| (VECTOR $ |partitions|))
            (CONS #'|GUESS;substHP;LR;74!2| (VECTOR $ |partitions|))
            (CONS #'|GUESS;substHP;LR;74!3| (VECTOR $ |partitions|))
            (CONS #'|GUESS;substHP;LR;74!4| (VECTOR $ |partitions|)) '|diffHP|
            '|dummy| (CONS (|function| |GUESS;diffA|) $)
            (CONS (|function| |GUESS;diffAF|) $)
            (CONS (|function| |GUESS;diffAX|) $)
            (CONS (|function| |GUESS;diffC|) $)))))
        ('T (|error| "Guess: guessSubst supports only displayAsGF")))))))) 

(DEFUN |GUESS;substHP;LR;74!4| (|z1| |z2| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;substHP;LR;74|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
       (CONS (|function| |GUESS;substDX|) $)
       (CONS (|function| |GUESS;diff1X|) $) $))))) 

(DEFUN |GUESS;substHP;LR;74!3| (|l| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;substHP;LR;74|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3284 |i| #3=#:G3283)
        (RETURN
         (SEQ
          (|GUESS;ADEtestOptimisedGen|
           (PROGN
            (LETT #3# NIL NIL)
            (SEQ (LETT |i| NIL NIL) (LETT #2# |l| NIL) G190
                 (COND
                  ((OR (ATOM #2#) (PROGN (LETT |i| (CAR #2#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #3#
                         (CONS (SPADCALL |partitions| |i| (QREFELT $ 364)) #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (CONS (|function| |GUESS;substDSF|) $) (|spadConstant| $ 310)
           $)))))))) 

(DEFUN |GUESS;substHP;LR;74!2| (|o| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;substHP;LR;74|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;FEguessModOptimisedGen|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 361)) (QREFELT $ 362))
        (QREFELT $ 363))
       $))))) 

(DEFUN |GUESS;substHP;LR;74!1| (|z1| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;substHP;LR;74|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessStream| |z1| |partitions|
       (CONS (|function| |GUESS;substDS|) $) (|spadConstant| $ 309) $))))) 

(DEFUN |GUESS;substHP;LR;74!0| (|c| $) (|spadConstant| $ 344)) 

(DEFUN |GUESS;qDiffDX| (|q| |expr| |x| |n| $)
  (SPADCALL |expr| (SPADCALL |x| (QREFELT $ 23))
            (SPADCALL
             (SPADCALL (SPADCALL |q| (QREFELT $ 23)) |n| (QREFELT $ 111))
             (SPADCALL |x| (QREFELT $ 23)) (QREFELT $ 87))
            (QREFELT $ 25))) 

(DEFUN |GUESS;qDiffDS| (|q| |s| |n| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GUESS;qDiffDS!0| (VECTOR |n| $ |q|)) |s|
               (QREFELT $ 384))))) 

(DEFUN |GUESS;qDiffDS!0| (|z1| $$)
  (PROG (|q| $ |n|)
    (LETT |q| (QREFELT $$ 2) . #1=(|GUESS;qDiffDS|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |n| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3290)
        (RETURN
         (SPADCALL (SPADCALL |q| (QREFELT $ 229))
                   (PROG1 (LETT #2# (SPADCALL |n| |z1| (QREFELT $ 382)) NIL)
                     (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                   (QREFELT $ 282)))))))) 

(DEFUN |GUESS;qDiffDSV| (|f| |n| |prime| |q| $)
  (PROG (Q |i| |qn| |r| #1=#:G3293 |d|)
    (RETURN
     (SEQ
      (COND ((ZEROP |n|) |f|)
            ('T
             (SEQ
              (LETT |d| (SPADCALL |f| (QREFELT $ 385)) . #2=(|GUESS;qDiffDSV|))
              (LETT |r|
                    (GETREFV32
                     (+
                      (PROG1 (LETT #1# |d| . #2#)
                        (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|)
                                         #1#))
                      1)
                     0)
                    . #2#)
              (SETELT32 |r| 0 (ELT32 |f| 0))
              (COND
               ((< 0 |d|)
                (SEQ (LETT Q 1 . #2#)
                     (LETT |qn| (REMAINDER2 (EXPT |q| |n|) |prime|) . #2#)
                     (EXIT
                      (SEQ (LETT |i| 1 . #2#) G190
                           (COND ((QSGREATERP |i| |d|) (GO G191)))
                           (SEQ (LETT Q (QSMULMOD32 |qn| Q |prime|) . #2#)
                                (EXIT
                                 (SETELT32 |r| |i|
                                           (QSMULMOD32 (ELT32 |f| |i|) Q
                                                       |prime|))))
                           (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
                           (EXIT NIL))))))
              (EXIT |r|)))))))) 

(DEFUN |GUESS;qDiffDSF| (|q| |s| |n| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GUESS;qDiffDSF!0| (VECTOR |n| $ |q|)) |s|
               (QREFELT $ 388))))) 

(DEFUN |GUESS;qDiffDSF!0| (|z1| $$)
  (PROG (|q| $ |n|)
    (LETT |q| (QREFELT $$ 2) . #1=(|GUESS;qDiffDSF|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |n| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3300)
        (RETURN
         (SPADCALL (SPADCALL (SPADCALL |q| (QREFELT $ 229)) (QREFELT $ 386))
                   (PROG1 (LETT #2# (SPADCALL |n| |z1| (QREFELT $ 382)) NIL)
                     (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                   (QREFELT $ 287)))))))) 

(DEFUN |GUESS;termAsU32VectorqDiff| (|f| |partition| |prime| |q| |dl| $)
  (PROG (|fl| #1=#:G3306 #2=#:G3305 #3=#:G3314 |part| #4=#:G3313 |ll| |d|
         #5=#:G3304 #6=#:G3312 |i| #7=#:G3311)
    (RETURN
     (SEQ
      (COND
       ((NULL |partition|)
        (SPADCALL
         (CONS 1
               (PROGN
                (LETT #7# NIL . #8=(|GUESS;termAsU32VectorqDiff|))
                (SEQ (LETT |i| (+ |dl| 2) . #8#) (LETT #6# (QV32LEN |f|) . #8#)
                     G190 (COND ((> |i| #6#) #9=(GO G191)))
                     (SEQ (EXIT (LETT #7# (CONS 0 #7#) . #8#)))
                     (LETT |i| (+ |i| 1) . #8#) #10=(GO G190) G191
                     (EXIT (NREVERSE0 #7#)))))
         (QREFELT $ 267)))
       ('T
        (SEQ
         (LETT |d|
               (PROG1 (LETT #5# (- (- (QV32LEN |f|) |dl|) 1) . #8#)
                 (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|) #5#))
               . #8#)
         (LETT |ll| (SPADCALL |partition| (QREFELT $ 262)) . #8#)
         (LETT |fl|
               (PROGN
                (LETT #4# NIL . #8#)
                (SEQ (LETT |part| NIL . #8#) (LETT #3# |ll| . #8#) G190
                     (COND
                      ((OR (ATOM #3#)
                           (PROGN (LETT |part| (CAR #3#) . #8#) NIL))
                       #9#))
                     (SEQ
                      (EXIT
                       (LETT #4#
                             (CONS
                              (SPADCALL
                               (|GUESS;qDiffDSV| |f|
                                (PROG1
                                    (LETT #2# (- (|SPADfirst| |part|) 1) . #8#)
                                  (|check-subtype| (>= #2# 0)
                                                   '(|NonNegativeInteger|)
                                                   #2#))
                                |prime| |q| $)
                               (PROG1
                                   (LETT #1# (SPADCALL |part| (QREFELT $ 263))
                                         . #8#)
                                 (|check-subtype| (> #1# 0)
                                                  '(|PositiveInteger|) #1#))
                               |d| |prime| (QREFELT $ 270))
                              #4#)
                             . #8#)))
                     (LETT #3# (CDR #3#) . #8#) #10# G191
                     (EXIT (NREVERSE0 #4#))))
               . #8#)
         (EXIT
          (SPADCALL
           (CONS #'|GUESS;termAsU32VectorqDiff!0| (VECTOR $ |prime| |d|)) |fl|
           (QREFELT $ 274)))))))))) 

(DEFUN |GUESS;termAsU32VectorqDiff!0| (|f1| |f2| $$)
  (PROG (|d| |prime| $)
    (LETT |d| (QREFELT $$ 2) . #1=(|GUESS;termAsU32VectorqDiff|))
    (LETT |prime| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |f1| |f2| |d| |prime| (QREFELT $ 271)))))) 

(DEFUN |GUESS;ADEguessModGenq| (|partitions| |d| $)
  (PROG ()
    (RETURN
     (SEQ (CONS #'|GUESS;ADEguessModGenq!0| (VECTOR $ |d| |partitions|)))))) 

(DEFUN |GUESS;ADEguessModGenq!0| (|f| |prime| |q| $$)
  (PROG (|partitions| |d| $)
    (LETT |partitions| (QREFELT $$ 2) . #1=(|GUESS;ADEguessModGenq|))
    (LETT |d| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3317 |p| #3=#:G3316)
        (RETURN
         (SEQ
          (SPADCALL
           (PROGN
            (LETT #3# NIL NIL)
            (SEQ (LETT |p| NIL NIL) (LETT #2# |partitions| NIL) G190
                 (COND
                  ((OR (ATOM #2#) (PROGN (LETT |p| (CAR #2#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #3#
                         (CONS
                          (|GUESS;termAsU32VectorqDiff| |f| |p| |prime| |q| |d|
                           $)
                          #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (QREFELT $ 337))))))))) 

(DEFUN |GUESS;diffHP;SM;81| (|q| $)
  (PROG () (RETURN (SEQ (CONS #'|GUESS;diffHP;SM;81!8| (VECTOR |q| $)))))) 

(DEFUN |GUESS;diffHP;SM;81!8| (|l1| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;diffHP;SM;81|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|partitions|)
        (RETURN
         (SEQ
          (COND
           ((NULL (SPADCALL (SPADCALL |l1| (QREFELT $ 359)) (QREFELT $ 389)))
            (|error|
             "Guess: no support for mixed shifts in differential equations")))
          (EXIT
           (COND
            ((SPADCALL |l1| (QREFELT $ 360))
             (SEQ
              (LETT |partitions| (|GUESS;FilteredPartitionStream| |l1| $) NIL)
              (EXIT
               (VECTOR
                (SPADCALL (CONS #'|GUESS;diffHP;SM;81!0| $) |partitions|
                          (QREFELT $ 380))
                (CONS #'|GUESS;diffHP;SM;81!2| (VECTOR |q| $ |partitions|))
                (CONS #'|GUESS;diffHP;SM;81!3| (VECTOR $ |partitions|))
                (CONS #'|GUESS;diffHP;SM;81!5| (VECTOR |q| $ |partitions|))
                (CONS #'|GUESS;diffHP;SM;81!7| (VECTOR |q| $ |partitions|))
                '|qdiffHP| |q| (CONS (|function| |GUESS;diffA|) $)
                (CONS (|function| |GUESS;diffAF|) $)
                (CONS (|function| |GUESS;diffAX|) $)
                (CONS (|function| |GUESS;diffC|) $)))))
            ('T (|error| "Guess: guessADE supports only displayAsGF"))))))))))) 

(DEFUN |GUESS;diffHP;SM;81!7| (|z1| |z2| $$)
  (PROG (|partitions| $ |q|)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT $ (QREFELT $$ 1) NIL)
    (LETT |q| (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (PROG ()
        (RETURN
         (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
          (CONS #'|GUESS;diffHP;SM;81!6| (VECTOR $ |q|))
          (CONS (|function| |GUESS;diff1X|) $) $))))))) 

(DEFUN |GUESS;diffHP;SM;81!6| (|w1| |w2| |w3| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN (PROGN (|GUESS;qDiffDX| |q| |w1| |w2| |w3| $))))) 

(DEFUN |GUESS;diffHP;SM;81!5| (|l| $$)
  (PROG (|partitions| $ |q|)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT $ (QREFELT $$ 1) NIL)
    (LETT |q| (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (PROG (#1=#:G3323 |i| #2=#:G3322)
        (RETURN
         (SEQ
          (|GUESS;ADEtestOptimisedGen|
           (PROGN
            (LETT #2# NIL NIL)
            (SEQ (LETT |i| NIL NIL) (LETT #1# |l| NIL) G190
                 (COND
                  ((OR (ATOM #1#) (PROGN (LETT |i| (CAR #1#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #2#
                         (CONS (SPADCALL |partitions| |i| (QREFELT $ 364)) #2#)
                         NIL)))
                 (LETT #1# (CDR #1#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #2#))))
           (CONS #'|GUESS;diffHP;SM;81!4| (VECTOR $ |q|))
           (|spadConstant| $ 310) $)))))))) 

(DEFUN |GUESS;diffHP;SM;81!4| (|w1| |w2| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN (PROGN (|GUESS;qDiffDSF| |q| |w1| |w2| $))))) 

(DEFUN |GUESS;diffHP;SM;81!3| (|o| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModGenq|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 361)) (QREFELT $ 362))
        (QREFELT $ 363))
       (|spadConstant| $ 344) $))))) 

(DEFUN |GUESS;diffHP;SM;81!2| (|z1| $$)
  (PROG (|partitions| $ |q|)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT $ (QREFELT $$ 1) NIL)
    (LETT |q| (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (PROG ()
        (RETURN
         (|GUESS;ADEguessStream| |z1| |partitions|
          (CONS #'|GUESS;diffHP;SM;81!1| (VECTOR $ |q|)) (|spadConstant| $ 309)
          $))))))) 

(DEFUN |GUESS;diffHP;SM;81!1| (|w1| |w2| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN (PROGN (|GUESS;qDiffDS| |q| |w1| |w2| $))))) 

(DEFUN |GUESS;diffHP;SM;81!0| (|c| $) (|spadConstant| $ 344)) 

(DEFUN |GUESS;ShiftSX| (|expr| |x| |n| $)
  (SPADCALL |expr| (SPADCALL |x| (QREFELT $ 23))
            (SPADCALL (SPADCALL |x| (QREFELT $ 23))
                      (SPADCALL |n| (QREFELT $ 24)) (QREFELT $ 92))
            (QREFELT $ 25))) 

(DEFUN |GUESS;ShiftSXGF| (|expr| |x| |n| $)
  (PROG (|l| #1=#:G3334 |i| #2=#:G3333)
    (RETURN
     (SEQ
      (COND ((ZEROP |n|) |expr|)
            ('T
             (SEQ
              (LETT |l|
                    (PROGN
                     (LETT #2# NIL . #3=(|GUESS;ShiftSXGF|))
                     (SEQ (LETT |i| 0 . #3#) (LETT #1# (- |n| 1) . #3#) G190
                          (COND ((QSGREATERP |i| #1#) (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #2#
                                  (CONS
                                   (SPADCALL
                                    (SPADCALL
                                     (SPADCALL
                                      (SPADCALL |expr| |x| |i| (QREFELT $ 351))
                                      (SPADCALL (SPADCALL |i| (QREFELT $ 222))
                                                (QREFELT $ 24))
                                      (QREFELT $ 34))
                                     (SPADCALL |x| (QREFELT $ 23))
                                     (|spadConstant| $ 28) (QREFELT $ 25))
                                    (SPADCALL (SPADCALL |x| (QREFELT $ 23)) |i|
                                              (QREFELT $ 111))
                                    (QREFELT $ 87))
                                   #2#)
                                  . #3#)))
                          (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191
                          (EXIT (NREVERSE0 #2#))))
                    . #3#)
              (EXIT
               (SPADCALL
                (SPADCALL |expr| (SPADCALL (ELT $ 92) |l| (QREFELT $ 265))
                          (QREFELT $ 77))
                (SPADCALL (SPADCALL |x| (QREFELT $ 23)) |n| (QREFELT $ 111))
                (QREFELT $ 34)))))))))) 

(DEFUN |GUESS;ShiftSS| (|s| |n| $)
  (SPADCALL |s| (SPADCALL (ELT $ 392) |n| (QREFELT $ 395)))) 

(DEFUN |GUESS;ShiftSF| (|s| |n| $)
  (SPADCALL |s| (SPADCALL (ELT $ 396) |n| (QREFELT $ 399)))) 

(DEFUN |GUESS;ShiftAX| (|l| |n| |f| $)
  (SPADCALL (SPADCALL (SPADCALL |n| (QREFELT $ 23)) |l| (QREFELT $ 111)) |f|
            (QREFELT $ 87))) 

(DEFUN |GUESS;ShiftAXGF| (|l| |x| |f| $)
  (PROG (|s| |i| #1=#:G3344)
    (RETURN
     (SEQ
      (COND ((ZEROP |l|) |f|)
            ('T
             (SEQ
              (LETT |s|
                    (PROGN
                     (LETT #1# NIL . #2=(|GUESS;ShiftAXGF|))
                     (SEQ (LETT |i| 1 . #2#) G190
                          (COND ((QSGREATERP |i| |l|) (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #1#
                                  (CONS
                                   (SPADCALL
                                    (SPADCALL
                                     (SPADCALL
                                      (SPADCALL |l| |i| (QREFELT $ 401))
                                      (QREFELT $ 24))
                                     (SPADCALL (SPADCALL |x| (QREFELT $ 23))
                                               |i| (QREFELT $ 111))
                                     (QREFELT $ 87))
                                    (SPADCALL |f| |x| |i| (QREFELT $ 351))
                                    (QREFELT $ 87))
                                   #1#)
                                  . #2#)))
                          (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
                          (EXIT (NREVERSE0 #1#))))
                    . #2#)
              (EXIT (SPADCALL (ELT $ 92) |s| (QREFELT $ 265)))))))))) 

(DEFUN |GUESS;ShiftA| (|k| |l| |f| $) (SPADCALL |k| |l| |f| (QREFELT $ 402))) 

(DEFUN |GUESS;ShiftAF| (|k| |l| |f| $) (SPADCALL |k| |l| |f| (QREFELT $ 403))) 

(DEFUN |GUESS;ShiftC| (|total| $) (SPADCALL |total| (QREFELT $ 404))) 

(DEFUN |GUESS;shiftHP;LR;91| (|options| $)
  (PROG (|degrees| |partitions|)
    (RETURN
     (SEQ
      (COND
       ((NULL (ZEROP (SPADCALL |options| (QREFELT $ 359))))
        (|error| "Guess: need a symbol for mixed Shifting")))
      (LETT |partitions| (|GUESS;FilteredPartitionStream| |options| $)
            . #1=(|GUESS;shiftHP;LR;91|))
      (EXIT
       (COND
        ((SPADCALL |options| (QREFELT $ 360))
         (|error| "Guess: no support for the Shift operator with displayAsGF"))
        ('T
         (SEQ (LETT |degrees| (|GUESS;ADEdegreeStream| |partitions| $) . #1#)
              (EXIT
               (VECTOR |degrees|
                       (CONS #'|GUESS;shiftHP;LR;91!0| (VECTOR $ |partitions|))
                       (CONS #'|GUESS;shiftHP;LR;91!1|
                             (VECTOR |degrees| $ |partitions|))
                       (CONS #'|GUESS;shiftHP;LR;91!2| (VECTOR $ |partitions|))
                       (CONS #'|GUESS;shiftHP;LR;91!3| (VECTOR $ |partitions|))
                       '|shiftHP| '|dummy| (CONS (|function| |GUESS;ShiftA|) $)
                       (CONS (|function| |GUESS;ShiftAF|) $)
                       (CONS (|function| |GUESS;ShiftAX|) $)
                       (CONS (|function| |GUESS;ShiftC|) $))))))))))) 

(DEFUN |GUESS;shiftHP;LR;91!3| (|z1| |z2| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;shiftHP;LR;91|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
       (CONS (|function| |GUESS;ShiftSX|) $)
       (CONS (|function| |GUESS;diff1X|) $) $))))) 

(DEFUN |GUESS;shiftHP;LR;91!2| (|l| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;shiftHP;LR;91|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3352 |i| #3=#:G3351)
        (RETURN
         (SEQ
          (|GUESS;ADEtestGen2|
           (PROGN
            (LETT #3# NIL NIL)
            (SEQ (LETT |i| NIL NIL) (LETT #2# |l| NIL) G190
                 (COND
                  ((OR (ATOM #2#) (PROGN (LETT |i| (CAR #2#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #3#
                         (CONS (SPADCALL |partitions| |i| (QREFELT $ 364)) #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (CONS (|function| |GUESS;ShiftSF|) $)
           (SPADCALL
            (SPADCALL (|spadConstant| $ 310)
                      (SPADCALL (|spadConstant| $ 306) (|spadConstant| $ 90)
                                (QREFELT $ 410))
                      (QREFELT $ 411))
            (SPADCALL (|spadConstant| $ 315) (QREFELT $ 407)) (QREFELT $ 412))
           $)))))))) 

(DEFUN |GUESS;shiftHP;LR;91!1| (|o| $$)
  (PROG (|partitions| $ |degrees|)
    (LETT |partitions| (QREFELT $$ 2) . #1=(|GUESS;shiftHP;LR;91|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |degrees| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModGen2|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 361)) (QREFELT $ 362))
        (QREFELT $ 363))
       (SPADCALL |degrees| |o| (QREFELT $ 409)) $))))) 

(DEFUN |GUESS;shiftHP;LR;91!0| (|z1| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;shiftHP;LR;91|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessStream2| |z1| |partitions|
       (CONS (|function| |GUESS;ShiftSS|) $)
       (SPADCALL
        (SPADCALL (|spadConstant| $ 309)
                  (SPADCALL (|spadConstant| $ 11) (|spadConstant| $ 345)
                            (QREFELT $ 405))
                  (QREFELT $ 406))
        (SPADCALL (|spadConstant| $ 315) (QREFELT $ 407)) (QREFELT $ 408))
       $))))) 

(DEFUN |GUESS;qShiftAX| (|q| |l| |n| |f| $)
  (SPADCALL
   (SPADCALL (SPADCALL |q| (QREFELT $ 23))
             (SPADCALL |l| (SPADCALL |n| (QREFELT $ 23)) (QREFELT $ 414))
             (QREFELT $ 203))
   |f| (QREFELT $ 87))) 

(DEFUN |GUESS;qShiftA| (|q| |k| |l| |f| $)
  (SPADCALL (SPADCALL |q| (QREFELT $ 415)) |k| |l| |f| (QREFELT $ 416))) 

(DEFUN |GUESS;qShiftAF| (|q| |k| |l| |f| $)
  (SPADCALL (SPADCALL (SPADCALL |q| (QREFELT $ 229)) (QREFELT $ 386)) |k| |l|
            |f| (QREFELT $ 417))) 

(DEFUN |GUESS;qShiftC| (|q| |total| $)
  (SPADCALL (SPADCALL |q| (QREFELT $ 415)) |total| (QREFELT $ 418))) 

(DEFUN |GUESS;qSubstUFPSF| (|q| |s| |maxMD| $)
  (PROG (|i| #1=#:G3362)
    (RETURN
     (SEQ
      (PROGN
       (LETT #1# NIL . #2=(|GUESS;qSubstUFPSF|))
       (SEQ (LETT |i| 0 . #2#) G190 (COND ((QSGREATERP |i| |maxMD|) (GO G191)))
            (SEQ
             (EXIT
              (LETT #1#
                    (CONS
                     (SPADCALL |s|
                               (SPADCALL
                                (SPADCALL (SPADCALL |q| (QREFELT $ 229)) |i|
                                          (QREFELT $ 282))
                                (SPADCALL (|spadConstant| $ 11) 1
                                          (QREFELT $ 405))
                                (QREFELT $ 419))
                               (QREFELT $ 420))
                     #1#)
                    . #2#)))
            (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
            (EXIT (NREVERSE0 #1#)))))))) 

(DEFUN |GUESS;qSubstUFPSSUPF| (|q| |s| |maxMD| $)
  (PROG (|i| #1=#:G3365)
    (RETURN
     (SEQ
      (PROGN
       (LETT #1# NIL . #2=(|GUESS;qSubstUFPSSUPF|))
       (SEQ (LETT |i| 0 . #2#) G190 (COND ((QSGREATERP |i| |maxMD|) (GO G191)))
            (SEQ
             (EXIT
              (LETT #1#
                    (CONS
                     (SPADCALL |s|
                               (SPADCALL
                                (SPADCALL
                                 (SPADCALL (SPADCALL |q| (QREFELT $ 229)) |i|
                                           (QREFELT $ 282))
                                 (QREFELT $ 386))
                                (SPADCALL (|spadConstant| $ 306) 1
                                          (QREFELT $ 410))
                                (QREFELT $ 421))
                               (QREFELT $ 422))
                     #1#)
                    . #2#)))
            (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
            (EXIT (NREVERSE0 #1#)))))))) 

(DEFUN |GUESS;qSubstEXPRR| (|q| |xx| |s| |maxMD| $)
  (PROG (|i| #1=#:G3368)
    (RETURN
     (SEQ
      (PROGN
       (LETT #1# NIL . #2=(|GUESS;qSubstEXPRR|))
       (SEQ (LETT |i| 0 . #2#) G190 (COND ((QSGREATERP |i| |maxMD|) (GO G191)))
            (SEQ
             (EXIT
              (LETT #1#
                    (CONS
                     (SPADCALL
                      (SPADCALL (SPADCALL |q| (QREFELT $ 23))
                                (SPADCALL |i| (SPADCALL |xx| (QREFELT $ 23))
                                          (QREFELT $ 414))
                                (QREFELT $ 203))
                      |s| (QREFELT $ 87))
                     #1#)
                    . #2#)))
            (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
            (EXIT (NREVERSE0 #1#)))))))) 

(DEFUN |GUESS;ADEguessStreamMixShift| (|q| |f| |partitions| |maxMD| $)
  (PROG (|s|)
    (RETURN
     (SEQ
      (LETT |s|
            (|GUESS;ADEguessStream2| |f| |partitions|
             (CONS (|function| |GUESS;ShiftSS|) $)
             (SPADCALL
              (SPADCALL (|spadConstant| $ 309)
                        (SPADCALL (|spadConstant| $ 11) 1 (QREFELT $ 405))
                        (QREFELT $ 406))
              (SPADCALL (|spadConstant| $ 315) (QREFELT $ 407))
              (QREFELT $ 408))
             $)
            |GUESS;ADEguessStreamMixShift|)
      (EXIT
       (SPADCALL |s|
                 (CONS #'|GUESS;ADEguessStreamMixShift!0|
                       (VECTOR $ |maxMD| |q|))
                 (QREFELT $ 425))))))) 

(DEFUN |GUESS;ADEguessStreamMixShift!0| (|z1| $$)
  (PROG (|q| |maxMD| $)
    (LETT |q| (QREFELT $$ 2) . #1=(|GUESS;ADEguessStreamMixShift|))
    (LETT |maxMD| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;qSubstUFPSF| |q| |z1| |maxMD| $))))) 

(DEFUN |GUESS;ADEguessModGen2Mixed| (|partitions| |dl| |maxMD| |o| $)
  (PROG ()
    (RETURN
     (SEQ
      (CONS #'|GUESS;ADEguessModGen2Mixed!0|
            (VECTOR |partitions| |maxMD| |o| |dl| $)))))) 

(DEFUN |GUESS;ADEguessModGen2Mixed!0| (|f| |prime| |q| $$)
  (PROG ($ |dl| |o| |maxMD| |partitions|)
    (LETT $ (QREFELT $$ 4) . #1=(|GUESS;ADEguessModGen2Mixed|))
    (LETT |dl| (QREFELT $$ 3) . #1#)
    (LETT |o| (QREFELT $$ 2) . #1#)
    (LETT |maxMD| (QREFELT $$ 1) . #1#)
    (LETT |partitions| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|l| |vv| |e| |vn| |i| |r| |lastv| #2=#:G3388 |v| #3=#:G3389 |w|
             |vv1| #4=#:G3387 |p| #5=#:G3386 O #6=#:G3374 |qv| |d| #7=#:G3372)
        (RETURN
         (SEQ
          (LETT |d|
                (PROG1
                    (LETT #7#
                          (SPADCALL
                           (SPADCALL (SPADCALL |f| (QREFELT $ 426)) |dl|
                                     (QREFELT $ 206))
                           (|spadConstant| $ 345) (QREFELT $ 206))
                          NIL)
                  (|check-subtype| (>= #7# 0) '(|NonNegativeInteger|) #7#))
                NIL)
          (LETT |qv|
                (SPADCALL (SPADCALL |d| (|spadConstant| $ 345) (QREFELT $ 245))
                          (|spadConstant| $ 345) (QREFELT $ 427))
                NIL)
          (SEQ (LETT |i| (|spadConstant| $ 345) NIL) G190
               (COND ((> |i| |d|) (GO G191)))
               (SEQ
                (EXIT
                 (SPADCALL |qv| |i|
                           (QSMOD64-32
                            (SPADCALL (SPADCALL |q| |i| (QREFELT $ 430))
                                      |prime| (QREFELT $ 431))
                            |prime|)
                           (QREFELT $ 432))))
               (LETT |i| (+ |i| 1) NIL) (GO G190) G191 (EXIT NIL))
          (LETT O
                (PROG1
                    (LETT #6#
                          (SPADCALL
                           (SPADCALL |o|
                                     (SPADCALL |maxMD| (|spadConstant| $ 345)
                                               (QREFELT $ 245))
                                     (QREFELT $ 433))
                           (QREFELT $ 434))
                          NIL)
                  (|check-subtype| (>= #6# 0) '(|NonNegativeInteger|) #6#))
                NIL)
          (LETT |vv1|
                (PROGN
                 (LETT #5# NIL NIL)
                 (SEQ (LETT |p| NIL NIL)
                      (LETT #4#
                            (SPADCALL
                             (SPADCALL
                              (SPADCALL |partitions| O (QREFELT $ 361))
                              (QREFELT $ 362))
                             (QREFELT $ 363))
                            NIL)
                      G190
                      (COND
                       ((OR (ATOM #4#) (PROGN (LETT |p| (CAR #4#) NIL) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #5#
                              (CONS
                               (|GUESS;termAsU32VectorShift| |f| |p| |prime|
                                |dl| $)
                               #5#)
                              NIL)))
                      (LETT #4# (CDR #4#) NIL) (GO G190) G191
                      (EXIT (NREVERSE0 #5#))))
                NIL)
          (LETT |l| NIL NIL)
          (LETT |lastv| (SPADCALL |vv1| (QREFELT $ 435)) NIL)
          (SEQ (LETT |w| NIL NIL)
               (LETT #3# (SPADCALL |vv1| (QREFELT $ 436)) NIL)
               (LETT |v| NIL NIL) (LETT #2# |vv1| NIL) G190
               (COND
                ((OR (ATOM #2#) (PROGN (LETT |v| (CAR #2#) NIL) NIL) (ATOM #3#)
                     (PROGN (LETT |w| (CAR #3#) NIL) NIL))
                 (GO G191)))
               (SEQ (LETT |lastv| |w| NIL) (LETT |vv| (LIST |v|) NIL)
                    (LETT |vn| |v| NIL)
                    (SEQ (LETT |i| (|spadConstant| $ 345) NIL) G190
                         (COND ((> |i| |maxMD|) (GO G191)))
                         (SEQ (LETT |vn| (SPADCALL |vn| (QREFELT $ 437)) NIL)
                              (SEQ (LETT |e| (|spadConstant| $ 345) NIL) G190
                                   (COND ((> |e| |d|) (GO G191)))
                                   (SEQ
                                    (EXIT
                                     (SPADCALL |vn| |e|
                                               (QSMULMOD32
                                                (SPADCALL |vn| |e|
                                                          (QREFELT $ 438))
                                                (SPADCALL |qv| |e|
                                                          (QREFELT $ 438))
                                                |prime|)
                                               (QREFELT $ 432))))
                                   (LETT |e| (+ |e| 1) NIL) (GO G190) G191
                                   (EXIT NIL))
                              (EXIT
                               (LETT |vv| (SPADCALL |vn| |vv| (QREFELT $ 439))
                                     NIL)))
                         (LETT |i| (+ |i| 1) NIL) (GO G190) G191 (EXIT NIL))
                    (EXIT
                     (LETT |l|
                           (SPADCALL
                            (SPADCALL (SPADCALL |vv| (QREFELT $ 440))
                                      (QREFELT $ 337))
                            |l| (QREFELT $ 442))
                           NIL)))
               (LETT #2# (PROG1 (CDR #2#) (LETT #3# (CDR #3#) NIL)) NIL)
               (GO G190) G191 (EXIT NIL))
          (LETT |vv| (LIST |lastv|) NIL) (LETT |vn| |lastv| NIL)
          (LETT |r|
                (SPADCALL
                 (SPADCALL |o|
                           (SPADCALL |maxMD| (|spadConstant| $ 345)
                                     (QREFELT $ 245))
                           (QREFELT $ 443))
                 (|spadConstant| $ 345) (QREFELT $ 206))
                NIL)
          (COND
           ((SPADCALL |r| (SPADCALL (|spadConstant| $ 429) (QREFELT $ 444))
                      (QREFELT $ 445))
            (LETT |r| |maxMD| NIL)))
          (SEQ (LETT |i| (|spadConstant| $ 345) NIL) G190
               (COND ((> |i| |r|) (GO G191)))
               (SEQ (LETT |vn| (SPADCALL |vn| (QREFELT $ 437)) NIL)
                    (SEQ (LETT |e| (|spadConstant| $ 345) NIL) G190
                         (COND ((> |e| |d|) (GO G191)))
                         (SEQ
                          (EXIT
                           (SPADCALL |vn| |e|
                                     (QSMULMOD32
                                      (SPADCALL |vn| |e| (QREFELT $ 438))
                                      (SPADCALL |qv| |e| (QREFELT $ 438))
                                      |prime|)
                                     (QREFELT $ 432))))
                         (LETT |e| (+ |e| 1) NIL) (GO G190) G191 (EXIT NIL))
                    (EXIT
                     (LETT |vv| (SPADCALL |vn| |vv| (QREFELT $ 439)) NIL)))
               (LETT |i| (+ |i| 1) NIL) (GO G190) G191 (EXIT NIL))
          (LETT |l|
                (SPADCALL
                 (SPADCALL (SPADCALL |vv| (QREFELT $ 440)) (QREFELT $ 337)) |l|
                 (QREFELT $ 442))
                NIL)
          (EXIT
           (SPADCALL (SPADCALL |l| (QREFELT $ 446)) (QREFELT $ 448)))))))))) 

(DEFUN |GUESS;ADEdegreeStreamMixShift| (|partitions| |maxMD| $)
  (PROG (|s|)
    (RETURN
     (SEQ
      (LETT |s| (|GUESS;ADEdegreeStream| |partitions| $)
            |GUESS;ADEdegreeStreamMixShift|)
      (EXIT
       (SPADCALL |s|
                 (CONS #'|GUESS;ADEdegreeStreamMixShift!0| (VECTOR |maxMD| $))
                 (QREFELT $ 452))))))) 

(DEFUN |GUESS;ADEdegreeStreamMixShift!0| (|z1| $$)
  (PROG ($ |maxMD|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;ADEdegreeStreamMixShift|))
    (LETT |maxMD| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|i| #2=#:G3392)
        (RETURN
         (SEQ
          (PROGN
           (LETT #2# NIL NIL)
           (SEQ (LETT |i| (|spadConstant| $ 344) NIL) G190
                (COND ((> |i| |maxMD|) (GO G191)))
                (SEQ (EXIT (LETT #2# (CONS |z1| #2#) NIL)))
                (LETT |i| (+ |i| 1) NIL) (GO G190) G191
                (EXIT (NREVERSE0 #2#))))))))))) 

(DEFUN |GUESS;ADEtestMixShiftGen| (|q| |partitions| |maxMD| |l| $)
  (PROG ()
    (RETURN
     (SEQ
      (CONS #'|GUESS;ADEtestMixShiftGen!0|
            (VECTOR |q| |partitions| |maxMD| $ |l|)))))) 

(DEFUN |GUESS;ADEtestMixShiftGen!0| (|f| $$)
  (PROG (|l| $ |maxMD| |partitions| |q|)
    (LETT |l| (QREFELT $$ 4) . #1=(|GUESS;ADEtestMixShiftGen|))
    (LETT $ (QREFELT $$ 3) . #1#)
    (LETT |maxMD| (QREFELT $$ 2) . #1#)
    (LETT |partitions| (QREFELT $$ 1) . #1#)
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|res| #2=#:G3411 |i| #3=#:G3410 |f0| |exponents| #4=#:G3401
             |oldPartition| #5=#:G3409 #6=#:G3408 |newPartition| #7=#:G3397
             #8=#:G3407 |p| #9=#:G3396)
        (RETURN
         (SEQ (LETT |res| NIL NIL) (LETT |exponents| NIL NIL)
              (LETT |oldPartition|
                    (PROG1
                        (LETT #9#
                              (SPADCALL
                               (SPADCALL (SPADCALL |l| (QREFELT $ 454))
                                         (SPADCALL |maxMD|
                                                   (|spadConstant| $ 90)
                                                   (QREFELT $ 245))
                                         (QREFELT $ 433))
                               (QREFELT $ 434))
                              NIL)
                      (|check-subtype| (> #9# 0) '(|PositiveInteger|) #9#))
                    NIL)
              (SEQ (LETT |p| NIL NIL) (LETT #8# |l| NIL) G190
                   (COND
                    ((OR (ATOM #8#) (PROGN (LETT |p| (CAR #8#) NIL) NIL))
                     (GO G191)))
                   (SEQ
                    (LETT |newPartition|
                          (PROG1
                              (LETT #7#
                                    (SPADCALL
                                     (SPADCALL |p|
                                               (SPADCALL |maxMD|
                                                         (|spadConstant| $ 90)
                                                         (QREFELT $ 245))
                                               (QREFELT $ 433))
                                     (QREFELT $ 434))
                                    NIL)
                            (|check-subtype| (> #7# 0) '(|PositiveInteger|)
                                             #7#))
                          NIL)
                    (COND
                     ((SPADCALL |oldPartition| |newPartition| (QREFELT $ 455))
                      (SEQ
                       (LETT |f0|
                             (|GUESS;termAsUFPSSUPF2| |f|
                              (SPADCALL |partitions| |oldPartition|
                                        (QREFELT $ 364))
                              (CONS (|function| |GUESS;ShiftSF|) $)
                              (SPADCALL
                               (SPADCALL (|spadConstant| $ 310)
                                         (SPADCALL (|spadConstant| $ 306)
                                                   (|spadConstant| $ 90)
                                                   (QREFELT $ 410))
                                         (QREFELT $ 411))
                               (SPADCALL (|spadConstant| $ 315)
                                         (QREFELT $ 407))
                               (QREFELT $ 412))
                              $)
                             NIL)
                       (LETT |res|
                             (SPADCALL
                              (PROGN
                               (LETT #6# NIL NIL)
                               (SEQ (LETT |i| NIL NIL)
                                    (LETT #5# |exponents| NIL) G190
                                    (COND
                                     ((OR (ATOM #5#)
                                          (PROGN (LETT |i| (CAR #5#) NIL) NIL))
                                      (GO G191)))
                                    (SEQ
                                     (EXIT
                                      (LETT #6#
                                            (CONS
                                             (SPADCALL |f0|
                                                       (SPADCALL
                                                        (SPADCALL
                                                         (SPADCALL
                                                          (SPADCALL |q|
                                                                    (QREFELT $
                                                                             229))
                                                          |i| (QREFELT $ 282))
                                                         (QREFELT $ 386))
                                                        (SPADCALL
                                                         (|spadConstant| $ 306)
                                                         (|spadConstant| $ 90)
                                                         (QREFELT $ 410))
                                                        (QREFELT $ 421))
                                                       (QREFELT $ 422))
                                             #6#)
                                            NIL)))
                                    (LETT #5# (CDR #5#) NIL) (GO G190) G191
                                    (EXIT (NREVERSE0 #6#))))
                              |res| (QREFELT $ 456))
                             NIL)
                       (LETT |exponents| NIL NIL)
                       (EXIT (LETT |oldPartition| |newPartition| NIL)))))
                    (EXIT
                     (LETT |exponents|
                           (SPADCALL
                            (PROG1
                                (LETT #4#
                                      (SPADCALL
                                       (SPADCALL |p| (|spadConstant| $ 90)
                                                 (QREFELT $ 206))
                                       (SPADCALL |maxMD| (|spadConstant| $ 90)
                                                 (QREFELT $ 245))
                                       (QREFELT $ 431))
                                      NIL)
                              (|check-subtype| (>= #4# 0)
                                               '(|NonNegativeInteger|) #4#))
                            |exponents| (QREFELT $ 458))
                           NIL)))
                   (LETT #8# (CDR #8#) NIL) (GO G190) G191 (EXIT NIL))
              (LETT |f0|
                    (|GUESS;termAsUFPSSUPF2| |f|
                     (SPADCALL |partitions| |oldPartition| (QREFELT $ 364))
                     (CONS (|function| |GUESS;ShiftSF|) $)
                     (SPADCALL
                      (SPADCALL (|spadConstant| $ 310)
                                (SPADCALL (|spadConstant| $ 306)
                                          (|spadConstant| $ 90)
                                          (QREFELT $ 410))
                                (QREFELT $ 411))
                      (SPADCALL (|spadConstant| $ 315) (QREFELT $ 407))
                      (QREFELT $ 412))
                     $)
                    NIL)
              (LETT |res|
                    (SPADCALL
                     (PROGN
                      (LETT #3# NIL NIL)
                      (SEQ (LETT |i| NIL NIL) (LETT #2# |exponents| NIL) G190
                           (COND
                            ((OR (ATOM #2#)
                                 (PROGN (LETT |i| (CAR #2#) NIL) NIL))
                             (GO G191)))
                           (SEQ
                            (EXIT
                             (LETT #3#
                                   (CONS
                                    (SPADCALL |f0|
                                              (SPADCALL
                                               (SPADCALL
                                                (SPADCALL
                                                 (SPADCALL |q| (QREFELT $ 229))
                                                 |i| (QREFELT $ 282))
                                                (QREFELT $ 386))
                                               (SPADCALL (|spadConstant| $ 306)
                                                         (|spadConstant| $ 90)
                                                         (QREFELT $ 410))
                                               (QREFELT $ 421))
                                              (QREFELT $ 422))
                                    #3#)
                                   NIL)))
                           (LETT #2# (CDR #2#) NIL) (GO G190) G191
                           (EXIT (NREVERSE0 #3#))))
                     |res| (QREFELT $ 456))
                    NIL)
              (EXIT
               (SPADCALL (SPADCALL |res| (QREFELT $ 459))
                         (QREFELT $ 338)))))))))) 

(DEFUN |GUESS;ADEEXPRRStreamMixShift| (|q| |f| |xx| |partitions| |maxMD| $)
  (PROG (|s|)
    (RETURN
     (SEQ
      (LETT |s|
            (|GUESS;ADEEXPRRStream| |f| |xx| |partitions|
             (CONS (|function| |GUESS;ShiftSX|) $)
             (CONS (|function| |GUESS;diff1X|) $) $)
            |GUESS;ADEEXPRRStreamMixShift|)
      (EXIT
       (SPADCALL |s|
                 (CONS #'|GUESS;ADEEXPRRStreamMixShift!0|
                       (VECTOR $ |maxMD| |xx| |q|))
                 (QREFELT $ 462))))))) 

(DEFUN |GUESS;ADEEXPRRStreamMixShift!0| (|z1| $$)
  (PROG (|q| |xx| |maxMD| $)
    (LETT |q| (QREFELT $$ 3) . #1=(|GUESS;ADEEXPRRStreamMixShift|))
    (LETT |xx| (QREFELT $$ 2) . #1#)
    (LETT |maxMD| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;qSubstEXPRR| |q| |xx| |z1| |maxMD| $))))) 

(DEFUN |GUESS;shiftHP;SM;104| (|q| $)
  (PROG () (RETURN (SEQ (CONS #'|GUESS;shiftHP;SM;104!12| (VECTOR |q| $)))))) 

(DEFUN |GUESS;shiftHP;SM;104!12| (|l1| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;shiftHP;SM;104|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|degrees| |maxMD| |partitions|)
        (RETURN
         (SEQ
          (COND
           ((SPADCALL |l1| (QREFELT $ 360))
            (|error|
             "Guess: no support for the qShift operator with displayAsGF"))
           ('T
            (SEQ
             (LETT |partitions| (|GUESS;FilteredPartitionStream| |l1| $) NIL)
             (EXIT
              (COND
               ((SPADCALL (LETT |maxMD| (SPADCALL |l1| (QREFELT $ 359)) NIL)
                          (QREFELT $ 389))
                (SEQ
                 (LETT |degrees| (|GUESS;ADEdegreeStream| |partitions| $) NIL)
                 (EXIT
                  (VECTOR |degrees|
                          (CONS #'|GUESS;shiftHP;SM;104!0|
                                (VECTOR $ |partitions|))
                          (CONS #'|GUESS;shiftHP;SM;104!1|
                                (VECTOR |degrees| $ |partitions|))
                          (CONS #'|GUESS;shiftHP;SM;104!2|
                                (VECTOR $ |partitions|))
                          (CONS #'|GUESS;shiftHP;SM;104!3|
                                (VECTOR $ |partitions|))
                          '|qshiftHP| |q|
                          (CONS #'|GUESS;shiftHP;SM;104!4| (VECTOR $ |q|))
                          (CONS #'|GUESS;shiftHP;SM;104!5| (VECTOR $ |q|))
                          (CONS #'|GUESS;shiftHP;SM;104!6| (VECTOR $ |q|))
                          (CONS #'|GUESS;shiftHP;SM;104!7| (VECTOR $ |q|))))))
               ('T
                (SEQ
                 (LETT |degrees|
                       (|GUESS;ADEdegreeStreamMixShift| |partitions| |maxMD| $)
                       NIL)
                 (EXIT
                  (VECTOR |degrees|
                          (CONS #'|GUESS;shiftHP;SM;104!8|
                                (VECTOR $ |maxMD| |partitions| |q|))
                          (CONS #'|GUESS;shiftHP;SM;104!9|
                                (VECTOR |maxMD| $ |degrees| |partitions|))
                          (CONS #'|GUESS;shiftHP;SM;104!10|
                                (VECTOR $ |maxMD| |partitions| |q|))
                          (CONS #'|GUESS;shiftHP;SM;104!11|
                                (VECTOR $ |maxMD| |partitions| |q|))
                          '|qmixed| |q| (CONS (|function| |GUESS;ShiftA|) $)
                          (CONS (|function| |GUESS;ShiftAF|) $)
                          (CONS (|function| |GUESS;ShiftAX|) $)
                          (CONS (|function| |GUESS;ShiftC|) $))))))))))))))))) 

(DEFUN |GUESS;shiftHP;SM;104!11| (|z1| |z2| $$)
  (PROG (|q| |partitions| |maxMD| $)
    (LETT |q| (QREFELT $$ 3) NIL)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT |maxMD| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStreamMixShift| |q| |z1| |z2| |partitions| |maxMD| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!10| (|l| $$)
  (PROG (|q| |partitions| |maxMD| $)
    (LETT |q| (QREFELT $$ 3) NIL)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT |maxMD| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN (|GUESS;ADEtestMixShiftGen| |q| |partitions| |maxMD| |l| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!9| (|o| $$)
  (PROG (|partitions| |degrees| $ |maxMD|)
    (LETT |partitions| (QREFELT $$ 3) NIL)
    (LETT |degrees| (QREFELT $$ 2) NIL)
    (LETT $ (QREFELT $$ 1) NIL)
    (LETT |maxMD| (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModGen2Mixed| |partitions|
       (SPADCALL |degrees| |o| (QREFELT $ 409)) |maxMD| |o| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!8| (|z1| $$)
  (PROG (|q| |partitions| |maxMD| $)
    (LETT |q| (QREFELT $$ 3) NIL)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT |maxMD| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN (|GUESS;ADEguessStreamMixShift| |q| |z1| |partitions| |maxMD| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!7| (|z1| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN (PROGN (|GUESS;qShiftC| |q| |z1| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!6| (|z1| |z2| |z3| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN (PROGN (|GUESS;qShiftAX| |q| |z1| |z2| |z3| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!5| (|z1| |z2| |z3| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN (PROGN (|GUESS;qShiftAF| |q| |z1| |z2| |z3| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!4| (|z1| |z2| |z3| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN (PROGN (|GUESS;qShiftA| |q| |z1| |z2| |z3| $))))) 

(DEFUN |GUESS;shiftHP;SM;104!3| (|z1| |z2| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
       (CONS (|function| |GUESS;ShiftSX|) $)
       (CONS (|function| |GUESS;diff1X|) $) $))))) 

(DEFUN |GUESS;shiftHP;SM;104!2| (|l| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (PROG (#1=#:G3419 |i| #2=#:G3418)
        (RETURN
         (SEQ
          (|GUESS;ADEtestGen2|
           (PROGN
            (LETT #2# NIL NIL)
            (SEQ (LETT |i| NIL NIL) (LETT #1# |l| NIL) G190
                 (COND
                  ((OR (ATOM #1#) (PROGN (LETT |i| (CAR #1#) NIL) NIL))
                   (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #2#
                         (CONS (SPADCALL |partitions| |i| (QREFELT $ 364)) #2#)
                         NIL)))
                 (LETT #1# (CDR #1#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #2#))))
           (CONS (|function| |GUESS;ShiftSF|) $)
           (SPADCALL
            (SPADCALL (|spadConstant| $ 310)
                      (SPADCALL (|spadConstant| $ 306) (|spadConstant| $ 90)
                                (QREFELT $ 410))
                      (QREFELT $ 411))
            (SPADCALL (|spadConstant| $ 315) (QREFELT $ 407)) (QREFELT $ 412))
           $)))))))) 

(DEFUN |GUESS;shiftHP;SM;104!1| (|o| $$)
  (PROG (|partitions| $ |degrees|)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT $ (QREFELT $$ 1) NIL)
    (LETT |degrees| (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModGen2|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 361)) (QREFELT $ 362))
        (QREFELT $ 363))
       (SPADCALL |degrees| |o| (QREFELT $ 409)) $))))) 

(DEFUN |GUESS;shiftHP;SM;104!0| (|z1| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (|GUESS;ADEguessStream2| |z1| |partitions|
       (CONS (|function| |GUESS;ShiftSS|) $)
       (SPADCALL
        (SPADCALL (|spadConstant| $ 309)
                  (SPADCALL (|spadConstant| $ 11) (|spadConstant| $ 345)
                            (QREFELT $ 405))
                  (QREFELT $ 406))
        (SPADCALL (|spadConstant| $ 315) (QREFELT $ 407)) (QREFELT $ 408))
       $))))) 

(DEFUN |GUESS;makeEXPRR| (DAX |x| |p| |expr| $)
  (COND ((SPADCALL |p| (QREFELT $ 107)) (|spadConstant| $ 28))
        ('T
         (SPADCALL
          (SPADCALL (SPADCALL (SPADCALL |p| (QREFELT $ 108)) (QREFELT $ 10))
                    (SPADCALL (SPADCALL |p| (QREFELT $ 110)) |x| |expr| DAX)
                    (QREFELT $ 87))
          (|GUESS;makeEXPRR| DAX |x| (SPADCALL |p| (QREFELT $ 112)) |expr| $)
          (QREFELT $ 92))))) 

(DEFUN |GUESS;list2UFPSF| (|list| $)
  (SPADCALL (SPADCALL |list| (QREFELT $ 465)) (QREFELT $ 466))) 

(DEFUN |GUESS;list2UFPSSUPF| (|list| $)
  (PROG (|l| #1=#:G3432 |e| |i| #2=#:G3431)
    (RETURN
     (SEQ
      (LETT |l|
            (SPADCALL
             (PROGN
              (LETT #2# NIL . #3=(|GUESS;list2UFPSSUPF|))
              (SEQ (LETT |i| 0 . #3#) (LETT |e| NIL . #3#)
                   (LETT #1# |list| . #3#) G190
                   (COND
                    ((OR (ATOM #1#) (PROGN (LETT |e| (CAR #1#) . #3#) NIL))
                     (GO G191)))
                   (SEQ
                    (EXIT
                     (LETT #2# (CONS (SPADCALL |e| (QREFELT $ 386)) #2#)
                           . #3#)))
                   (LETT #1# (PROG1 (CDR #1#) (LETT |i| (QSADD1 |i|) . #3#))
                         . #3#)
                   (GO G190) G191 (EXIT (NREVERSE0 #2#))))
             (QREFELT $ 469))
            . #3#)
      (EXIT
       (SPADCALL (SPADCALL |l| (QREFELT $ 470))
                 (SPADCALL (SPADCALL (|spadConstant| $ 11) 1 (QREFELT $ 127))
                           (LENGTH |list|) (QREFELT $ 410))
                 (QREFELT $ 471))))))) 

(DEFUN |GUESS;SUPF2SUPSUPF| (|p| $) (SPADCALL (ELT $ 386) |p| (QREFELT $ 475))) 

(DEFUN |GUESS;UFPSF2SUPF| (|f| |deg| $)
  (SPADCALL (SPADCALL |f| |deg| (QREFELT $ 477)) (QREFELT $ 478))) 

(DEFUN |GUESS;getListSUPF| (|s| |deg| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|GUESS;getListSUPF!0| (VECTOR $ |deg|)) |s|
               (QREFELT $ 481))))) 

(DEFUN |GUESS;getListSUPF!0| (|z1| $$)
  (PROG (|deg| $)
    (LETT |deg| (QREFELT $$ 1) . #1=(|GUESS;getListSUPF|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|GUESS;UFPSF2SUPF| |z1| |deg| $))))) 

(DEFUN |GUESS;checkInterpolant| (|list| |o| |resi| D |options| |sigma| $)
  (PROG (#1=#:G3465 #2=#:G3459 |order| |c| |d| |resiSUPF| #3=#:G3470 |i|
         #4=#:G3469 |testList| |flist| #5=#:G3453 #6=#:G3468 |reject_one_term|
         #7=#:G3467 |e| #8=#:G3446 |nonZeroCoefficient| #9=#:G3466)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |nonZeroCoefficient| 0 . #10=(|GUESS;checkInterpolant|))
            (LETT |reject_one_term| NIL . #10#)
            (SEQ
             (EXIT
              (SEQ (LETT |i| 1 . #10#) (LETT #9# (LENGTH |resi|) . #10#) G190
                   (COND ((QSGREATERP |i| #9#) #11=(GO G191)))
                   (SEQ
                    (EXIT
                     (COND
                      ((NULL
                        (SPADCALL (SPADCALL |resi| |i| (QREFELT $ 483))
                                  (QREFELT $ 484)))
                       (COND
                        ((ZEROP |nonZeroCoefficient|)
                         (LETT |nonZeroCoefficient| |i| . #10#))
                        ('T
                         (SEQ (LETT |nonZeroCoefficient| 0 . #10#)
                              (EXIT
                               (PROGN
                                (LETT #8# |$NoValue| . #10#)
                                (GO #8#))))))))))
                   (LETT |i| (QSADD1 |i|) . #10#) #12=(GO G190) G191
                   (EXIT NIL)))
             #8# (EXIT #8#))
            (COND
             ((NULL (ZEROP |nonZeroCoefficient|))
              (SEQ (LETT |e| NIL . #10#) (LETT #7# |list| . #10#) G190
                   (COND
                    ((OR (ATOM #7#) (PROGN (LETT |e| (CAR #7#) . #10#) NIL))
                     #11#))
                   (SEQ
                    (EXIT
                     (COND
                      ((NULL (SPADCALL |e| (QREFELT $ 485)))
                       (SEQ
                        (COND
                         ((SPADCALL |options| (QREFELT $ 48))
                          (SPADCALL "list contains non-zero element"
                                    (QREFELT $ 62))))
                        (EXIT (LETT |reject_one_term| 'T . #10#)))))))
                   (LETT #7# (CDR #7#) . #10#) #12# G191 (EXIT NIL))))
            (LETT |flist|
                  (PROGN
                   (LETT #6# NIL . #10#)
                   (SEQ (LETT |i| 1 . #10#) G190
                        (COND ((QSGREATERP |i| |o|) #11#))
                        (SEQ
                         (EXIT
                          (COND
                           ((COND
                             ((SPADCALL (SPADCALL |resi| |i| (QREFELT $ 483))
                                        (QREFELT $ 484))
                              'NIL)
                             (#13='T 'T))
                            (LETT #6#
                                  (CONS
                                   (PROG1 (LETT #5# |i| . #10#)
                                     (|check-subtype| (> #5# 0)
                                                      '(|PositiveInteger|)
                                                      #5#))
                                   #6#)
                                  . #10#)))))
                        (LETT |i| (QSADD1 |i|) . #10#) #12# G191
                        (EXIT (NREVERSE0 #6#))))
                  . #10#)
            (LETT |testList|
                  (SPADCALL (|GUESS;list2UFPSSUPF| |list| $)
                            (SPADCALL |flist| (QVELT D 3)))
                  . #10#)
            (LETT |resiSUPF|
                  (PROGN
                   (LETT #4# NIL . #10#)
                   (SEQ (LETT |i| NIL . #10#) (LETT #3# |flist| . #10#) G190
                        (COND
                         ((OR (ATOM #3#)
                              (PROGN (LETT |i| (CAR #3#) . #10#) NIL))
                          #11#))
                        (SEQ
                         (EXIT
                          (LETT #4#
                                (CONS
                                 (|GUESS;SUPF2SUPSUPF|
                                  (|GUESS;SUPS2SUPF|
                                   (SPADCALL |resi| |i| (QREFELT $ 483)) $)
                                  $)
                                 #4#)
                                . #10#)))
                        (LETT #3# (CDR #3#) . #10#) #12# G191
                        (EXIT (NREVERSE0 #4#))))
                  . #10#)
            (LETT |order| 0 . #10#)
            (SEQ
             (EXIT
              (SEQ (LETT |d| 0 . #10#) G190 NIL
                   (SEQ
                    (LETT |c|
                          (SPADCALL (QVELT D 8) |testList| |d|
                                    (SPADCALL |resiSUPF| (QREFELT $ 488))
                                    (QREFELT $ 489))
                          . #10#)
                    (COND
                     ((NULL (SPADCALL |c| (QREFELT $ 107)))
                      (SEQ (LETT |order| |d| . #10#)
                           (EXIT
                            (PROGN (LETT #2# |$NoValue| . #10#) (GO #2#))))))
                    (EXIT
                     (COND
                      (|reject_one_term|
                       (COND
                        ((EQL |d| |sigma|)
                         (PROGN
                          (LETT #1# (CONS 1 "reject") . #10#)
                          (GO #1#))))))))
                   (LETT |d| (QSADD1 |d|) . #10#) #12# G191 (EXIT NIL)))
             #2# (EXIT #2#))
            (EXIT
             (COND
              ((< |order| |sigma|)
               (SEQ (SPADCALL "Order too low" (QREFELT $ 490))
                    (EXIT
                     (PROGN
                      (LETT #1# (CONS 2 "no_solution") . #10#)
                      (GO #1#)))))
              ((SPADCALL |c| (QREFELT $ 491))
               (SEQ
                (COND
                 ((SPADCALL |options| (QREFELT $ 48))
                  (SPADCALL "proposed solution does not fit" (QREFELT $ 62))))
                (EXIT (PROGN (LETT #1# (CONS 1 "reject") . #10#) (GO #1#)))))
              (#13# (CONS 0 "good"))))))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;wrapInterpolant|
       (|o| |resi| |exprList| |initials| D |dummy| |op| |options| $)
  (PROG (|ex| #1=#:G3496 |p| #2=#:G3497 |e| #3=#:G3495 #4=#:G3493 #5=#:G3486
         |nonZeroCoefficient| #6=#:G3494 |i|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((QEQCAR (SPADCALL |options| (QREFELT $ 163)) 1)
          (COND
           ((|BooleanEquality| (SPADCALL |options| (QREFELT $ 492)) 'NIL)
            (COND
             ((SPADCALL (SPADCALL |resi| (QREFELT $ 493)) (QREFELT $ 484))
              (EXIT
               (SEQ
                (COND
                 ((SPADCALL |options| (QREFELT $ 48))
                  (SPADCALL
                   (SPADCALL "solution should have been found already "
                             (SPADCALL |resi| (QREFELT $ 494)) (QREFELT $ 51))
                   (QREFELT $ 54))))
                (EXIT
                 (PROGN
                  (LETT #4# (CONS 1 "failed") . #7=(|GUESS;wrapInterpolant|))
                  (GO #4#)))))))))))
        (LETT |nonZeroCoefficient| 0 . #7#)
        (SEQ
         (EXIT
          (SEQ (LETT |i| 1 . #7#) (LETT #6# (LENGTH |resi|) . #7#) G190
               (COND ((QSGREATERP |i| #6#) #8=(GO G191)))
               (SEQ
                (EXIT
                 (COND
                  ((NULL
                    (SPADCALL (SPADCALL |resi| |i| (QREFELT $ 483))
                              (QREFELT $ 484)))
                   (COND
                    ((ZEROP |nonZeroCoefficient|)
                     (LETT |nonZeroCoefficient| |i| . #7#))
                    ('T
                     (SEQ (LETT |nonZeroCoefficient| 0 . #7#)
                          (EXIT
                           (PROGN (LETT #5# |$NoValue| . #7#) (GO #5#))))))))))
               (LETT |i| (QSADD1 |i|) . #7#) #9=(GO G190) G191 (EXIT NIL)))
         #5# (EXIT #5#))
        (COND
         ((NULL (ZEROP |nonZeroCoefficient|))
          (COND
           ((SPADCALL
             (SPADCALL |exprList| |nonZeroCoefficient| (QREFELT $ 495))
             (SPADCALL |op| (QREFELT $ 497)) (QREFELT $ 498))
            (EXIT
             (SEQ
              (COND
               ((SPADCALL |options| (QREFELT $ 48))
                (SPADCALL "solution would not involve generating function"
                          (QREFELT $ 62))))
              (EXIT (PROGN (LETT #4# (CONS 1 "failed") . #7#) (GO #4#)))))))))
        (LETT |ex|
              (PROGN
               (LETT #3# NIL . #7#)
               (SEQ (LETT |e| NIL . #7#) (LETT #2# |exprList| . #7#)
                    (LETT |p| NIL . #7#) (LETT #1# |resi| . #7#) G190
                    (COND
                     ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #7#) NIL)
                          (ATOM #2#) (PROGN (LETT |e| (CAR #2#) . #7#) NIL))
                      #8#))
                    (SEQ
                     (EXIT
                      (LETT #3#
                            (CONS
                             (|GUESS;makeEXPRR| (QVELT D 9) |dummy|
                              (|GUESS;SUPS2SUPF| |p| $) |e| $)
                             #3#)
                            . #7#)))
                    (LETT #1# (PROG1 (CDR #1#) (LETT #2# (CDR #2#) . #7#))
                          . #7#)
                    #9# G191 (EXIT (NREVERSE0 #3#))))
              . #7#)
        (EXIT
         (COND
          ((SPADCALL |options| (QREFELT $ 360))
           (CONS 0
                 (SPADCALL |op| |dummy|
                           (SPADCALL (SPADCALL |options| (QREFELT $ 499))
                                     (QREFELT $ 23))
                           (SPADCALL (SPADCALL |options| (QREFELT $ 47))
                                     (QREFELT $ 23))
                           (SPADCALL (SPADCALL (ELT $ 92) |ex| (QREFELT $ 265))
                                     (QREFELT $ 31))
                           (REVERSE |initials|) (QREFELT $ 501))))
          ('T
           (CONS 0
                 (SPADCALL |op| |dummy|
                           (SPADCALL (SPADCALL |options| (QREFELT $ 47))
                                     (QREFELT $ 23))
                           (SPADCALL (SPADCALL |options| (QREFELT $ 47))
                                     (QREFELT $ 23))
                           (SPADCALL (SPADCALL (ELT $ 92) |ex| (QREFELT $ 265))
                                     (QREFELT $ 31))
                           (REVERSE |initials|) (QREFELT $ 502))))))))
      #4# (EXIT #4#))))) 

(DEFUN |GUESS;guessInterpolateModular|
       (|list| |degs| |o| |degreeLoss| |guessDegree| D |options| $)
  (PROG (|check| |i| #1=#:G3544 |deg| #2=#:G3543 #3=#:G3542 |maxD| #4=#:G3510
         #5=#:G3540 |del| |leadingZeros| #6=#:G3541 |el| |sigma| #7=#:G3508)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |sigma|
              (PROG1
                  (LETT #7#
                        (-
                         (+
                          (+ |guessDegree|
                             (SPADCALL |options| (QREFELT $ 204)))
                          |o|)
                         1)
                        . #8=(|GUESS;guessInterpolateModular|))
                (|check-subtype| (>= #7# 0) '(|NonNegativeInteger|) #7#))
              . #8#)
        (LETT |leadingZeros| 0 . #8#)
        (SEQ (LETT |el| NIL . #8#) (LETT #6# |list| . #8#) G190
             (COND
              ((OR (ATOM #6#) (PROGN (LETT |el| (CAR #6#) . #8#) NIL)
                   (NULL (SPADCALL |el| (|spadConstant| $ 26) (QREFELT $ 35))))
               #9=(GO G191)))
             (SEQ (EXIT (LETT |leadingZeros| (+ |leadingZeros| 1) . #8#)))
             (LETT #6# (CDR #6#) . #8#) #10=(GO G190) G191 (EXIT NIL))
        (COND
         ((< |degreeLoss| |leadingZeros|)
          (SEQ (LETT |del| (- |leadingZeros| |degreeLoss|) . #8#)
               (EXIT
                (COND
                 ((< |guessDegree| |del|)
                  (PROGN (LETT #5# (CONS 1 'NIL) . #8#) (GO #5#)))
                 (#11='T
                  (LETT |guessDegree|
                        (PROG1 (LETT #4# (- |guessDegree| |del|) . #8#)
                          (|check-subtype| (>= #4# 0) '(|NonNegativeInteger|)
                                           #4#))
                        . #8#)))))))
        (COND
         ((NULL (SPADCALL |options| (QREFELT $ 492)))
          (SEQ (LETT |maxD| (SPADCALL |options| (QREFELT $ 163)) . #8#)
               (EXIT
                (COND
                 ((QEQCAR |maxD| 0)
                  (COND
                   ((< (* (QCDR |maxD|) |o|) |guessDegree|)
                    (LETT |degs|
                          (PROGN
                           (LETT #3# NIL . #8#)
                           (SEQ (LETT |i| 1 . #8#) G190
                                (COND ((QSGREATERP |i| |o|) #9#))
                                (SEQ
                                 (EXIT
                                  (LETT #3# (CONS (QCDR |maxD|) #3#) . #8#)))
                                (LETT |i| (QSADD1 |i|) . #8#) #10# G191
                                (EXIT (NREVERSE0 #3#))))
                          . #8#))
                   (#11#
                    (SEQ (LETT |deg| (DIVIDE2 |guessDegree| |o|) . #8#)
                         (EXIT
                          (LETT |degs|
                                (PROGN
                                 (LETT #2# NIL . #8#)
                                 (SEQ (LETT |i| 1 . #8#) G190
                                      (COND ((QSGREATERP |i| |o|) #9#))
                                      (SEQ
                                       (EXIT
                                        (LETT #2#
                                              (CONS
                                               (COND
                                                ((< (QCDR |deg|) |i|)
                                                 (QCAR |deg|))
                                                ('T (+ (QCAR |deg|) 1)))
                                               #2#)
                                              . #8#)))
                                      (LETT |i| (QSADD1 |i|) . #8#) #10# G191
                                      (EXIT (NREVERSE0 #2#))))
                                . #8#))))))
                 (#11#
                  (SEQ (LETT |deg| (DIVIDE2 |guessDegree| |o|) . #8#)
                       (EXIT
                        (LETT |degs|
                              (PROGN
                               (LETT #1# NIL . #8#)
                               (SEQ (LETT |i| 1 . #8#) G190
                                    (COND ((QSGREATERP |i| |o|) #9#))
                                    (SEQ
                                     (EXIT
                                      (LETT #1#
                                            (CONS
                                             (COND
                                              ((< (QCDR |deg|) |i|)
                                               (QCAR |deg|))
                                              ('T (+ (QCAR |deg|) 1)))
                                             #1#)
                                            . #8#)))
                                    (LETT |i| (QSADD1 |i|) . #8#) #10# G191
                                    (EXIT (NREVERSE0 #1#))))
                              . #8#)))))))))
        (LETT |check|
              (CONS #'|GUESS;guessInterpolateModular!0|
                    (VECTOR $ |sigma| |options| D |o| |list|))
              . #8#)
        (COND
         ((SPADCALL |options| (QREFELT $ 503))
          (LETT |check|
                (SPADCALL |check| |list| (QVELT D 5) (QVELT D 6) |sigma|
                          (SPADCALL |o| (QVELT D 2)) (QREFELT $ 507))
                . #8#))
         (#11# (LETT |check| |check| . #8#)))
        (EXIT
         (SPADCALL |list| |degs| (QVELT D 5) (QVELT D 6) |sigma|
                   (SPADCALL |o| (QVELT D 2)) |check| (QREFELT $ 509)))))
      #5# (EXIT #5#))))) 

(DEFUN |GUESS;guessInterpolateModular!0| (|x| $$)
  (PROG (|list| |o| D |options| |sigma| $)
    (LETT |list| (QREFELT $$ 5) . #1=(|GUESS;guessInterpolateModular|))
    (LETT |o| (QREFELT $$ 4) . #1#)
    (LETT D (QREFELT $$ 3) . #1#)
    (LETT |options| (QREFELT $$ 2) . #1#)
    (LETT |sigma| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN (|GUESS;checkInterpolant| |list| |o| |x| D |options| |sigma| $))))) 

(DEFUN |GUESS;guessInterpolateFFFG|
       (|list| |degs| |o| |guessDegree| D |options| $)
  (PROG (#1=#:G3586 |j| |c| |cl| #2=#:G3600 #3=#:G3598 |i1| #4=#:G3599 |i2|
         |Mr| |m| |rl| |ce| #5=#:G3597 |i| M |vguessListF| |vguessList|
         |guessPolys| #6=#:G3572 |guessList| |guessS| |sumEta| |eta| #7=#:G3596
         |deg| #8=#:G3565 #9=#:G3595 #10=#:G3555 #11=#:G3594 |maxD|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |options| (QREFELT $ 492))
        (SEQ
         (LETT |eta| (SPADCALL |degs| (QREFELT $ 510))
               . #12=(|GUESS;guessInterpolateFFFG|))
         (EXIT
          (SPADCALL |eta| 1 (+ (SPADCALL |eta| 1 (QREFELT $ 511)) 1)
                    (QREFELT $ 512)))))
       (#13='T
        (SEQ (LETT |maxD| (SPADCALL |options| (QREFELT $ 163)) . #12#)
             (EXIT
              (COND
               ((QEQCAR |maxD| 0)
                (COND
                 ((< (* (QCDR |maxD|) |o|) |guessDegree|)
                  (LETT |eta|
                        (PROGN
                         (LETT #11# NIL . #12#)
                         (SEQ (LETT |i| 1 . #12#) G190
                              (COND ((QSGREATERP |i| |o|) #14=(GO G191)))
                              (SEQ
                               (EXIT
                                (LETT #11#
                                      (CONS
                                       (COND ((< |i| |o|) (+ (QCDR |maxD|) 1))
                                             ('T (QCDR |maxD|)))
                                       #11#)
                                      . #12#)))
                              (LETT |i| (QSADD1 |i|) . #12#) #15=(GO G190) G191
                              (EXIT (NREVERSE0 #11#))))
                        . #12#))
                 (#13#
                  (SEQ
                   (LETT |deg|
                         (DIVIDE2
                          (PROG1 (LETT #10# (- (+ |guessDegree| |o|) 1) . #12#)
                            (|check-subtype| (>= #10# 0)
                                             '(|NonNegativeInteger|) #10#))
                          |o|)
                         . #12#)
                   (EXIT
                    (LETT |eta|
                          (PROGN
                           (LETT #9# NIL . #12#)
                           (SEQ (LETT |i| 1 . #12#) G190
                                (COND ((QSGREATERP |i| |o|) #14#))
                                (SEQ
                                 (EXIT
                                  (LETT #9#
                                        (CONS
                                         (COND
                                          ((< (QCDR |deg|) |i|) (QCAR |deg|))
                                          ('T (+ (QCAR |deg|) 1)))
                                         #9#)
                                        . #12#)))
                                (LETT |i| (QSADD1 |i|) . #12#) #15# G191
                                (EXIT (NREVERSE0 #9#))))
                          . #12#))))))
               (#13#
                (SEQ
                 (LETT |deg|
                       (DIVIDE2
                        (PROG1 (LETT #8# (- (+ |guessDegree| |o|) 1) . #12#)
                          (|check-subtype| (>= #8# 0) '(|NonNegativeInteger|)
                                           #8#))
                        |o|)
                       . #12#)
                 (EXIT
                  (LETT |eta|
                        (PROGN
                         (LETT #7# NIL . #12#)
                         (SEQ (LETT |i| 1 . #12#) G190
                              (COND ((QSGREATERP |i| |o|) #14#))
                              (SEQ
                               (EXIT
                                (LETT #7#
                                      (CONS
                                       (COND
                                        ((< (QCDR |deg|) |i|) (QCAR |deg|))
                                        ('T (+ (QCAR |deg|) 1)))
                                       #7#)
                                      . #12#)))
                              (LETT |i| (QSADD1 |i|) . #12#) #15# G191
                              (EXIT (NREVERSE0 #7#))))
                        . #12#)))))))))
      (LETT |sumEta| (SPADCALL (ELT $ 245) |eta| (QREFELT $ 516)) . #12#)
      (LETT |guessS| (SPADCALL (|GUESS;list2UFPSF| |list| $) (QVELT D 1))
            . #12#)
      (LETT |guessList|
            (SPADCALL
             (SPADCALL (SPADCALL |guessS| |o| (QREFELT $ 517)) (QREFELT $ 518))
             (QREFELT $ 519))
            . #12#)
      (LETT |guessPolys|
            (|GUESS;getListSUPF| |guessList|
             (PROG1 (LETT #6# (- |sumEta| 1) . #12#)
               (|check-subtype| (>= #6# 0) '(|NonNegativeInteger|) #6#))
             $)
            . #12#)
      (COND
       ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7))
        (SEQ (LETT |vguessList| (SPADCALL |guessPolys| (QREFELT $ 521)) . #12#)
             (EXIT
              (LETT M
                    (SPADCALL (SPADCALL |sumEta| (QVELT D 10)) (QVELT D 7)
                              |vguessList| |eta| (QREFELT $ 523))
                    . #12#))))
       ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
        (SEQ
         (LETT |vguessListF| (SPADCALL |guessPolys| (QREFELT $ 525)) . #12#)
         (EXIT
          (LETT M
                (SPADCALL (SPADCALL |sumEta| (QVELT D 10)) (QVELT D 7)
                          |vguessListF| |eta| (QREFELT $ 527))
                . #12#))))
       (#13#
        (|error|
         "Guess: type parameter F should be either equal to S or equal                         to Fraction S")))
      (LETT |rl| NIL . #12#)
      (SEQ (LETT |i| 1 . #12#) (LETT #5# (SPADCALL M (QREFELT $ 528)) . #12#)
           G190 (COND ((QSGREATERP |i| #5#) #14#))
           (SEQ
            (LETT |ce|
                  (SPADCALL (SPADCALL M |i| (QREFELT $ 529)) (QREFELT $ 530))
                  . #12#)
            (EXIT
             (COND
              ((QEQCAR
                (|GUESS;checkInterpolant| |list| |o|
                 (SPADCALL (SPADCALL M |i| (QREFELT $ 529)) (QREFELT $ 530)) D
                 |options| |guessDegree| $)
                0)
               (LETT |rl| (CONS |i| |rl|) . #12#)))))
           (LETT |i| (QSADD1 |i|) . #12#) #15# G191 (EXIT NIL))
      (EXIT
       (COND ((NULL |rl|) (MAKE-ARRAY 0))
             (#13#
              (SEQ (LETT |rl| (NREVERSE |rl|) . #12#)
                   (LETT |m| (QVSIZE M) . #12#)
                   (LETT |Mr|
                         (SPADCALL |m| (LENGTH |rl|) (|spadConstant| $ 531)
                                   (QREFELT $ 532))
                         . #12#)
                   (SEQ (LETT |i2| NIL . #12#) (LETT #4# |rl| . #12#)
                        (LETT |i1| 1 . #12#) (LETT #3# (LENGTH |rl|) . #12#)
                        G190
                        (COND
                         ((OR (QSGREATERP |i1| #3#) (ATOM #4#)
                              (PROGN (LETT |i2| (CAR #4#) . #12#) NIL))
                          #14#))
                        (SEQ
                         (COND
                          ((|HasCategory| (QREFELT $ 7) '(|Field|))
                           (SEQ (LETT |c| (|spadConstant| $ 27) . #12#)
                                (EXIT
                                 (SEQ (LETT |j| 1 . #12#) G190
                                      (COND
                                       ((OR (QSGREATERP |j| |m|)
                                            (NULL
                                             (SPADCALL |c| (QREFELT $ 151))))
                                        #14#))
                                      (SEQ
                                       (EXIT
                                        (LETT |c|
                                              (SPADCALL
                                               (SPADCALL M |j| |i2|
                                                         (QREFELT $ 533))
                                               (QREFELT $ 147))
                                              . #12#)))
                                      (LETT |j| (QSADD1 |j|) . #12#) #15# G191
                                      (EXIT NIL)))))
                          ('T
                           (SEQ
                            (LETT |cl|
                                  (PROGN
                                   (LETT #2# NIL . #12#)
                                   (SEQ (LETT |j| 1 . #12#) G190
                                        (COND ((QSGREATERP |j| |m|) #14#))
                                        (SEQ
                                         (EXIT
                                          (LETT #2#
                                                (CONS
                                                 (SPADCALL
                                                  (SPADCALL M |j| |i2|
                                                            (QREFELT $ 533))
                                                  (QREFELT $ 534))
                                                 #2#)
                                                . #12#)))
                                        (LETT |j| (QSADD1 |j|) . #12#) #15#
                                        G191 (EXIT (NREVERSE0 #2#))))
                                  . #12#)
                            (EXIT
                             (LETT |c| (SPADCALL |cl| (QREFELT $ 535))
                                   . #12#)))))
                         (EXIT
                          (SEQ (LETT |j| 1 . #12#) G190
                               (COND ((QSGREATERP |j| |m|) #14#))
                               (SEQ
                                (EXIT
                                 (SPADCALL |Mr| |j| |i1|
                                           (PROG2
                                               (LETT #1#
                                                     (SPADCALL
                                                      (SPADCALL M |j| |i2|
                                                                (QREFELT $
                                                                         533))
                                                      |c| (QREFELT $ 536))
                                                     . #12#)
                                               (QCDR #1#)
                                             (|check-union| (QEQCAR #1# 0)
                                                            (|SparseUnivariatePolynomial|
                                                             (QREFELT $ 7))
                                                            #1#))
                                           (QREFELT $ 537))))
                               (LETT |j| (QSADD1 |j|) . #12#) #15# G191
                               (EXIT NIL))))
                        (LETT |i1|
                              (PROG1 (QSADD1 |i1|) (LETT #4# (CDR #4#) . #12#))
                              . #12#)
                        #15# G191 (EXIT NIL))
                   (EXIT |Mr|))))))))) 

(DEFUN |GUESS;guessInterpolate3|
       (|list| |o| |degreeLoss| |guessDegree| D |options| |vs| $)
  (PROG ()
    (RETURN
     (SEQ
      (SPADCALL
       (CONS #'|GUESS;guessInterpolate3!0|
             (VECTOR |options| D |guessDegree| |degreeLoss| |o| |list| $ |vs|))
       (QREFELT $ 550)))))) 

(DEFUN |GUESS;guessInterpolate3!0| ($$)
  (PROG (|vs| $ |list| |o| |degreeLoss| |guessDegree| D |options|)
    (LETT |vs| (QREFELT $$ 7) . #1=(|GUESS;guessInterpolate3|))
    (LETT $ (QREFELT $$ 6) . #1#)
    (LETT |list| (QREFELT $$ 5) . #1#)
    (LETT |o| (QREFELT $$ 4) . #1#)
    (LETT |degreeLoss| (QREFELT $$ 3) . #1#)
    (LETT |guessDegree| (QREFELT $$ 2) . #1#)
    (LETT D (QREFELT $$ 1) . #1#)
    (LETT |options| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (M0 |skip| M)
        (RETURN
         (SEQ
          (COND
           ((OR (SPADCALL |vs| (QREFELT $ 539))
                (SPADCALL |vs| (QREFELT $ 542)))
            (SPADCALL (QREFELT $ 541)))
           ('T
            (SEQ
             (LETT M0
                   (|GUESS;guessInterpolateModular| |list|
                    (SPADCALL |vs| (QREFELT $ 543)) |o| |degreeLoss|
                    |guessDegree| D |options| $)
                   NIL)
             (LETT |skip| (|spadConstant| $ 544) NIL)
             (LETT M
                   (COND
                    ((QEQCAR M0 1)
                     (SEQ
                      (LETT |skip|
                            (COND ((QCDR M0) (|spadConstant| $ 544))
                                  ('T (|spadConstant| $ 545)))
                            NIL)
                      (EXIT
                       (COND
                        ((QCDR M0)
                         (|GUESS;guessInterpolateFFFG| |list|
                          (SPADCALL |vs| (QREFELT $ 543)) |o| |guessDegree| D
                          |options| $))
                        ('T (SPADCALL (QREFELT $ 546)))))))
                    ('T (QCDR M0)))
                   NIL)
             (EXIT
              (COND
               (|skip|
                (|GUESS;guessInterpolate3| |list| |o| |degreeLoss|
                 |guessDegree| D |options| (SPADCALL |vs| (QREFELT $ 547)) $))
               ('T
                (SPADCALL M
                          (|GUESS;guessInterpolate3| |list| |o| |degreeLoss|
                           |guessDegree| D |options|
                           (SPADCALL |vs| (QREFELT $ 547)) $)
                          (QREFELT $ 548))))))))))))))) 

(DEFUN |GUESS;guessInterpolate2|
       (|list| |o| |degreeLoss| |guessDegree| D |options| $)
  (PROG (|vs| |maxD| |maxD0|)
    (RETURN
     (SEQ
      (LETT |vs|
            (COND
             ((SPADCALL |options| (QREFELT $ 492))
              (SEQ
               (LETT |maxD0| (SPADCALL |options| (QREFELT $ 163))
                     . #1=(|GUESS;guessInterpolate2|))
               (LETT |maxD|
                     (COND ((QEQCAR |maxD0| 0) (QCDR |maxD0|))
                           (#2='T |guessDegree|))
                     . #1#)
               (EXIT (SPADCALL |guessDegree| |maxD| |o| (QREFELT $ 551)))))
             (#2# (SPADCALL NIL (SPADCALL (QREFELT $ 552)) (QREFELT $ 553))))
            . #1#)
      (EXIT
       (|GUESS;guessInterpolate3| |list| |o| |degreeLoss| |guessDegree| D
        |options| |vs| $)))))) 

(DEFUN |GUESS;guessHPaux| (|list| D |options| $)
  (PROG (#1=#:G3707 |reslist| |res| #2=#:G3711 |i| |exprList| MS M #3=#:G3701
         #4=#:G3693 #5=#:G3710 #6=#:G3661 #7=#:G3653 |maxD| |guessDegree|
         |degreeLoss| #8=#:G3705 #9=#:G3643 |o| |exprS| |degreeS| |initials|
         #10=#:G3709 |e| #11=#:G3708 |dummy| |x| |op| |listDegree|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |reslist| NIL . #12=(|GUESS;guessHPaux|))
            (LETT |listDegree|
                  (- (- (LENGTH |list|) 1)
                     (SPADCALL |options| (QREFELT $ 204)))
                  . #12#)
            (COND
             ((< |listDegree| 0) (PROGN (LETT #1# |reslist| . #12#) (GO #1#))))
            (LETT |op|
                  (SPADCALL (SPADCALL |options| (QREFELT $ 554))
                            (QREFELT $ 555))
                  . #12#)
            (LETT |x| (SPADCALL |options| (QREFELT $ 499)) . #12#)
            (LETT |dummy| (SPADCALL (QREFELT $ 556)) . #12#)
            (LETT |initials|
                  (PROGN
                   (LETT #11# NIL . #12#)
                   (SEQ (LETT |e| NIL . #12#) (LETT #10# |list| . #12#) G190
                        (COND
                         ((OR (ATOM #10#)
                              (PROGN (LETT |e| (CAR #10#) . #12#) NIL))
                          #13=(GO G191)))
                        (SEQ
                         (EXIT
                          (LETT #11# (CONS (SPADCALL |e| (QREFELT $ 10)) #11#)
                                . #12#)))
                        (LETT #10# (CDR #10#) . #12#) #14=(GO G190) G191
                        (EXIT (NREVERSE0 #11#))))
                  . #12#)
            (LETT |degreeS| (QVELT D 0) . #12#)
            (LETT |exprS|
                  (SPADCALL
                   (SPADCALL |op| (SPADCALL |dummy| (QREFELT $ 23))
                             (QREFELT $ 557))
                   |dummy| (QVELT D 4))
                  . #12#)
            (SEQ
             (EXIT
              (SEQ (LETT |o| 2 . #12#) G190 NIL
                   (SEQ
                    (EXIT
                     (COND
                      ((SPADCALL
                        (SPADCALL |degreeS|
                                  (PROG1 (LETT #9# (- |o| 1) . #12#)
                                    (|check-subtype| (>= #9# 0)
                                                     '(|NonNegativeInteger|)
                                                     #9#))
                                  (QREFELT $ 558))
                        (QREFELT $ 559))
                       (PROGN (LETT #8# |$NoValue| . #12#) (GO #8#)))
                      ('T
                       (SEQ
                        (LETT |degreeLoss|
                              (SPADCALL |degreeS| |o| (QREFELT $ 409)) . #12#)
                        (LETT |guessDegree|
                              (- (- (+ |listDegree| 2) |degreeLoss|) |o|)
                              . #12#)
                        (COND
                         ((< |guessDegree| 0)
                          (SEQ
                           (COND
                            ((SPADCALL |options| (QREFELT $ 48))
                             (SPADCALL "not enough values for guessing"
                                       (QREFELT $ 62))))
                           (EXIT
                            (PROGN (LETT #1# |reslist| . #12#) (GO #1#))))))
                        (COND
                         ((SPADCALL |options| (QREFELT $ 48))
                          (SEQ
                           (SPADCALL
                            (SPADCALL "Trying order "
                                      (SPADCALL |o| (QREFELT $ 164))
                                      (QREFELT $ 51))
                            (QREFELT $ 54))
                           (EXIT
                            (SPADCALL
                             (SPADCALL "guessDegree is "
                                       (SPADCALL |guessDegree| (QREFELT $ 560))
                                       (QREFELT $ 51))
                             (QREFELT $ 54))))))
                        (LETT |maxD| (SPADCALL |options| (QREFELT $ 163))
                              . #12#)
                        (EXIT
                         (COND
                          ((QEQCAR |maxD| 0)
                           (COND
                            ((OR
                              (OR
                               (SPADCALL
                                (SPADCALL |degreeS| |o| (QREFELT $ 558))
                                (QREFELT $ 559))
                               (NULL (< (* (QCDR |maxD|) |o|) |guessDegree|)))
                              (<
                               (-
                                (- (+ |listDegree| 2)
                                   (SPADCALL |degreeS| (+ |o| 1)
                                             (QREFELT $ 409)))
                                (+ |o| 1))
                               (* (QCDR |maxD|) (+ |o| 1))))
                             (SEQ (LETT |exprList| NIL . #12#)
                                  (COND
                                   ((SPADCALL |options| (QREFELT $ 48))
                                    (SEQ
                                     (LETT |exprList|
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL |exprS| |o|
                                                       (QREFELT $ 561))
                                             (QREFELT $ 562))
                                            (QREFELT $ 563))
                                           . #12#)
                                     (SPADCALL #15="The list of expressions is"
                                               (QREFELT $ 62))
                                     (EXIT
                                      (SPADCALL
                                       (SPADCALL |exprList| (QREFELT $ 56))
                                       (QREFELT $ 54))))))
                                  (LETT MS
                                        (|GUESS;guessInterpolate2| |list| |o|
                                         |degreeLoss|
                                         (PROG1 (LETT #7# |guessDegree| . #12#)
                                           (|check-subtype| (>= #7# 0)
                                                            '(|NonNegativeInteger|)
                                                            #7#))
                                         D |options| $)
                                        . #12#)
                                  (EXIT
                                   (SEQ
                                    (EXIT
                                     (SEQ G190 NIL
                                          (SEQ
                                           (EXIT
                                            (COND
                                             ((SPADCALL MS (QREFELT $ 564))
                                              (PROGN
                                               (LETT #6# |$NoValue| . #12#)
                                               (GO #6#)))
                                             ('T
                                              (SEQ
                                               (LETT M
                                                     (SPADCALL MS
                                                               (QREFELT $ 565))
                                                     . #12#)
                                               (LETT MS
                                                     (SPADCALL MS
                                                               (QREFELT $ 566))
                                                     . #12#)
                                               (COND
                                                ((NULL |exprList|)
                                                 (LETT |exprList|
                                                       (SPADCALL
                                                        (SPADCALL
                                                         (SPADCALL |exprS| |o|
                                                                   (QREFELT $
                                                                            561))
                                                         (QREFELT $ 562))
                                                        (QREFELT $ 563))
                                                       . #12#)))
                                               (SEQ (LETT |i| 1 . #12#)
                                                    (LETT #5#
                                                          (SPADCALL M
                                                                    (QREFELT $
                                                                             528))
                                                          . #12#)
                                                    G190
                                                    (COND
                                                     ((QSGREATERP |i| #5#)
                                                      #13#))
                                                    (SEQ
                                                     (LETT |res|
                                                           (|GUESS;wrapInterpolant|
                                                            |o|
                                                            (SPADCALL
                                                             (SPADCALL M |i|
                                                                       (QREFELT
                                                                        $ 529))
                                                             (QREFELT $ 530))
                                                            |exprList|
                                                            |initials| D
                                                            |dummy| |op|
                                                            |options| $)
                                                           . #12#)
                                                     (EXIT
                                                      (COND
                                                       ((NULL (QEQCAR |res| 1))
                                                        (COND
                                                         ((NULL
                                                           (SPADCALL
                                                            (QCDR |res|)
                                                            |reslist|
                                                            (QREFELT $ 88)))
                                                          (LETT |reslist|
                                                                (CONS
                                                                 (QCDR |res|)
                                                                 |reslist|)
                                                                . #12#)))))))
                                                    (LETT |i| (QSADD1 |i|)
                                                          . #12#)
                                                    #14# G191 (EXIT NIL))
                                               (EXIT
                                                (COND
                                                 ((NULL (NULL |reslist|))
                                                  (COND
                                                   ((SPADCALL |options|
                                                              (QREFELT $ 57))
                                                    (PROGN
                                                     (LETT #1# |reslist|
                                                           . #12#)
                                                     (GO #1#))))))))))))
                                          NIL #14# G191 (EXIT NIL)))
                                    #6# (EXIT #6#)))))
                            ('T
                             (SEQ (|spadConstant| $ 11)
                                  (EXIT
                                   (COND
                                    ((SPADCALL |options| (QREFELT $ 48))
                                     (SPADCALL "iterating"
                                               (QREFELT $ 62)))))))))
                          ('T
                           (SEQ (LETT |exprList| NIL . #12#)
                                (COND
                                 ((SPADCALL |options| (QREFELT $ 48))
                                  (SEQ
                                   (LETT |exprList|
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL |exprS| |o|
                                                     (QREFELT $ 561))
                                           (QREFELT $ 562))
                                          (QREFELT $ 563))
                                         . #12#)
                                   (SPADCALL #15# (QREFELT $ 62))
                                   (EXIT
                                    (SPADCALL
                                     (SPADCALL |exprList| (QREFELT $ 56))
                                     (QREFELT $ 54))))))
                                (LETT MS
                                      (|GUESS;guessInterpolate2| |list| |o|
                                       |degreeLoss|
                                       (PROG1 (LETT #4# |guessDegree| . #12#)
                                         (|check-subtype| (>= #4# 0)
                                                          '(|NonNegativeInteger|)
                                                          #4#))
                                       D |options| $)
                                      . #12#)
                                (EXIT
                                 (SEQ
                                  (EXIT
                                   (SEQ G190 NIL
                                        (SEQ
                                         (EXIT
                                          (COND
                                           ((SPADCALL MS (QREFELT $ 564))
                                            (PROGN
                                             (LETT #3# |$NoValue| . #12#)
                                             (GO #3#)))
                                           ('T
                                            (SEQ
                                             (LETT M
                                                   (SPADCALL MS
                                                             (QREFELT $ 565))
                                                   . #12#)
                                             (LETT MS
                                                   (SPADCALL MS
                                                             (QREFELT $ 566))
                                                   . #12#)
                                             (COND
                                              ((NULL |exprList|)
                                               (LETT |exprList|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (SPADCALL |exprS| |o|
                                                                 (QREFELT $
                                                                          561))
                                                       (QREFELT $ 562))
                                                      (QREFELT $ 563))
                                                     . #12#)))
                                             (SEQ (LETT |i| 1 . #12#)
                                                  (LETT #2#
                                                        (SPADCALL M
                                                                  (QREFELT $
                                                                           528))
                                                        . #12#)
                                                  G190
                                                  (COND
                                                   ((QSGREATERP |i| #2#) #13#))
                                                  (SEQ
                                                   (LETT |res|
                                                         (|GUESS;wrapInterpolant|
                                                          |o|
                                                          (SPADCALL
                                                           (SPADCALL M |i|
                                                                     (QREFELT $
                                                                              529))
                                                           (QREFELT $ 530))
                                                          |exprList| |initials|
                                                          D |dummy| |op|
                                                          |options| $)
                                                         . #12#)
                                                   (EXIT
                                                    (COND
                                                     ((NULL (QEQCAR |res| 1))
                                                      (COND
                                                       ((NULL
                                                         (SPADCALL (QCDR |res|)
                                                                   |reslist|
                                                                   (QREFELT $
                                                                            88)))
                                                        (LETT |reslist|
                                                              (CONS
                                                               (QCDR |res|)
                                                               |reslist|)
                                                              . #12#)))))))
                                                  (LETT |i| (QSADD1 |i|)
                                                        . #12#)
                                                  #14# G191 (EXIT NIL))
                                             (EXIT
                                              (COND
                                               ((NULL (NULL |reslist|))
                                                (COND
                                                 ((SPADCALL |options|
                                                            (QREFELT $ 57))
                                                  (PROGN
                                                   (LETT #1# |reslist| . #12#)
                                                   (GO #1#))))))))))))
                                        NIL #14# G191 (EXIT NIL)))
                                  #3# (EXIT #3#))))))))))))
                   (LETT |o| (QSADD1 |o|) . #12#) #14# G191 (EXIT NIL)))
             #8# (EXIT #8#))
            (EXIT |reslist|)))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;guessADE;LLL;118| (|list| |options| $)
  (PROG (|opts| #1=#:G3718 #2=#:G3727 |i| #3=#:G3726 |maxP?| |hom?|)
    (RETURN
     (SEQ
      (LETT |hom?| (SPADCALL |options| (QREFELT $ 237))
            . #4=(|GUESS;guessADE;LLL;118|))
      (EXIT
       (COND
        ((QEQCAR |hom?| 1)
         (COND
          ((QCDR |hom?|)
           (SEQ (LETT |maxP?| (SPADCALL |options| (QREFELT $ 235)) . #4#)
                (EXIT
                 (COND
                  ((QEQCAR |maxP?| 0)
                   (SPADCALL
                    (PROGN
                     (LETT #3# NIL . #4#)
                     (SEQ (LETT |i| 1 . #4#) (LETT #2# (QCDR |maxP?|) . #4#)
                          G190 (COND ((QSGREATERP |i| #2#) (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #3#
                                  (CONS
                                   (SPADCALL |list|
                                             (CONS
                                              (SPADCALL
                                               (CONS 0
                                                     (PROG1
                                                         (LETT #1# |i| . #4#)
                                                       (|check-subtype|
                                                        (> #1# 0)
                                                        '(|PositiveInteger|)
                                                        #1#)))
                                               (QREFELT $ 567))
                                              |options|)
                                             (QREFELT $ 568))
                                   #3#)
                                  . #4#)))
                          (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    (QREFELT $ 569)))
                  (#5='T
                   (|error|
                    "Guess: setting homogeneous true requires that maxPower is also set"))))))
          (#5#
           (SEQ
            (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 570)) |options|) . #4#)
            (EXIT
             (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 376))
              |opts| $))))))
        (#5#
         (SEQ
          (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 570)) |options|) . #4#)
          (EXIT
           (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 376)) |opts|
            $)))))))))) 

(DEFUN |GUESS;guessADE;LL;119| (|list| $) (SPADCALL |list| NIL (QREFELT $ 568))) 

(DEFUN |GUESS;guessAlg;LLL;120| (|list| |options| $)
  (SPADCALL |list| (CONS (SPADCALL (CONS 0 0) (QREFELT $ 572)) |options|)
            (QREFELT $ 568))) 

(DEFUN |GUESS;guessAlg;LL;121| (|list| $) (SPADCALL |list| NIL (QREFELT $ 573))) 

(DEFUN |GUESS;guessHolo;LLL;122| (|list| |options| $)
  (SPADCALL |list| (CONS (SPADCALL (CONS 0 1) (QREFELT $ 575)) |options|)
            (QREFELT $ 568))) 

(DEFUN |GUESS;guessHolo;LL;123| (|list| $)
  (SPADCALL |list| NIL (QREFELT $ 576))) 

(DEFUN |GUESS;guessPade;LLL;124| (|list| |options| $)
  (PROG (|opts|)
    (RETURN
     (SEQ
      (LETT |opts|
            (APPEND |options|
                    (LIST (SPADCALL (CONS 0 0) (QREFELT $ 572))
                          (SPADCALL (CONS 0 1) (QREFELT $ 575))
                          (SPADCALL 'T (QREFELT $ 578))))
            |GUESS;guessPade;LLL;124|)
      (EXIT (SPADCALL |list| |opts| (QREFELT $ 568))))))) 

(DEFUN |GUESS;guessPade;LL;125| (|list| $)
  (SPADCALL |list| NIL (QREFELT $ 579))) 

(DEFUN |GUESS;guessFE;LLL;126| (|list| |options| $)
  (PROG (|opts| #1=#:G3754 #2=#:G3763 |i| #3=#:G3762 |maxP?| |hom?|)
    (RETURN
     (SEQ
      (LETT |hom?| (SPADCALL |options| (QREFELT $ 237))
            . #4=(|GUESS;guessFE;LLL;126|))
      (EXIT
       (COND
        ((QEQCAR |hom?| 1)
         (COND
          ((QCDR |hom?|)
           (SEQ (LETT |maxP?| (SPADCALL |options| (QREFELT $ 235)) . #4#)
                (EXIT
                 (COND
                  ((QEQCAR |maxP?| 0)
                   (SPADCALL
                    (PROGN
                     (LETT #3# NIL . #4#)
                     (SEQ (LETT |i| 1 . #4#) (LETT #2# (QCDR |maxP?|) . #4#)
                          G190 (COND ((QSGREATERP |i| #2#) (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #3#
                                  (CONS
                                   (SPADCALL |list|
                                             (CONS
                                              (SPADCALL
                                               (CONS 0
                                                     (PROG1
                                                         (LETT #1# |i| . #4#)
                                                       (|check-subtype|
                                                        (> #1# 0)
                                                        '(|PositiveInteger|)
                                                        #1#)))
                                               (QREFELT $ 567))
                                              |options|)
                                             (QREFELT $ 581))
                                   #3#)
                                  . #4#)))
                          (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    (QREFELT $ 569)))
                  (#5='T
                   (|error|
                    "Guess: setting homogeneous true requires that maxPower is also set"))))))
          (#5#
           (SEQ
            (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 570)) |options|) . #4#)
            (EXIT
             (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 381))
              |opts| $))))))
        (#5#
         (SEQ
          (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 570)) |options|) . #4#)
          (EXIT
           (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 381)) |opts|
            $)))))))))) 

(DEFUN |GUESS;guessFE;LL;127| (|list| $) (SPADCALL |list| NIL (QREFELT $ 581))) 

(DEFUN |GUESS;guessADE;SM;128| (|q| $)
  (PROG () (RETURN (SEQ (CONS #'|GUESS;guessADE;SM;128!0| (VECTOR |q| $)))))) 

(DEFUN |GUESS;guessADE;SM;128!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessADE;SM;128|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|opts| #2=#:G3771 #3=#:G3779 |i| #4=#:G3778 |maxP?| |hom?|)
        (RETURN
         (SEQ (LETT |hom?| (SPADCALL |z2| (QREFELT $ 237)) NIL)
              (EXIT
               (COND
                ((QEQCAR |hom?| 1)
                 (COND
                  ((QCDR |hom?|)
                   (SEQ (LETT |maxP?| (SPADCALL |z2| (QREFELT $ 235)) NIL)
                        (EXIT
                         (COND
                          ((QEQCAR |maxP?| 0)
                           (SPADCALL
                            (PROGN
                             (LETT #4# NIL NIL)
                             (SEQ (LETT |i| (|spadConstant| $ 90) NIL)
                                  (LETT #3# (QCDR |maxP?|) NIL) G190
                                  (COND ((> |i| #3#) (GO G191)))
                                  (SEQ
                                   (EXIT
                                    (LETT #4#
                                          (CONS
                                           (SPADCALL |z1|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (CONS 0
                                                             (PROG1
                                                                 (LETT #2# |i|
                                                                       NIL)
                                                               (|check-subtype|
                                                                (> #2# 0)
                                                                '(|PositiveInteger|)
                                                                #2#)))
                                                       (QREFELT $ 567))
                                                      |z2| (QREFELT $ 584))
                                                     (SPADCALL |q|
                                                               (QREFELT $
                                                                        583)))
                                           #4#)
                                          NIL)))
                                  (LETT |i| (+ |i| 1) NIL) (GO G190) G191
                                  (EXIT (NREVERSE0 #4#))))
                            (QREFELT $ 569)))
                          ('T
                           (|error|
                            "Guess: setting homogeneous true requires that maxPower is also set"))))))
                  ('T
                   (SEQ
                    (LETT |opts|
                          (SPADCALL
                           (SPADCALL (|spadConstant| $ 545) (QREFELT $ 570))
                           |z2| (QREFELT $ 584))
                          NIL)
                    (EXIT
                     (|GUESS;guessHPaux| |z1|
                      (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 391))) |opts|
                      $))))))
                ('T
                 (SEQ
                  (LETT |opts|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 545) (QREFELT $ 570)) |z2|
                         (QREFELT $ 584))
                        NIL)
                  (EXIT
                   (|GUESS;guessHPaux| |z1|
                    (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 391))) |opts|
                    $))))))))))))) 

(DEFUN |GUESS;guessAlg;SM;129| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessAlg;SM;129!0| (VECTOR |q| $))))) 

(DEFUN |GUESS;guessAlg;SM;129!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessAlg;SM;129|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1|
                (SPADCALL
                 (SPADCALL (CONS 0 (|spadConstant| $ 344)) (QREFELT $ 572))
                 |z2| (QREFELT $ 584))
                (SPADCALL |q| (QREFELT $ 583))))))) 

(DEFUN |GUESS;guessHolo;SM;130| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessHolo;SM;130!0| (VECTOR |q| $))))) 

(DEFUN |GUESS;guessHolo;SM;130!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessHolo;SM;130|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1|
                (SPADCALL
                 (SPADCALL (CONS 0 (|spadConstant| $ 90)) (QREFELT $ 575)) |z2|
                 (QREFELT $ 584))
                (SPADCALL |q| (QREFELT $ 583))))))) 

(DEFUN |GUESS;guessPade;SM;131| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessPade;SM;131!0| (VECTOR |q| $))))) 

(DEFUN |GUESS;guessPade;SM;131!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessPade;SM;131|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1|
                (SPADCALL |z2|
                          (LIST
                           (SPADCALL (CONS 0 (|spadConstant| $ 344))
                                     (QREFELT $ 572))
                           (SPADCALL (CONS 0 (|spadConstant| $ 90))
                                     (QREFELT $ 575))
                           (SPADCALL (|spadConstant| $ 545) (QREFELT $ 578)))
                          (QREFELT $ 587))
                (SPADCALL |q| (QREFELT $ 583))))))) 

(DEFUN |GUESS;guessRec;LLL;132| (|list| |options| $)
  (PROG (|opts| #1=#:G3802 #2=#:G3811 |i| #3=#:G3810 |maxP?| |hom?|)
    (RETURN
     (SEQ
      (LETT |hom?| (SPADCALL |options| (QREFELT $ 237))
            . #4=(|GUESS;guessRec;LLL;132|))
      (EXIT
       (COND
        ((QEQCAR |hom?| 1)
         (COND
          ((QCDR |hom?|)
           (SEQ (LETT |maxP?| (SPADCALL |options| (QREFELT $ 235)) . #4#)
                (EXIT
                 (COND
                  ((QEQCAR |maxP?| 0)
                   (SPADCALL
                    (PROGN
                     (LETT #3# NIL . #4#)
                     (SEQ (LETT |i| 1 . #4#) (LETT #2# (QCDR |maxP?|) . #4#)
                          G190 (COND ((QSGREATERP |i| #2#) (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #3#
                                  (CONS
                                   (SPADCALL |list|
                                             (CONS
                                              (SPADCALL
                                               (CONS 0
                                                     (PROG1
                                                         (LETT #1# |i| . #4#)
                                                       (|check-subtype|
                                                        (> #1# 0)
                                                        '(|PositiveInteger|)
                                                        #1#)))
                                               (QREFELT $ 567))
                                              |options|)
                                             (QREFELT $ 589))
                                   #3#)
                                  . #4#)))
                          (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    (QREFELT $ 569)))
                  (#5='T
                   (|error|
                    "Guess: setting homogeneous true requires that maxPower is also set"))))))
          (#5#
           (SEQ
            (LETT |opts| (CONS (SPADCALL 'NIL (QREFELT $ 570)) |options|)
                  . #4#)
            (EXIT
             (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 413))
              |opts| $))))))
        (#5#
         (SEQ
          (LETT |opts| (CONS (SPADCALL 'NIL (QREFELT $ 570)) |options|) . #4#)
          (EXIT
           (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 413)) |opts|
            $)))))))))) 

(DEFUN |GUESS;guessRec;LL;133| (|list| $) (SPADCALL |list| NIL (QREFELT $ 589))) 

(DEFUN |GUESS;guessPRec;LLL;134| (|list| |options| $)
  (SPADCALL |list| (CONS (SPADCALL (CONS 0 1) (QREFELT $ 575)) |options|)
            (QREFELT $ 589))) 

(DEFUN |GUESS;guessPRec;LL;135| (|list| $)
  (SPADCALL |list| NIL (QREFELT $ 591))) 

(DEFUN |GUESS;guessRat;LLL;136| (|list| |options| $)
  (PROG (|opts|)
    (RETURN
     (SEQ
      (LETT |opts|
            (APPEND |options|
                    (LIST (SPADCALL (CONS 0 0) (QREFELT $ 593))
                          (SPADCALL (CONS 0 1) (QREFELT $ 575))
                          (SPADCALL 'T (QREFELT $ 578))))
            |GUESS;guessRat;LLL;136|)
      (EXIT (SPADCALL |list| |opts| (QREFELT $ 589))))))) 

(DEFUN |GUESS;guessRat;LL;137| (|list| $) (SPADCALL |list| NIL (QREFELT $ 93))) 

(DEFUN |GUESS;guessRec;SM;138| (|q| $)
  (PROG () (RETURN (SEQ (CONS #'|GUESS;guessRec;SM;138!0| (VECTOR |q| $)))))) 

(DEFUN |GUESS;guessRec;SM;138!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessRec;SM;138|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|opts| #2=#:G3833 #3=#:G3841 |i| #4=#:G3840 |maxP?| |hom?|)
        (RETURN
         (SEQ (LETT |hom?| (SPADCALL |z2| (QREFELT $ 237)) NIL)
              (EXIT
               (COND
                ((QEQCAR |hom?| 1)
                 (COND
                  ((QCDR |hom?|)
                   (SEQ (LETT |maxP?| (SPADCALL |z2| (QREFELT $ 235)) NIL)
                        (EXIT
                         (COND
                          ((QEQCAR |maxP?| 0)
                           (SPADCALL
                            (PROGN
                             (LETT #4# NIL NIL)
                             (SEQ (LETT |i| (|spadConstant| $ 90) NIL)
                                  (LETT #3# (QCDR |maxP?|) NIL) G190
                                  (COND ((> |i| #3#) (GO G191)))
                                  (SEQ
                                   (EXIT
                                    (LETT #4#
                                          (CONS
                                           (SPADCALL |z1|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (CONS 0
                                                             (PROG1
                                                                 (LETT #2# |i|
                                                                       NIL)
                                                               (|check-subtype|
                                                                (> #2# 0)
                                                                '(|PositiveInteger|)
                                                                #2#)))
                                                       (QREFELT $ 567))
                                                      |z2| (QREFELT $ 584))
                                                     (SPADCALL |q|
                                                               (QREFELT $
                                                                        595)))
                                           #4#)
                                          NIL)))
                                  (LETT |i| (+ |i| 1) NIL) (GO G190) G191
                                  (EXIT (NREVERSE0 #4#))))
                            (QREFELT $ 569)))
                          ('T
                           (|error|
                            "Guess: setting homogeneous true requires that maxPower is also set"))))))
                  ('T
                   (SEQ
                    (LETT |opts|
                          (SPADCALL
                           (SPADCALL (|spadConstant| $ 544) (QREFELT $ 570))
                           |z2| (QREFELT $ 584))
                          NIL)
                    (EXIT
                     (|GUESS;guessHPaux| |z1|
                      (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 463))) |opts|
                      $))))))
                ('T
                 (SEQ
                  (LETT |opts|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 544) (QREFELT $ 570)) |z2|
                         (QREFELT $ 584))
                        NIL)
                  (EXIT
                   (|GUESS;guessHPaux| |z1|
                    (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 463))) |opts|
                    $))))))))))))) 

(DEFUN |GUESS;guessPRec;SM;139| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessPRec;SM;139!0| (VECTOR |q| $))))) 

(DEFUN |GUESS;guessPRec;SM;139!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessPRec;SM;139|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1|
                (SPADCALL
                 (SPADCALL (CONS 0 (|spadConstant| $ 90)) (QREFELT $ 575)) |z2|
                 (QREFELT $ 584))
                (SPADCALL |q| (QREFELT $ 595))))))) 

(DEFUN |GUESS;guessRat;SM;140| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessRat;SM;140!0| (VECTOR |q| $))))) 

(DEFUN |GUESS;guessRat;SM;140!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessRat;SM;140|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1|
                (SPADCALL |z2|
                          (LIST
                           (SPADCALL (CONS 0 (|spadConstant| $ 344))
                                     (QREFELT $ 593))
                           (SPADCALL (CONS 0 (|spadConstant| $ 90))
                                     (QREFELT $ 575))
                           (SPADCALL (|spadConstant| $ 545) (QREFELT $ 578)))
                          (QREFELT $ 587))
                (SPADCALL |q| (QREFELT $ 595))))))) 

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

(DEFUN |Guess;| (|#1| |#2| |#3| |#4| |#5|)
  (PROG (|pv$| $ |dv$| DV$5 DV$4 DV$3 DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|Guess|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT DV$3 (|devaluate| |#3|) . #1#)
      (LETT DV$4 (|devaluate| |#4|) . #1#)
      (LETT DV$5 (|devaluate| |#5|) . #1#)
      (LETT |dv$| (LIST '|Guess| DV$1 DV$2 DV$3 DV$4 DV$5) . #1#)
      (LETT $ (GETREFV 598) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (AND
                                           (|HasCategory| |#1|
                                                          '(|RetractableTo|
                                                            (|Symbol|)))
                                           (|HasCategory| |#2|
                                                          '(|RetractableTo|
                                                            (|Symbol|))))))
                      . #1#))
      (|haddProp| |$ConstructorCache| '|Guess| (LIST DV$1 DV$2 DV$3 DV$4 DV$5)
                  (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (QSETREFV $ 8 |#3|)
      (QSETREFV $ 9 |#4|)
      (QSETREFV $ 10 |#5|)
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (QSETREFV $ 212
                    (CONS (|dispatchFunction| |GUESS;guessExpRat;SM;26|)
                          $))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 232
                     (CONS (|dispatchFunction| |GUESS;guessBinRat;SM;38|)
                           $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 391
                     (CONS (|dispatchFunction| |GUESS;diffHP;SM;81|) $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 463
                     (CONS (|dispatchFunction| |GUESS;shiftHP;SM;104|) $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 583
                     (CONS (|dispatchFunction| |GUESS;guessADE;SM;128|) $))
           (QSETREFV $ 585
                     (CONS (|dispatchFunction| |GUESS;guessAlg;SM;129|) $))
           (QSETREFV $ 586
                     (CONS (|dispatchFunction| |GUESS;guessHolo;SM;130|) $))
           (QSETREFV $ 588
                     (CONS (|dispatchFunction| |GUESS;guessPade;SM;131|)
                           $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 595
                     (CONS (|dispatchFunction| |GUESS;guessRec;SM;138|) $))
           (QSETREFV $ 596
                     (CONS (|dispatchFunction| |GUESS;guessPRec;SM;139|) $))
           (QSETREFV $ 597
                     (CONS (|dispatchFunction| |GUESS;guessRat;SM;140|)
                           $)))))))
      $)))) 

(MAKEPROP '|Guess| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
              (|local| |#3|) (|local| |#4|) (|local| |#5|) (0 . |One|)
              (4 . |One|) (|Integer|) (|List| 13) (8 . |elt|) (14 . +)
              (|Mapping| 13 13 13) (20 . |reduce|) (|PositiveInteger|) (27 . *)
              (33 . |denominator|) (|Symbol|) (38 . |coerce|) (43 . |coerce|)
              (48 . |eval|) (55 . |Zero|) (59 . |Zero|) (63 . |Zero|)
              (|Boolean|) (67 . =) (73 . |numerator|) (|List| 6) (78 . |elt|)
              (84 . /) (90 . =) (|Fraction| 7) (96 . |coerce|)
              (|SparseUnivariatePolynomial| 6) (|Mapping| 6 7)
              (|SparseUnivariatePolynomial| 7)
              (|SparseUnivariatePolynomialFunctions2| 7 6) (101 . |map|)
              (|Union| 109 '"arbitrary") (|List| 70) (|GuessOptionFunctions0|)
              (107 . |maxLevel|) (112 . |indexName|) (117 . |debug|)
              (|OutputForm|) (122 . |coerce|) (127 . |hconcat|) (|Void|)
              (|OutputPackage|) (133 . |output|) (|List| 8) (138 . |coerce|)
              (143 . |one|) (|List| 22) (148 . |member?|) (154 . |member?|)
              (|String|) (160 . |output|) (165 . /) (171 . |one?|)
              (|Mapping| 29 6) (176 . |every?|) (182 . |coerce|) (|List| 49)
              (187 . |subscript|) (|GuessOption|) (193 . |indexName|)
              (198 . |maxLevel|) (|Mapping| 55 32 44) (|List| 73)
              |GUESS;guess;LLLLL;7| (203 . |One|) (207 . -) (|Segment| 8)
              (213 . SEGMENT) (|SegmentBinding| 8) (219 . |equation|)
              (|SegmentBinding| $) (225 . |product|) (231 . |init|)
              (|Fraction| 38) (235 . |init|) (239 . *) (245 . |member?|)
              (251 . -) (257 . |One|) (261 . |summation|) (267 . +)
              |GUESS;guessRat;LLL;136| |GUESS;guess;LL;8| |GUESS;guess;LLL;9|
              |GUESS;guess;LLLL;10| (|SparseMultivariatePolynomial| 6 121)
              (273 . |coerce|) (|Fraction| 97) (278 . |coerce|) (283 . |numer|)
              (|SparseMultivariatePolynomial| 7 121) (288 . |coerce|)
              (293 . |denom|) (|Fraction| 102) (298 . /) (304 . |zero?|)
              (309 . |leadingCoefficient|) (|NonNegativeInteger|)
              (314 . |degree|) (319 . ^) (325 . |reductum|) (330 . |numer|)
              (335 . |denom|)
              (|MPolyCatFunctions2| 121 (|IndexedExponents| 121)
                                    (|IndexedExponents| 121) 7 6 102 97)
              (340 . |map|) (|SparseUnivariatePolynomial| 102) (346 . |zero?|)
              (351 . |Zero|) (355 . |leadingCoefficient|)
              (|OrderedVariableList| (NRTEVAL (LIST '|a1| 'A))) (360 . |index|)
              (|List| 121) (365 . |eval|) (372 . |retract|) (377 . |degree|)
              (382 . |monomial|) (388 . |reductum|) (393 . +)
              (|Record| (|:| |num| 131) (|:| |den| 102))
              (|SparseUnivariatePolynomial| 105)
              (|UnivariatePolynomialCommonDenominator| 102 105 131)
              (399 . |splitDenominator|) (404 . *) (410 . |retract|)
              (|Mapping| 102 105)
              (|SparseUnivariatePolynomialFunctions2| 105 102) (415 . |map|)
              (421 . |coerce|) (|Fraction| 117) (426 . /) (432 . |degree|)
              (438 . |coerce|) (443 . |eval|) (450 . |univariate|)
              (455 . |degree|) (460 . |leadingCoefficient|) (465 . ^) (471 . -)
              (476 . *) (482 . |zero?|) (487 . |resultant|)
              (|Union| $ '"failed") (493 . |exquo|) (499 . |coerce|)
              (504 . |coerce|) (509 . *) (515 . +) (521 . |last|) (526 . -)
              (531 . |list|) (536 . ^) (542 . |maxDegree|) (547 . |coerce|)
              (|MoreSystemCommands|) (552 . |systemCommand|) (|Fraction| 131)
              (|List| 105) (|FractionFreeFastGaussian| 105 131)
              (557 . |interpolate|) (|Fraction| $) (564 . |elt|) (570 . -)
              (576 . |numer|) (|List| 7) (|NewtonInterpolation| 7)
              (581 . |newton|) (586 . |elt|) (592 . |minimumDegree|)
              (597 . |gcd|) (603 . |primitivePart|) (|Factored| 38)
              (|GeneralizedMultivariateFactorize| (|SingletonAsOrderedSet|)
                                                  (|IndexedExponents| 121) 6 6
                                                  38)
              (608 . |factor|) (|Record| (|:| |factor| 38) (|:| |exponent| 13))
              (|List| 185) (613 . |factors|) (618 . |coefficient|) (624 . -)
              (629 . |eval|) (636 . |zero?|) (641 . |univariate|)
              (646 . |numer|) (651 . |denom|) (656 . /) (662 . |numer|)
              (667 . |denom|) (672 . /) (|Kernel| 8) (678 . |kernel|)
              (|Kernel| $) (683 . |eval|) (690 . ^) (696 . |safety|)
              (701 . |first|) (707 . -) (713 . <) (|Mapping| 29 8)
              (719 . |select|) |GUESS;guessExpRat;LL;24|
              |GUESS;guessExpRat;LLL;25| (725 . |guessExpRat|) (730 . *)
              (736 . +) (742 . |coerce|) (747 . -) (753 . *) (759 . |One|)
              (|Mapping| 102 102 102) (|List| 102) (763 . |reduce|)
              (770 . |factorial|) (775 . |binomial|) (781 . /)
              (787 . |resultant|) |GUESS;guessBinRat;LL;31|
              |GUESS;guessBinRat;LLL;32| (794 . |One|) (798 . |coerce|)
              (|Mapping| 105 105 105) (803 . |reduce|) (810 . |guessBinRat|)
              (815 . |maxDerivative|) (|Union| 19 '"arbitrary")
              (820 . |maxPower|) (|Union| 19 29) (825 . |homogeneous|)
              (|Stream| 14) (|PartitionsAndPermutations|) (830 . |partitions|)
              (836 . |inc|) (|Mapping| 13 13) (|Stream| 13) (841 . |generate|)
              (847 . +) (853 . |partitions|) (|Stream| 238) (|Mapping| 238 13)
              (|StreamFunctions2| 13 238) (860 . |map|) (866 . |partitions|)
              (|StreamFunctions1| 14) (871 . |concat|) (876 . |cons|)
              (882 . |conjugates|) (887 . |#|) (892 . =) (|Mapping| 29 14)
              (898 . |select|) (|List| 14) (|Partition|) (904 . |powers|)
              (909 . |second|) (|Mapping| 8 8 8) (914 . |reduce|) (|U32Vector|)
              (920 . |construct|) (|U32VectorPolynomialOperations|)
              (925 . |differentiate|) (932 . |pow|)
              (940 . |truncated_multiplication|) (|Mapping| 266 266 266)
              (|List| 266) (948 . |reduce|) (954 . |copy_first|)
              (|UnivariateFormalPowerSeries| 6) (961 . ^) (967 . *)
              (|Mapping| 276 276 276) (|List| 276) (973 . |reduce|) (979 . ^)
              (|Mapping| 6 6) (985 . |map|)
              (|UnivariateFormalPowerSeriesFunctions| 6) (991 . |hadamard|)
              (997 . ^) (|Mapping| 38 38) (|UnivariateFormalPowerSeries| 38)
              (1003 . |map|) (|UnivariateFormalPowerSeriesFunctions| 38)
              (1009 . |hadamard|) (|Mapping| 289 289 289) (|List| 289)
              (1015 . |reduce|) (|Stream| 276) (|Mapping| 276 14)
              (|StreamFunctions2| 14 276) (1021 . |map|) (1027 . |Zero|)
              (1031 . |Zero|) (1035 . |Zero|) (1039 . |Zero|) (1043 . |Zero|)
              (1047 . |differentiate|) (1053 . |One|) (1057 . |One|)
              (1061 . |One|) (1065 . |One|) (1069 . |One|) (|Vector| 266)
              (1073 . |setelt|) (1080 . *) (|Fraction| 13) (1086 . |One|)
              (|Vector| 289) (1090 . |setelt|) (1097 . |subtractIfCan|)
              (|List| 261) (1103 . |position|) (|Reference| 319)
              (1109 . |deref|) (1114 . |coerce|) (1119 . |partition|)
              (|Reference| 260) (1124 . |deref|) (1129 . |setref|)
              (1135 . |setref|) (1141 . |max|) (1147 . |first|)
              (|Mapping| 13 14) (|ListFunctions2| 14 13) (1152 . |map|)
              (1158 . |reduce|) (1164 . |ref|) (1169 . |ref|) (1174 . |vector|)
              (1179 . |vector|) (|Stream| 8) (|Mapping| 8 14)
              (|StreamFunctions2| 14 8) (1184 . |map|) (1190 . |empty?|)
              (1195 . |Zero|) (1199 . |One|) (1203 . |max|) (|Stream| 109)
              (|Mapping| 109 14 109) (|StreamFunctions2| 14 109)
              (1209 . |scan|) (1216 . D) (1223 . D) (1229 . D)
              (|FractionFreeFastGaussian| 7 40) (1235 . |DiffAction|)
              (|FractionFreeFastGaussian| 38 289) (1242 . |DiffAction|)
              (1249 . |DiffC|) (1254 . |maxMixedDegree|) (1259 . |displayAsGF|)
              (1264 . |first|) (1270 . |complete|) (1275 . |entries|)
              (1280 . |elt|) (|Mapping| 296 276) (|Mapping| 311 266 13 13)
              (|Mapping| 366 109) (|Mapping| 316 289) (|Mapping| 368 453)
              (|Mapping| 339 8 22) (|Mapping| 7 109 109 40)
              (|Mapping| 38 109 109 289) (|Mapping| 8 109 22 8)
              (|Mapping| 175 109)
              (|Record| (|:| |degreeStream| 347) (|:| |guessStream| 365)
                        (|:| |guessModGen| 367) (|:| |testGen| 369)
                        (|:| |exprStream| 370) (|:| |kind| 22) (|:| |qvar| 22)
                        (|:| A 371) (|:| AF 372) (|:| AX 373) (|:| C 374))
              |GUESS;diffHP;LR;70| (1286 . |multiplyExponents|)
              (1292 . |multiplyExponents|) (|Mapping| 109 14) (1298 . |map|)
              |GUESS;substHP;LR;74| (1304 . *) (|Mapping| 6 13)
              (1310 . |multiplyCoefficients|) (1316 . |degree|)
              (1321 . |coerce|) (|Mapping| 38 13)
              (1326 . |multiplyCoefficients|) (1332 . |zero?|)
              (|Mapping| 375 44) (1337 . |diffHP|) (1342 . |quoByVar|)
              (|Mapping| 276 276) (|MappingPackage1| 276) (1347 . ^)
              (1353 . |quoByVar|) (|Mapping| 289 289) (|MappingPackage1| 289)
              (1358 . ^) (|IntegerCombinatoricFunctions| 13)
              (1364 . |stirling2|) (1370 . |ShiftAction|)
              (1377 . |ShiftAction|) (1384 . |ShiftC|) (1389 . |monomial|)
              (1395 . -) (1401 . -) (1406 . ^) (1412 . |elt|)
              (1418 . |monomial|) (1424 . -) (1430 . ^) |GUESS;shiftHP;LR;91|
              (1436 . *) (1442 . |coerce|) (1447 . |qShiftAction|)
              (1455 . |qShiftAction|) (1463 . |qShiftC|) (1469 . *)
              (1475 . |elt|) (1481 . *) (1487 . |elt|) (|Mapping| 280 276)
              (|StreamTensor| 276) (1493 . |tensorMap|) (1499 . |#|)
              (1504 . |new|) (|SingleInteger|) (1510 . |One|) (1514 . ^)
              (1520 . |rem|) (1526 . |setelt|) (1533 . /) (1539 . |ceiling|)
              (1544 . |first|) (1549 . |rest|) (1554 . |copy|) (1559 . |elt|)
              (1565 . |cons|) (1571 . |reverse!|) (|List| 311) (1576 . |cons|)
              (1582 . |rem|) (1588 . -) (1593 . =) (1599 . |reverse!|)
              (|List| $) (1604 . |concat|) (1609 . |Zero|) (|Mapping| 457 109)
              (|StreamTensor| 109) (1613 . |tensorMap|) (|List| 19)
              (1619 . |first|) (1624 . <) (1630 . |concat|) (|List| 109)
              (1636 . |cons|) (1642 . |reverse!|) (|Mapping| 55 8)
              (|StreamTensor| 8) (1647 . |tensorMap|) (1653 . |shiftHP|)
              (|Stream| 6) (1658 . |coerce|) (1663 . |series|) (|List| 38)
              (|Stream| 38) (1668 . |coerce|) (1673 . |series|) (1678 . +)
              (|SparseUnivariatePolynomial| 38) (|Mapping| 38 6)
              (|SparseUnivariatePolynomialFunctions2| 6 38) (1684 . |map|)
              (|UnivariatePolynomial| (NRTEVAL '|x|) 6)
              (1690 . |univariatePolynomial|) (1696 . |makeSUP|)
              (|Mapping| 38 276) (|ListFunctions2| 276 38) (1701 . |map|)
              (|List| 40) (1707 . |elt|) (1713 . |zero?|) (1718 . |zero?|)
              (|List| 472) (|Vector| 472) (1723 . |vector|)
              (1728 . |generalCoefficient|) (1736 . |print|) (1741 . |ground?|)
              (1746 . |allDegrees|) (1751 . |last|) (1756 . |coerce|)
              (1761 . |elt|) (|BasicOperator|) (1767 . |name|)
              (1772 . |freeOf?|) (1778 . |variableName|)
              (|RecurrenceOperator| 13 8) (1783 . |evalADE|) (1793 . |evalRec|)
              (1803 . |MonteCarlo|) (|Union| '"good" '"reject" '"no_solution")
              (|Mapping| 504 482) (|ModularHermitePadeSolver| 6 7)
              (1808 . |gen_Monte_Carlo_check|) (|Union| 522 29)
              (1818 . |HP_solve|) (1829 . |copy|) (1834 . |elt|)
              (1840 . |setelt|) (1847 . +) (1853 . +) (|Mapping| 109 109 109)
              (1859 . |reduce|) (1865 . |first|) (1871 . |complete|)
              (1876 . |entries|) (|Vector| 40) (1881 . |vector|) (|Matrix| 40)
              (1886 . |generalInterpolation|) (|Vector| 38) (1894 . |vector|)
              (|FractionFreeFastGaussianFractions| 7 40 38)
              (1899 . |generalInterpolation|) (1907 . |ncols|)
              (1912 . |column|) (1918 . |entries|) (1923 . |Zero|)
              (1927 . |new|) (1934 . |elt|) (1941 . |content|) (1946 . |gcd|)
              (1951 . |exquo|) (1957 . |setelt|) (|Stream| 457)
              (1965 . |explicitlyEmpty?|) (|Stream| 522) (1970 . |empty|)
              (1974 . |empty?|) (1979 . |frst|) (1984 . |false|)
              (1988 . |true|) (1992 . |empty|) (1996 . |rst|) (2001 . |concat|)
              (|Mapping| $) (2007 . |delay|) (2012 . |genVectorStream|)
              (2019 . |empty|) (2023 . |concat|) (2029 . |functionName|)
              (2034 . |operator|) (2039 . |new|) (2043 . |elt|) (2049 . |rest|)
              (2055 . |empty?|) (2060 . |coerce|) (2065 . |first|)
              (2071 . |complete|) (2076 . |entries|) (2081 . |empty?|)
              (2086 . |first|) (2091 . |rst|) (2096 . |homogeneous|)
              |GUESS;guessADE;LLL;118| (2101 . |concat|) (2106 . |displayAsGF|)
              |GUESS;guessADE;LL;119| (2111 . |maxDerivative|)
              |GUESS;guessAlg;LLL;120| |GUESS;guessAlg;LL;121|
              (2116 . |maxPower|) |GUESS;guessHolo;LLL;122|
              |GUESS;guessHolo;LL;123| (2121 . |allDegrees|)
              |GUESS;guessPade;LLL;124| |GUESS;guessPade;LL;125|
              |GUESS;guessFE;LLL;126| |GUESS;guessFE;LL;127|
              (2126 . |guessADE|) (2131 . |cons|) (2137 . |guessAlg|)
              (2142 . |guessHolo|) (2147 . |append|) (2153 . |guessPade|)
              |GUESS;guessRec;LLL;132| |GUESS;guessRec;LL;133|
              |GUESS;guessPRec;LLL;134| |GUESS;guessPRec;LL;135|
              (2158 . |maxShift|) |GUESS;guessRat;LL;137| (2163 . |guessRec|)
              (2168 . |guessPRec|) (2173 . |guessRat|))
           '#(|substHP| 2178 |shiftHP| 2183 |guessRec| 2193 |guessRat| 2209
              |guessPade| 2225 |guessPRec| 2241 |guessHolo| 2257 |guessFE| 2273
              |guessExpRat| 2284 |guessBinRat| 2300 |guessAlg| 2316 |guessADE|
              2332 |guess| 2348 |diffHP| 2374)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 597
                                                 '(0 6 0 11 0 7 0 12 2 14 13 0
                                                   13 15 2 13 0 0 0 16 3 14 13
                                                   17 0 13 18 2 13 0 19 0 20 1
                                                   8 0 0 21 1 8 0 22 23 1 8 0
                                                   13 24 3 8 0 0 0 0 25 0 6 0
                                                   26 0 7 0 27 0 8 0 28 2 8 29
                                                   0 0 30 1 8 0 0 31 2 32 6 0
                                                   13 33 2 8 0 0 0 34 2 6 29 0
                                                   0 35 1 36 0 7 37 2 41 38 39
                                                   40 42 1 45 43 44 46 1 45 22
                                                   44 47 1 45 29 44 48 1 43 49
                                                   0 50 2 49 0 0 0 51 1 53 52
                                                   49 54 1 55 49 0 56 1 45 29
                                                   44 57 2 58 29 22 0 59 2 32
                                                   29 6 0 60 1 53 52 61 62 2 6
                                                   0 0 0 63 1 6 29 0 64 2 32 29
                                                   65 0 66 1 19 49 0 67 2 22 0
                                                   0 68 69 1 70 0 22 71 1 70 0
                                                   43 72 0 8 0 76 2 8 0 0 0 77
                                                   2 78 0 8 8 79 2 80 0 22 78
                                                   81 2 8 0 0 82 83 0 38 0 84 0
                                                   85 0 86 2 8 0 0 0 87 2 55 29
                                                   8 0 88 2 6 0 0 0 89 0 19 0
                                                   90 2 8 0 0 82 91 2 8 0 0 0
                                                   92 1 97 0 6 98 1 99 0 97 100
                                                   1 36 7 0 101 1 102 0 7 103 1
                                                   36 7 0 104 2 105 0 102 102
                                                   106 1 38 29 0 107 1 38 6 0
                                                   108 1 38 109 0 110 2 8 0 0
                                                   109 111 1 38 0 0 112 1 85 38
                                                   0 113 1 85 38 0 114 2 115 97
                                                   39 102 116 1 117 29 0 118 0
                                                   38 0 119 1 117 102 0 120 1
                                                   121 0 19 122 3 97 0 0 123 32
                                                   124 1 97 6 0 125 1 117 109 0
                                                   126 2 38 0 6 109 127 1 117 0
                                                   0 128 2 38 0 0 0 129 1 132
                                                   130 131 133 2 105 0 0 102
                                                   134 1 105 102 0 135 2 137
                                                   117 136 131 138 1 117 0 102
                                                   139 2 140 0 117 117 141 2
                                                   102 109 0 121 142 1 7 0 13
                                                   143 3 102 0 0 121 7 144 1
                                                   102 40 0 145 1 40 109 0 146
                                                   1 40 7 0 147 2 7 0 0 109 148
                                                   1 7 0 0 149 2 7 0 0 0 150 1
                                                   7 29 0 151 2 40 7 0 0 152 2
                                                   7 153 0 0 154 1 102 0 121
                                                   155 1 105 0 102 156 2 105 0
                                                   0 0 157 2 105 0 0 0 158 1 14
                                                   13 0 159 1 13 0 0 160 1 14 0
                                                   13 161 2 105 0 0 13 162 1 45
                                                   43 44 163 1 109 49 0 164 1
                                                   165 52 61 166 3 169 167 168
                                                   168 109 170 2 131 105 171
                                                   105 172 2 105 0 0 0 173 1
                                                   105 102 0 174 1 176 40 175
                                                   177 2 61 0 0 0 178 1 40 109
                                                   0 179 2 40 0 0 0 180 1 40 0
                                                   0 181 1 183 182 38 184 1 182
                                                   186 0 187 2 38 6 0 109 188 1
                                                   6 0 0 189 3 97 0 0 121 6 190
                                                   1 97 29 0 191 1 97 38 0 192
                                                   1 167 131 0 193 1 167 131 0
                                                   194 2 140 0 0 0 195 1 140
                                                   117 0 196 1 140 117 0 197 2
                                                   85 0 38 38 198 1 199 0 22
                                                   200 3 8 0 0 201 0 202 2 8 0
                                                   0 0 203 1 45 109 44 204 2 32
                                                   0 0 109 205 2 13 0 0 0 206 2
                                                   13 29 0 0 207 2 55 0 208 0
                                                   209 1 0 73 22 212 2 102 0 13
                                                   0 213 2 102 0 0 0 214 1 102
                                                   0 13 215 2 102 0 0 0 216 2
                                                   102 0 0 0 217 0 102 0 218 3
                                                   220 102 219 0 102 221 1 13 0
                                                   0 222 2 8 0 0 0 223 2 105 0
                                                   0 0 224 3 102 0 0 0 121 225
                                                   0 105 0 228 1 6 0 22 229 3
                                                   168 105 230 0 105 231 1 0 73
                                                   22 232 1 45 43 44 233 1 45
                                                   234 44 235 1 45 236 44 237 2
                                                   239 238 13 13 240 1 13 0 0
                                                   241 2 243 0 242 13 244 2 109
                                                   0 0 0 245 3 239 238 13 13 13
                                                   246 2 249 247 248 243 250 1
                                                   239 238 13 251 1 252 238 247
                                                   253 2 238 0 14 0 254 1 239
                                                   238 238 255 1 14 109 0 256 2
                                                   109 29 0 0 257 2 238 0 258 0
                                                   259 1 261 260 14 262 1 14 13
                                                   0 263 2 55 8 264 0 265 1 266
                                                   0 14 267 3 268 266 266 109
                                                   13 269 4 268 266 266 19 109
                                                   13 270 4 268 266 266 266 13
                                                   13 271 2 273 266 272 0 274 3
                                                   268 52 266 266 13 275 2 276
                                                   0 0 109 277 2 276 0 0 0 278
                                                   2 280 276 279 0 281 2 6 0 0
                                                   109 282 2 276 0 283 0 284 2
                                                   285 276 276 276 286 2 38 0 0
                                                   109 287 2 289 0 288 0 290 2
                                                   291 289 289 289 292 2 294
                                                   289 293 0 295 2 298 296 297
                                                   238 299 0 105 0 300 0 97 0
                                                   301 0 140 0 302 0 276 0 303
                                                   0 289 0 304 2 268 266 266 13
                                                   305 0 38 0 306 0 97 0 307 0
                                                   140 0 308 0 276 0 309 0 289
                                                   0 310 3 311 266 0 13 266 312
                                                   2 289 0 0 0 313 0 314 0 315
                                                   3 316 289 0 13 289 317 2 261
                                                   153 0 0 318 2 319 13 261 0
                                                   320 1 321 319 0 322 1 261 14
                                                   0 323 1 261 0 14 324 1 325
                                                   260 0 326 2 325 260 0 260
                                                   327 2 321 319 0 319 328 2 13
                                                   0 0 0 329 1 14 13 0 330 2
                                                   332 14 331 260 333 2 14 13
                                                   17 0 334 1 325 0 260 335 1
                                                   321 0 319 336 1 311 0 273
                                                   337 1 316 0 294 338 2 341
                                                   339 340 238 342 1 14 29 0
                                                   343 0 109 0 344 0 109 0 345
                                                   2 109 0 0 0 346 3 349 347
                                                   109 348 238 350 3 8 0 0 22
                                                   109 351 2 276 0 0 109 352 2
                                                   289 0 0 109 353 3 354 7 109
                                                   109 40 355 3 356 38 109 109
                                                   289 357 1 354 175 109 358 1
                                                   45 109 44 359 1 45 29 44 360
                                                   2 238 0 0 109 361 1 238 0 0
                                                   362 1 238 260 0 363 2 238 14
                                                   0 13 364 2 276 0 0 19 377 2
                                                   289 0 0 19 378 2 349 347 379
                                                   238 380 2 13 0 109 0 382 2
                                                   276 0 383 0 384 1 268 13 266
                                                   385 1 38 0 6 386 2 289 0 387
                                                   0 388 1 109 29 0 389 1 0 390
                                                   22 391 1 276 0 0 392 2 394
                                                   393 393 109 395 1 289 0 0
                                                   396 2 398 397 397 109 399 2
                                                   400 13 13 13 401 3 354 7 109
                                                   109 40 402 3 356 38 109 109
                                                   289 403 1 354 175 109 404 2
                                                   276 0 6 109 405 2 276 0 0 0
                                                   406 1 314 0 0 407 2 276 0 0
                                                   314 408 2 347 109 0 13 409 2
                                                   289 0 38 109 410 2 289 0 0 0
                                                   411 2 289 0 0 314 412 2 8 0
                                                   109 0 414 1 7 0 22 415 4 354
                                                   7 7 109 109 40 416 4 356 38
                                                   38 109 109 289 417 2 354 175
                                                   7 109 418 2 276 0 6 0 419 2
                                                   276 0 0 0 420 2 289 0 38 0
                                                   421 2 289 0 0 0 422 2 424
                                                   296 296 423 425 1 266 109 0
                                                   426 2 266 0 109 13 427 0 428
                                                   0 429 2 13 0 0 109 430 2 13
                                                   0 0 0 431 3 266 13 0 13 13
                                                   432 2 314 0 13 13 433 1 314
                                                   13 0 434 1 273 266 0 435 1
                                                   273 0 0 436 1 266 0 0 437 2
                                                   266 13 0 13 438 2 273 0 266
                                                   0 439 1 273 0 0 440 2 441 0
                                                   311 0 442 2 109 0 0 0 443 1
                                                   428 0 0 444 2 13 29 0 0 445
                                                   1 441 0 0 446 1 311 0 447
                                                   448 0 428 0 449 2 451 347
                                                   347 450 452 1 453 19 0 454 2
                                                   19 29 0 0 455 2 294 0 0 0
                                                   456 2 457 0 109 0 458 1 294
                                                   0 0 459 2 461 339 339 460
                                                   462 1 0 390 22 463 1 464 0
                                                   32 465 1 276 0 464 466 1 468
                                                   0 467 469 1 289 0 468 470 2
                                                   289 0 0 0 471 2 474 472 473
                                                   38 475 2 276 476 0 109 477 1
                                                   476 38 0 478 2 480 467 479
                                                   280 481 2 482 40 0 13 483 1
                                                   40 29 0 484 1 6 29 0 485 1
                                                   487 0 486 488 4 356 38 372
                                                   316 109 487 489 1 49 52 0
                                                   490 1 38 29 0 491 1 45 29 44
                                                   492 1 482 40 0 493 1 482 49
                                                   0 494 2 55 8 0 13 495 1 496
                                                   22 0 497 2 8 29 0 22 498 1
                                                   45 22 44 499 6 500 8 496 22
                                                   8 8 8 55 501 6 500 8 496 22
                                                   8 8 8 55 502 1 45 29 44 503
                                                   6 506 505 505 32 22 22 109
                                                   366 507 7 506 508 32 457 22
                                                   22 109 366 505 509 1 457 0 0
                                                   510 2 457 109 0 13 511 3 457
                                                   109 0 13 109 512 2 7 0 0 0
                                                   513 2 276 0 0 0 514 2 457
                                                   109 515 0 516 2 296 0 0 109
                                                   517 1 296 0 0 518 1 296 280
                                                   0 519 1 520 0 482 521 4 354
                                                   522 175 371 520 457 523 1
                                                   524 0 467 525 4 526 522 175
                                                   371 524 457 527 1 522 109 0
                                                   528 2 522 520 0 13 529 1 520
                                                   482 0 530 0 40 0 531 3 522 0
                                                   109 109 40 532 3 522 40 0 13
                                                   13 533 1 40 7 0 534 1 7 0
                                                   447 535 2 40 153 0 7 536 4
                                                   522 40 0 13 13 40 537 1 538
                                                   29 0 539 0 540 0 541 1 538
                                                   29 0 542 1 538 457 0 543 0
                                                   29 0 544 0 29 0 545 0 522 0
                                                   546 1 538 0 0 547 2 540 0
                                                   522 0 548 1 540 0 549 550 3
                                                   354 538 109 109 109 551 0
                                                   538 0 552 2 538 0 457 0 553
                                                   1 45 22 44 554 1 496 0 22
                                                   555 0 22 0 556 2 8 0 496 0
                                                   557 2 347 0 0 109 558 1 347
                                                   29 0 559 1 13 49 0 560 2 339
                                                   0 0 109 561 1 339 0 0 562 1
                                                   339 55 0 563 1 540 29 0 564
                                                   1 540 522 0 565 1 540 0 0
                                                   566 1 70 0 236 567 1 55 0
                                                   447 569 1 70 0 29 570 1 70 0
                                                   43 572 1 70 0 234 575 1 70 0
                                                   29 578 1 0 73 22 583 2 44 0
                                                   70 0 584 1 0 73 22 585 1 0
                                                   73 22 586 2 44 0 0 0 587 1 0
                                                   73 22 588 1 70 0 43 593 1 0
                                                   73 22 595 1 0 73 22 596 1 0
                                                   73 22 597 1 0 375 44 381 1 1
                                                   390 22 463 1 0 375 44 413 1
                                                   1 73 22 595 1 0 55 32 590 2
                                                   0 55 32 44 589 1 1 73 22 597
                                                   2 0 55 32 44 93 1 0 55 32
                                                   594 1 1 73 22 588 2 0 55 32
                                                   44 579 1 0 55 32 580 1 1 73
                                                   22 596 2 0 55 32 44 591 1 0
                                                   55 32 592 1 1 73 22 586 1 0
                                                   55 32 577 2 0 55 32 44 576 2
                                                   0 55 32 44 581 1 0 55 32 582
                                                   1 1 73 22 212 2 0 55 32 44
                                                   211 1 0 55 32 210 1 1 73 22
                                                   232 1 0 55 32 226 2 0 55 32
                                                   44 227 1 1 73 22 585 2 0 55
                                                   32 44 573 1 0 55 32 574 1 1
                                                   73 22 583 1 0 55 32 571 2 0
                                                   55 32 44 568 2 0 55 32 44 95
                                                   1 0 55 32 94 4 0 55 32 74 58
                                                   44 75 3 0 55 32 74 58 96 1 1
                                                   390 22 391 1 0 375 44
                                                   376)))))
           '|lookupComplete|)) 
