
(/VERSIONCHECK 2) 

(DEFUN |GUESS;ord1| (|x| |i| $)
  (PROG (#1=#:G3281 |k| #2=#:G3280 |j| #3=#:G3279 #4=#:G3278 |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=#:G3288 |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=#:G3303 |k| #2=#:G3302 |j| #3=#:G3301 #4=#:G3300 |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=#:G3309 |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;getVariables| (|lF| $)
  (PROG (|lvar| |ll|)
    (RETURN
     (SEQ (LETT |lvar| NIL . #1=(|GUESS;getVariables|))
          (COND
           ((|HasSignature| (QREFELT $ 7)
                            (LIST '|variables|
                                  (LIST (LIST '|List| '(|Symbol|))
                                        (|devaluate| (QREFELT $ 7)))))
            (SEQ
             (COND
              ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7))
               (LETT |ll| (SPADCALL (ELT $ 22) |lF| (QREFELT $ 27)) . #1#))
              ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
               (LETT |ll|
                     (SPADCALL (CONS #'|GUESS;getVariables!0| $) |lF|
                               (QREFELT $ 35))
                     . #1#))
              (#2='T
               (|error|
                "Guess: type parameter F should be either equal to S or equal                             to Fraction S")))
             (EXIT
              (LETT |lvar| (SPADCALL (ELT $ 31) |ll| (QREFELT $ 37)) . #1#))))
           (#2# (LETT |lvar| NIL . #1#)))
          (EXIT (SPADCALL (ELT $ 39) |lvar| (QREFELT $ 43))))))) 

(DEFUN |GUESS;getVariables!0| (|g| $)
  (SPADCALL (SPADCALL (SPADCALL |g| (QREFELT $ 29)) (QREFELT $ 22))
            (SPADCALL (SPADCALL |g| (QREFELT $ 30)) (QREFELT $ 22))
            (QREFELT $ 31))) 

(DEFUN |GUESS;checkResult| (|res| |n| |l| |list| $)
  (PROG (#1=#:G3323 #2=#:G3319 |num| #3=#:G3318 |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 $ 44))
                              (SPADCALL |n| (QREFELT $ 39))
                              (SPADCALL (- |i| 1) (QREFELT $ 45))
                              (QREFELT $ 46))
                    . #4#)
              (COND
               ((SPADCALL |den| (|spadConstant| $ 49) (QREFELT $ 51))
                (PROGN
                 (LETT #1#
                       (PROG1 (LETT #3# |i| . #4#)
                         (|check-subtype| (>= #3# 0) '(|NonNegativeInteger|)
                                          #3#))
                       . #4#)
                 (GO #1#))))
              (LETT |num|
                    (SPADCALL (SPADCALL |res| (QREFELT $ 52))
                              (SPADCALL |n| (QREFELT $ 39))
                              (SPADCALL (- |i| 1) (QREFELT $ 45))
                              (QREFELT $ 46))
                    . #4#)
              (EXIT
               (COND
                ((NULL
                  (SPADCALL (SPADCALL |list| |i| (QREFELT $ 53))
                            (SPADCALL (SPADCALL |num| |den| (QREFELT $ 54))
                                      (QREFELT $ 9))
                            (QREFELT $ 55)))
                 (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 $ 56) |p| (QREFELT $ 61)))
        ('T
         (|error|
          "Guess: type parameter F should be either equal to S or equal                       to Fraction S")))) 

(DEFUN |GUESS;guess;LLLLL;8| (|list| |guessers| |ops| |options| $)
  (PROG (|res| #1=#:G3388 |guess| |sumGuess| |summ| |init| #2=#:G3387 |var|
         |sumList| #3=#:G3386 |i| #4=#:G3385 #5=#:G3379 #6=#:G3384 |prodGuess|
         |prod| #7=#:G3383 |prodList| #8=#:G3382 #9=#:G3381 |newMaxLevel|
         #10=#:G3338 #11=#:G3380 |guesser| |len| #12=#:G3333 |xx|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |newMaxLevel| (SPADCALL |options| (QREFELT $ 65))
              . #13=(|GUESS;guess;LLLLL;8|))
        (LETT |xx|
              (SPADCALL (SPADCALL |options| (QREFELT $ 66)) (QREFELT $ 39))
              . #13#)
        (COND
         ((SPADCALL |options| (QREFELT $ 67))
          (COND
           ((QEQCAR |newMaxLevel| 0)
            (SPADCALL
             (SPADCALL "guessing level "
                       (SPADCALL |newMaxLevel| (QREFELT $ 69)) (QREFELT $ 70))
             (QREFELT $ 73))))))
        (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 $ 67))
                (SPADCALL
                 (SPADCALL "res " (SPADCALL |res| (QREFELT $ 74))
                           (QREFELT $ 70))
                 (QREFELT $ 73))))
              (EXIT
               (COND
                ((SPADCALL |options| (QREFELT $ 75))
                 (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 $ 76))
          (COND
           ((SPADCALL (|spadConstant| $ 47) |list| (QREFELT $ 77))
            (SEQ (|spadConstant| $ 47)
                 (EXIT
                  (COND
                   ((SPADCALL |options| (QREFELT $ 67))
                    (SPADCALL "cannot use guessProduct because of zeros"
                              (QREFELT $ 79)))))))
           (#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 $ 53))
                                   (SPADCALL |list| |i| (QREFELT $ 53))
                                   (QREFELT $ 80))
                                  #9#)
                                 . #13#)))
                         (LETT |i| (QSADD1 |i|) . #13#) #15# G191
                         (EXIT (NREVERSE0 #9#))))
                   . #13#)
             (EXIT
              (COND
               ((NULL (SPADCALL (ELT $ 82) |prodList| (QREFELT $ 84)))
                (SEQ
                 (LETT |var|
                       (SPADCALL '|p| (LIST (SPADCALL |len| (QREFELT $ 85)))
                                 (QREFELT $ 87))
                       . #13#)
                 (LETT |prodGuess| NIL . #13#)
                 (SEQ (LETT |guess| NIL . #13#)
                      (LETT #7#
                            (SPADCALL |prodList| |guessers| |ops|
                                      (APPEND
                                       (LIST (SPADCALL |var| (QREFELT $ 89))
                                             (SPADCALL |newMaxLevel|
                                                       (QREFELT $ 90)))
                                       |options|)
                                      (QREFELT $ 93))
                            . #13#)
                      G190
                      (COND
                       ((OR (ATOM #7#)
                            (PROGN (LETT |guess| (CAR #7#) . #13#) NIL))
                        #14#))
                      (SEQ
                       (LETT |init|
                             (SPADCALL (SPADCALL |list| 1 (QREFELT $ 53))
                                       (QREFELT $ 10))
                             . #13#)
                       (LETT |prod|
                             (SPADCALL |guess|
                                       (SPADCALL |var|
                                                 (SPADCALL
                                                  (|spadConstant| $ 49)
                                                  (SPADCALL |xx|
                                                            (|spadConstant| $
                                                                            94)
                                                            (QREFELT $ 95))
                                                  (QREFELT $ 97))
                                                 (QREFELT $ 99))
                                       (QREFELT $ 101))
                             . #13#)
                       (EXIT
                        (LETT |prodGuess|
                              (CONS (SPADCALL |init| |prod| (QREFELT $ 105))
                                    |prodGuess|)
                              . #13#)))
                      (LETT #7# (CDR #7#) . #13#) #15# G191 (EXIT NIL))
                 (COND
                  ((SPADCALL |options| (QREFELT $ 67))
                   (SPADCALL
                    (SPADCALL "prodGuess "
                              (SPADCALL |prodGuess| (QREFELT $ 74))
                              (QREFELT $ 70))
                    (QREFELT $ 73))))
                 (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 $ 106)) 'NIL)
                            (#16# 'T))
                           (LETT |res| (CONS |guess| |res|) . #13#)))))
                       (LETT #6# (CDR #6#) . #13#) #15# G191
                       (EXIT NIL))))))))))))
        (COND
         ((SPADCALL |options| (QREFELT $ 75))
          (COND
           ((NULL (NULL |res|)) (PROGN (LETT #5# |res| . #13#) (GO #5#))))))
        (COND
         ((SPADCALL '|guessSum| |ops| (QREFELT $ 76))
          (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 $ 53))
                                 (SPADCALL |list| |i| (QREFELT $ 53))
                                 (QREFELT $ 107))
                                #4#)
                               . #13#)))
                       (LETT |i| (QSADD1 |i|) . #13#) #15# G191
                       (EXIT (NREVERSE0 #4#))))
                 . #13#)
           (EXIT
            (COND
             ((NULL
               (SPADCALL (CONS #'|GUESS;guess;LLLLL;8!0| (VECTOR $ |sumList|))
                         |sumList| (QREFELT $ 84)))
              (SEQ
               (LETT |var|
                     (SPADCALL '|s| (LIST (SPADCALL |len| (QREFELT $ 85)))
                               (QREFELT $ 87))
                     . #13#)
               (LETT |sumGuess| NIL . #13#)
               (SEQ (LETT |guess| NIL . #13#)
                    (LETT #2#
                          (SPADCALL |sumList| |guessers| |ops|
                                    (APPEND
                                     (LIST (SPADCALL |var| (QREFELT $ 89))
                                           (SPADCALL |newMaxLevel|
                                                     (QREFELT $ 90)))
                                     |options|)
                                    (QREFELT $ 93))
                          . #13#)
                    G190
                    (COND
                     ((OR (ATOM #2#)
                          (PROGN (LETT |guess| (CAR #2#) . #13#) NIL))
                      #14#))
                    (SEQ
                     (LETT |init|
                           (SPADCALL (SPADCALL |list| 1 (QREFELT $ 53))
                                     (QREFELT $ 10))
                           . #13#)
                     (LETT |summ|
                           (SPADCALL |guess|
                                     (SPADCALL |var|
                                               (SPADCALL (|spadConstant| $ 49)
                                                         (SPADCALL |xx|
                                                                   (|spadConstant|
                                                                    $ 94)
                                                                   (QREFELT $
                                                                            95))
                                                         (QREFELT $ 97))
                                               (QREFELT $ 99))
                                     (QREFELT $ 109))
                           . #13#)
                     (EXIT
                      (LETT |sumGuess|
                            (CONS (SPADCALL |init| |summ| (QREFELT $ 110))
                                  |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 $ 106)) '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;8!0| (|z1| $$)
  (PROG (|sumList| $)
    (LETT |sumList| (QREFELT $$ 1) . #1=(|GUESS;guess;LLLLL;8|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1| (SPADCALL |sumList| (|spadConstant| $ 108) (QREFELT $ 53))
                (QREFELT $ 55)))))) 

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

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

(DEFUN |GUESS;guess;LLLL;11| (|list| |guessers| |ops| $)
  (SPADCALL |list| |guessers| |ops| NIL (QREFELT $ 93))) 

(DEFUN |GUESS;F2FPOLYS| (|p| $)
  (COND
   ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7))
    (SPADCALL (SPADCALL |p| (QREFELT $ 116)) (QREFELT $ 118)))
   ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
    (SPADCALL (SPADCALL (SPADCALL |p| (QREFELT $ 29)) (QREFELT $ 120))
              (SPADCALL (SPADCALL |p| (QREFELT $ 30)) (QREFELT $ 120))
              (QREFELT $ 122)))
   ('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 $ 123)) (|spadConstant| $ 49))
        ('T
         (SPADCALL
          (SPADCALL (SPADCALL (SPADCALL |p| (QREFELT $ 124)) (QREFELT $ 10))
                    (SPADCALL (SPADCALL |xx| (QREFELT $ 39))
                              (SPADCALL |p| (QREFELT $ 126)) (QREFELT $ 127))
                    (QREFELT $ 105))
          (|GUESS;SUPF2EXPRR| |xx| (SPADCALL |p| (QREFELT $ 128)) $)
          (QREFELT $ 110))))) 

(DEFUN |GUESS;FSUPF2EXPRR| (|xx| |p| $)
  (SPADCALL (|GUESS;SUPF2EXPRR| |xx| (SPADCALL |p| (QREFELT $ 129)) $)
            (|GUESS;SUPF2EXPRR| |xx| (SPADCALL |p| (QREFELT $ 130)) $)
            (QREFELT $ 54))) 

(DEFUN |GUESS;POLYS2POLYF| (|p| $)
  (COND ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7)) |p|)
        ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
         (SPADCALL (ELT $ 56) |p| (QREFELT $ 132)))
        ('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 $ 134)) (|spadConstant| $ 135))
            ('T
             (SEQ
              (LETT |lc| (|GUESS;POLYS2POLYF| (SPADCALL |p| (QREFELT $ 136)) $)
                    |GUESS;SUPPOLYS2SUPF|)
              (EXIT
               (SPADCALL
                (SPADCALL
                 (SPADCALL
                  (SPADCALL |lc|
                            (LIST (SPADCALL 1 (QREFELT $ 138))
                                  (SPADCALL 2 (QREFELT $ 138)))
                            (LIST |a1v| |Av|) (QREFELT $ 140))
                  (QREFELT $ 141))
                 (SPADCALL |p| (QREFELT $ 142)) (QREFELT $ 143))
                (|GUESS;SUPPOLYS2SUPF| (SPADCALL |p| (QREFELT $ 144)) |a1v|
                 |Av| $)
                (QREFELT $ 145)))))))))) 

(DEFUN |GUESS;SUPFPOLYS2FSUPPOLYS| (|p| $)
  (PROG (|pden| |pnum| |cden|)
    (RETURN
     (SEQ
      (LETT |cden| (SPADCALL |p| (QREFELT $ 149))
            . #1=(|GUESS;SUPFPOLYS2FSUPPOLYS|))
      (LETT |pnum|
            (SPADCALL (CONS #'|GUESS;SUPFPOLYS2FSUPPOLYS!0| (VECTOR $ |cden|))
                      |p| (QREFELT $ 154))
            . #1#)
      (LETT |pden| (SPADCALL (QCDR |cden|) (QREFELT $ 155)) . #1#)
      (EXIT (SPADCALL |pnum| |pden| (QREFELT $ 157))))))) 

(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 $ 150))
                (QREFELT $ 151)))))) 

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

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

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

(DEFUN |GUESS;evalResultant| (|p1| |p2| |o| |d| |va1| |vA| $)
  (PROG (|res| #1=#:G3426 #2=#:G3421 |lead| #3=#:G3415 #4=#:G3413 |d2atk|
         |d1atk| |p2atk| |p1atk| #5=#:G3432 |k| |d2| |d1|)
    (RETURN
     (SEQ (LETT |res| NIL . #6=(|GUESS;evalResultant|))
          (LETT |d1| (SPADCALL |p1| |va1| (QREFELT $ 158)) . #6#)
          (LETT |d2| (SPADCALL |p2| |va1| (QREFELT $ 158)) . #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 $ 159))
                                 (QREFELT $ 160))
                       (QREFELT $ 161))
                      . #6#)
                (LETT |p2atk|
                      (SPADCALL
                       (SPADCALL |p2| |vA| (SPADCALL |k| (QREFELT $ 159))
                                 (QREFELT $ 160))
                       (QREFELT $ 161))
                      . #6#)
                (LETT |d1atk| (SPADCALL |p1atk| (QREFELT $ 162)) . #6#)
                (LETT |d2atk| (SPADCALL |p2atk| (QREFELT $ 162)) . #6#)
                (COND
                 ((< |d2atk| |d2|)
                  (COND
                   ((< |d1atk| |d1|) (LETT |lead| (|spadConstant| $ 48) . #6#))
                   ('T
                    (LETT |lead|
                          (SPADCALL (SPADCALL |p1atk| (QREFELT $ 163))
                                    (PROG1 (LETT #4# (- |d2| |d2atk|) . #6#)
                                      (|check-subtype| (>= #4# 0)
                                                       '(|NonNegativeInteger|)
                                                       #4#))
                                    (QREFELT $ 164))
                          . #6#))))
                 ((< |d1atk| |d1|)
                  (LETT |lead|
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL (|spadConstant| $ 12) (QREFELT $ 165)) |d2|
                          (QREFELT $ 164))
                         (SPADCALL (SPADCALL |p2atk| (QREFELT $ 163))
                                   (PROG1 (LETT #3# (- |d1| |d1atk|) . #6#)
                                     (|check-subtype| (>= #3# 0)
                                                      '(|NonNegativeInteger|)
                                                      #3#))
                                   (QREFELT $ 164))
                         (QREFELT $ 166))
                        . #6#))
                 ('T (LETT |lead| (|spadConstant| $ 12) . #6#)))
                (EXIT
                 (COND
                  ((SPADCALL |lead| (QREFELT $ 167))
                   (LETT |res| (CONS (|spadConstant| $ 48) |res|) . #6#))
                  ('T
                   (LETT |res|
                         (CONS
                          (SPADCALL |lead|
                                    (PROG2
                                        (LETT #1#
                                              (SPADCALL
                                               (SPADCALL |p1atk| |p2atk|
                                                         (QREFELT $ 168))
                                               (SPADCALL
                                                (SPADCALL |k| (QREFELT $ 159))
                                                (PROG1 (LETT #2# |o| . #6#)
                                                  (|check-subtype| (>= #2# 0)
                                                                   '(|NonNegativeInteger|)
                                                                   #2#))
                                                (QREFELT $ 164))
                                               (QREFELT $ 170))
                                              . #6#)
                                        (QCDR #1#)
                                      (|check-union| (QEQCAR #1# 0)
                                                     (QREFELT $ 7) #1#))
                                    (QREFELT $ 166))
                          |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 $ 171)) (QREFELT $ 172))
            (SPADCALL
             (SPADCALL (SPADCALL |va1| (QREFELT $ 171)) (QREFELT $ 172))
             (|GUESS;F2FPOLYS|
              (SPADCALL (|GUESS;DN2DL| |basis| |i| $)
                        (|GUESS;DN2DL| |basis| |xm| $) (QREFELT $ 107))
              $)
             (QREFELT $ 173))
            (QREFELT $ 174))) 

(DEFUN |GUESS;p2| (|xm| |i| |a1v| |Av| |basis| $)
  (SPADCALL (SPADCALL |Av| (QREFELT $ 10))
            (SPADCALL (SPADCALL |a1v| (QREFELT $ 10))
                      (SPADCALL
                       (SPADCALL (SPADCALL |i| (QREFELT $ 39)) |basis|)
                       (SPADCALL (SPADCALL |xm| (QREFELT $ 45)) |basis|)
                       (QREFELT $ 95))
                      (QREFELT $ 105))
            (QREFELT $ 110))) 

(DEFUN |GUESS;guessExpRatAux| (|xx| |list| |basis| |xValues| |options| $)
  (PROG (#1=#:G3532 |res| |res4| |denr| |numr| |ri1| |t2| |t1| |a1v| #2=#:G3536
         |g| |evalPoly| |Av| #3=#:G3535 |f| |res3| |res2| |res1| |d2| |o2| |d1|
         |o1| |n| |poly3| |poly2| |poly1| |ri| #4=#:G3501 |i| |maxDeg| |maxD|
         |y3| |y2| |y1| |ylist| #5=#:G3534 |y| |x3| |x2| |x1| |xlist|
         #6=#:G3533 |len| #7=#:G3453 A |a1|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |a1| (SPADCALL 1 (QREFELT $ 138)) . #8=(|GUESS;guessExpRatAux|))
        (LETT A (SPADCALL 2 (QREFELT $ 138)) . #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 $ 179)) . #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 $ 67))
                (SPADCALL
                 (SPADCALL "degree ExpRat " (SPADCALL |i| (QREFELT $ 180))
                           (QREFELT $ 70))
                 (QREFELT $ 73))))
              (COND
               ((SPADCALL |options| (QREFELT $ 67))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 182))
                     (EXIT (SPADCALL "interpolating..." (QREFELT $ 73))))))
              (LETT |ri|
                    (SPADCALL |xlist| |ylist|
                              (PROG1 (LETT #4# (- (- |len| 1) |i|) . #8#)
                                (|check-subtype| (>= #4# 0)
                                                 '(|NonNegativeInteger|) #4#))
                              (QREFELT $ 186))
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 67))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 182))
                     (EXIT (SPADCALL "polynomials..." (QREFELT $ 73))))))
              (LETT |poly1|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x1| (QREFELT $ 188)) |y1|
                               (QREFELT $ 189))
                     (QREFELT $ 190))
                    . #8#)
              (LETT |poly2|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x2| (QREFELT $ 188)) |y2|
                               (QREFELT $ 189))
                     (QREFELT $ 190))
                    . #8#)
              (LETT |poly3|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x3| (QREFELT $ 188)) |y3|
                               (QREFELT $ 189))
                     (QREFELT $ 190))
                    . #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 $ 67))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 182))
                     (EXIT
                      (SPADCALL "interpolating resultants..."
                                (QREFELT $ 73))))))
              (LETT |res1|
                    (SPADCALL
                     (|GUESS;evalResultant| |poly1| |poly3| |o1| |d1| |a1| A $)
                     (QREFELT $ 192))
                    . #8#)
              (LETT |res2|
                    (SPADCALL
                     (|GUESS;evalResultant| |poly2| |poly3| |o2| |d2| |a1| A $)
                     (QREFELT $ 192))
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 67))
                (SEQ
                 (SPADCALL
                  (SPADCALL "n/i: "
                            (SPADCALL (STRINGIMAGE |n|)
                                      (SPADCALL " " (STRINGIMAGE |i|)
                                                (QREFELT $ 193))
                                      (QREFELT $ 193))
                            (QREFELT $ 193))
                  (QREFELT $ 79))
                 (SPADCALL
                  (SPADCALL "res1 ord: "
                            (SPADCALL (STRINGIMAGE |o1|)
                                      (SPADCALL " "
                                                (STRINGIMAGE
                                                 (SPADCALL |res1|
                                                           (QREFELT $ 194)))
                                                (QREFELT $ 193))
                                      (QREFELT $ 193))
                            (QREFELT $ 193))
                  (QREFELT $ 79))
                 (SPADCALL
                  (SPADCALL "res1 deg: "
                            (SPADCALL (STRINGIMAGE |d1|)
                                      (SPADCALL " "
                                                (STRINGIMAGE
                                                 (SPADCALL |res1|
                                                           (QREFELT $ 162)))
                                                (QREFELT $ 193))
                                      (QREFELT $ 193))
                            (QREFELT $ 193))
                  (QREFELT $ 79))
                 (SPADCALL
                  (SPADCALL "res2 ord: "
                            (SPADCALL (STRINGIMAGE |o2|)
                                      (SPADCALL " "
                                                (STRINGIMAGE
                                                 (SPADCALL |res2|
                                                           (QREFELT $ 194)))
                                                (QREFELT $ 193))
                                      (QREFELT $ 193))
                            (QREFELT $ 193))
                  (QREFELT $ 79))
                 (EXIT
                  (SPADCALL
                   (SPADCALL "res2 deg: "
                             (SPADCALL (STRINGIMAGE |d2|)
                                       (SPADCALL " "
                                                 (STRINGIMAGE
                                                  (SPADCALL |res2|
                                                            (QREFELT $ 162)))
                                                 (QREFELT $ 193))
                                       (QREFELT $ 193))
                             (QREFELT $ 193))
                   (QREFELT $ 79))))))
              (COND
               ((SPADCALL |options| (QREFELT $ 67))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 182))
                     (EXIT (SPADCALL "computing gcd..." (QREFELT $ 73))))))
              (LETT |res3|
                    (|GUESS;SUPS2SUPF|
                     (SPADCALL (SPADCALL |res1| |res2| (QREFELT $ 195))
                               (QREFELT $ 196))
                     $)
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 67))
                (SEQ (SPADCALL "sys date +%s" (QREFELT $ 182))
                     (EXIT (SPADCALL "solving..." (QREFELT $ 73))))))
              (SEQ (LETT |f| NIL . #8#)
                   (LETT #3#
                         (SPADCALL (SPADCALL |res3| (QREFELT $ 199))
                                   (QREFELT $ 202))
                         . #8#)
                   G190
                   (COND
                    ((OR (ATOM #3#) (PROGN (LETT |f| (CAR #3#) . #8#) NIL))
                     #10#))
                   (SEQ
                    (EXIT
                     (COND
                      ((EQL (SPADCALL (QCAR |f|) (QREFELT $ 126)) 1)
                       (SEQ
                        (COND
                         ((SPADCALL |options| (QREFELT $ 67))
                          (SPADCALL
                           (SPADCALL "f: "
                                     (|coerceRe2E| |f|
                                                   (ELT
                                                    (|Record|
                                                     (|:| |factor|
                                                          (|SparseUnivariatePolynomial|
                                                           (QREFELT $ 6)))
                                                     (|:| |exponent|
                                                          (|Integer|)))
                                                    0))
                                     (QREFELT $ 70))
                           (QREFELT $ 73))))
                        (LETT |Av|
                              (SPADCALL
                               (SPADCALL
                                (SPADCALL (QCAR |f|) 0 (QREFELT $ 203))
                                (SPADCALL (QCAR |f|) (QREFELT $ 124))
                                (QREFELT $ 80))
                               (QREFELT $ 204))
                              . #8#)
                        (LETT |evalPoly|
                              (SPADCALL (|GUESS;POLYS2POLYF| |poly3| $) A |Av|
                                        (QREFELT $ 205))
                              . #8#)
                        (COND
                         ((SPADCALL |evalPoly| (QREFELT $ 206))
                          (LETT |evalPoly|
                                (SPADCALL (|GUESS;POLYS2POLYF| |poly1| $) A
                                          |Av| (QREFELT $ 205))
                                . #8#)))
                        (EXIT
                         (SEQ (LETT |g| NIL . #8#)
                              (LETT #2#
                                    (SPADCALL
                                     (SPADCALL
                                      (SPADCALL |evalPoly| (QREFELT $ 207))
                                      (QREFELT $ 199))
                                     (QREFELT $ 202))
                                    . #8#)
                              G190
                              (COND
                               ((OR (ATOM #2#)
                                    (PROGN (LETT |g| (CAR #2#) . #8#) NIL))
                                #10#))
                              (SEQ
                               (EXIT
                                (COND
                                 ((EQL (SPADCALL (QCAR |g|) (QREFELT $ 126)) 1)
                                  (SEQ
                                   (COND
                                    ((SPADCALL |options| (QREFELT $ 67))
                                     (SPADCALL
                                      (SPADCALL "g: "
                                                (|coerceRe2E| |g|
                                                              (ELT
                                                               (|Record|
                                                                (|:| |factor|
                                                                     (|SparseUnivariatePolynomial|
                                                                      (QREFELT
                                                                       $ 6)))
                                                                (|:| |exponent|
                                                                     (|Integer|)))
                                                               0))
                                                (QREFELT $ 70))
                                      (QREFELT $ 73))))
                                   (LETT |a1v|
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL (QCAR |g|) 0
                                                     (QREFELT $ 203))
                                           (SPADCALL (QCAR |g|)
                                                     (QREFELT $ 124))
                                           (QREFELT $ 80))
                                          (QREFELT $ 204))
                                         . #8#)
                                   (LETT |t1|
                                         (SPADCALL
                                          (|GUESS;POLYS2POLYF| |poly1| $)
                                          (LIST |a1| A) (LIST |a1v| |Av|)
                                          (QREFELT $ 140))
                                         . #8#)
                                   (EXIT
                                    (COND
                                     ((SPADCALL |t1| (QREFELT $ 206))
                                      (SEQ
                                       (LETT |t2|
                                             (SPADCALL
                                              (|GUESS;POLYS2POLYF| |poly2| $)
                                              (LIST |a1| A) (LIST |a1v| |Av|)
                                              (QREFELT $ 140))
                                             . #8#)
                                       (EXIT
                                        (COND
                                         ((SPADCALL |t2| (QREFELT $ 206))
                                          (SEQ
                                           (LETT |ri1|
                                                 (SPADCALL
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 208))
                                                   $)
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 209))
                                                   $)
                                                  (QREFELT $ 210))
                                                 . #8#)
                                           (LETT |numr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 211))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (LETT |denr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 212))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (EXIT
                                            (COND
                                             ((SPADCALL |denr| (QREFELT $ 123))
                                              (COND
                                               ((SPADCALL |numr|
                                                          (QREFELT $ 123))
                                                (COND
                                                 ((SPADCALL |options|
                                                            (QREFELT $ 67))
                                                  (SPADCALL
                                                   "numerator and denominator vanish!"
                                                   (QREFELT $ 79)))))))
                                             ('T
                                              (SEQ
                                               (LETT |res4|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (|GUESS;FSUPF2EXPRR|
                                                        |xx|
                                                        (SPADCALL |numr| |denr|
                                                                  (QREFELT $
                                                                           213))
                                                        $)
                                                       (SPADCALL |xx|
                                                                 (QREFELT $
                                                                          215))
                                                       (SPADCALL
                                                        (SPADCALL |xx|
                                                                  (QREFELT $
                                                                           39))
                                                        |basis|)
                                                       (QREFELT $ 217))
                                                      (SPADCALL
                                                       (|GUESS;p2|
                                                        (SPADCALL |xValues|
                                                                  (QREFELT $
                                                                           175))
                                                        |xx| |a1v| |Av| |basis|
                                                        $)
                                                       (SPADCALL |xx|
                                                                 (QREFELT $
                                                                          39))
                                                       (QREFELT $ 218))
                                                      (QREFELT $ 105))
                                                     . #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 $ 75))
                   (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 $ 53)) $)
                (SPADCALL
                 (|GUESS;p| (SPADCALL |xValues| (QREFELT $ 175))
                  (SPADCALL |xValues| |z1| (QREFELT $ 15)) |a1| A |basis| $)
                 (SPADCALL (SPADCALL |xValues| |z1| (QREFELT $ 15))
                           (QREFELT $ 176))
                 (QREFELT $ 178))
                (QREFELT $ 173)))))) 

(DEFUN |GUESS;guessExpRatAux0| (|list| |basis| |options| $)
  (PROG (|res| #1=#:G3554 |f| #2=#:G3553 |xValues| |newlist| |i| #3=#:G3552 |x|
         |zeros| #4=#:G3551 |shortlist| #5=#:G3539 #6=#:G3550 |len| |xx|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((ZEROP (SPADCALL |options| (QREFELT $ 219)))
          (|error| "Guess: guessExpRat does not support zero safety")))
        (LETT |xx| (SPADCALL |options| (QREFELT $ 66))
              . #7=(|GUESS;guessExpRatAux0|))
        (LETT |len| (LENGTH |list|) . #7#)
        (COND
         ((< (+ (- |len| (SPADCALL |options| (QREFELT $ 219))) 1) 0)
          (PROGN (LETT #6# NIL . #7#) (GO #6#))))
        (LETT |shortlist|
              (SPADCALL |list|
                        (PROG1
                            (LETT #5#
                                  (+
                                   (- |len|
                                      (SPADCALL |options| (QREFELT $ 219)))
                                   1)
                                  . #7#)
                          (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|)
                                           #5#))
                        (QREFELT $ 220))
              . #7#)
        (LETT |zeros| (|spadConstant| $ 94) . #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| $ 47) (QREFELT $ 55))
                     (LETT |zeros|
                           (SPADCALL |zeros|
                                     (SPADCALL
                                      (SPADCALL (SPADCALL |xx| (QREFELT $ 39))
                                                |basis|)
                                      (SPADCALL (SPADCALL |i| (QREFELT $ 45))
                                                |basis|)
                                      (QREFELT $ 95))
                                     (QREFELT $ 105))
                           . #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| $ 47) (QREFELT $ 55)))
                     (SEQ
                      (LETT |newlist|
                            (CONS
                             (SPADCALL |x|
                                       (SPADCALL
                                        (SPADCALL |zeros|
                                                  (SPADCALL |xx|
                                                            (QREFELT $ 39))
                                                  (SPADCALL |i| (QREFELT $ 45))
                                                  (QREFELT $ 46))
                                        (QREFELT $ 9))
                                       (QREFELT $ 80))
                             |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 $ 105))
                                       (SPADCALL |xx| (QREFELT $ 39))
                                       (SPADCALL |xx| (QREFELT $ 39))
                                       (QREFELT $ 46))
                             #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 $ 224)))))
      #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 $ 219))
                          (QREFELT $ 221))
                (QREFELT $ 222)))))) 

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

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

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

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

(DEFUN |GUESS;guessExpRat;SM;27!0| (|i1| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN (SPADCALL (SPADCALL |q| (QREFELT $ 39)) |i1| (QREFELT $ 218)))))) 

(DEFUN |GUESS;binExt| (|i| |va1| |vA| $)
  (PROG (|num| |numl| #1=#:G3569 |l| #2=#:G3568)
    (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 $ 171))
                                      (SPADCALL |i|
                                                (SPADCALL |va1|
                                                          (QREFELT $ 171))
                                                (QREFELT $ 228))
                                      (QREFELT $ 229))
                            (SPADCALL |l| (QREFELT $ 230)) (QREFELT $ 231))
                           #2#)
                          . #3#)))
                  (LETT |l| (QSADD1 |l|) . #3#) (GO G190) G191
                  (EXIT (NREVERSE0 #2#))))
            . #3#)
      (LETT |num|
            (SPADCALL (ELT $ 232) |numl| (|spadConstant| $ 233)
                      (QREFELT $ 236))
            . #3#)
      (EXIT
       (SPADCALL |num|
                 (SPADCALL (SPADCALL |i| (QREFELT $ 237)) (QREFELT $ 230))
                 (QREFELT $ 122))))))) 

(DEFUN |GUESS;binExtEXPR| (|i| |a1v| |Av| $)
  (SPADCALL
   (SPADCALL (SPADCALL |Av| (QREFELT $ 10))
             (SPADCALL (SPADCALL |a1v| (QREFELT $ 10))
                       (SPADCALL |i| (QREFELT $ 39)) (QREFELT $ 105))
             (QREFELT $ 110))
   (SPADCALL |i| (QREFELT $ 39)) (QREFELT $ 238))) 

(DEFUN |GUESS;guessBinRatAux|
       (|xx| |list| |basis| |ext| |extEXPR| |xValues| |options| $)
  (PROG (#1=#:G3602 |res| |res4| |denr| |numr| |ri1| |t2| |t1| |a1v| #2=#:G3606
         |g| |evalPoly| |Av| #3=#:G3605 |f| |res3| |res2| |res1| |n| |poly3|
         |poly2| |poly1| |ri| #4=#:G3583 |i| |maxDeg| |maxD| |y3| |y2| |y1|
         |ylist| #5=#:G3604 |y| |x3| |x2| |x1| |xlist| #6=#:G3603 |len|
         #7=#:G3571 A |a1|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |a1| (SPADCALL 1 (QREFELT $ 138)) . #8=(|GUESS;guessBinRatAux|))
        (LETT A (SPADCALL 2 (QREFELT $ 138)) . #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 $ 179)) . #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 $ 186))
                    . #8#)
              (LETT |poly1|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x1| (QREFELT $ 188)) |y1|
                               (QREFELT $ 189))
                     (QREFELT $ 190))
                    . #8#)
              (LETT |poly2|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x2| (QREFELT $ 188)) |y2|
                               (QREFELT $ 189))
                     (QREFELT $ 190))
                    . #8#)
              (LETT |poly3|
                    (SPADCALL
                     (SPADCALL (SPADCALL |ri| |x3| (QREFELT $ 188)) |y3|
                               (QREFELT $ 189))
                     (QREFELT $ 190))
                    . #8#)
              (LETT |n| (- |len| |i|) . #8#)
              (LETT |res1|
                    (SPADCALL (SPADCALL |poly1| |poly3| |a1| (QREFELT $ 240))
                              (QREFELT $ 161))
                    . #8#)
              (LETT |res2|
                    (SPADCALL (SPADCALL |poly2| |poly3| |a1| (QREFELT $ 240))
                              (QREFELT $ 161))
                    . #8#)
              (COND
               ((SPADCALL |options| (QREFELT $ 67))
                (SEQ
                 (SPADCALL
                  (SPADCALL "res1 ord: "
                            (STRINGIMAGE (SPADCALL |res1| (QREFELT $ 194)))
                            (QREFELT $ 193))
                  (QREFELT $ 79))
                 (SPADCALL
                  (SPADCALL "res1 deg: "
                            (STRINGIMAGE (SPADCALL |res1| (QREFELT $ 162)))
                            (QREFELT $ 193))
                  (QREFELT $ 79))
                 (SPADCALL
                  (SPADCALL "res2 ord: "
                            (STRINGIMAGE (SPADCALL |res2| (QREFELT $ 194)))
                            (QREFELT $ 193))
                  (QREFELT $ 79))
                 (EXIT
                  (SPADCALL
                   (SPADCALL "res2 deg: "
                             (STRINGIMAGE (SPADCALL |res2| (QREFELT $ 162)))
                             (QREFELT $ 193))
                   (QREFELT $ 79))))))
              (COND
               ((SPADCALL |options| (QREFELT $ 67))
                (SPADCALL "computing gcd..." (QREFELT $ 73))))
              (LETT |res3|
                    (|GUESS;SUPS2SUPF|
                     (SPADCALL (SPADCALL |res1| |res2| (QREFELT $ 195))
                               (QREFELT $ 196))
                     $)
                    . #8#)
              (SEQ (LETT |f| NIL . #8#)
                   (LETT #3#
                         (SPADCALL (SPADCALL |res3| (QREFELT $ 199))
                                   (QREFELT $ 202))
                         . #8#)
                   G190
                   (COND
                    ((OR (ATOM #3#) (PROGN (LETT |f| (CAR #3#) . #8#) NIL))
                     #10#))
                   (SEQ
                    (EXIT
                     (COND
                      ((EQL (SPADCALL (QCAR |f|) (QREFELT $ 126)) 1)
                       (SEQ
                        (LETT |Av|
                              (SPADCALL
                               (SPADCALL
                                (SPADCALL (QCAR |f|) 0 (QREFELT $ 203))
                                (SPADCALL (QCAR |f|) (QREFELT $ 124))
                                (QREFELT $ 80))
                               (QREFELT $ 204))
                              . #8#)
                        (LETT |evalPoly|
                              (SPADCALL (|GUESS;POLYS2POLYF| |poly3| $) A |Av|
                                        (QREFELT $ 205))
                              . #8#)
                        (COND
                         ((SPADCALL |evalPoly| (QREFELT $ 206))
                          (LETT |evalPoly|
                                (SPADCALL (|GUESS;POLYS2POLYF| |poly1| $) A
                                          |Av| (QREFELT $ 205))
                                . #8#)))
                        (EXIT
                         (SEQ (LETT |g| NIL . #8#)
                              (LETT #2#
                                    (SPADCALL
                                     (SPADCALL
                                      (SPADCALL |evalPoly| (QREFELT $ 207))
                                      (QREFELT $ 199))
                                     (QREFELT $ 202))
                                    . #8#)
                              G190
                              (COND
                               ((OR (ATOM #2#)
                                    (PROGN (LETT |g| (CAR #2#) . #8#) NIL))
                                #10#))
                              (SEQ
                               (EXIT
                                (COND
                                 ((EQL (SPADCALL (QCAR |g|) (QREFELT $ 126)) 1)
                                  (SEQ
                                   (LETT |a1v|
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL (QCAR |g|) 0
                                                     (QREFELT $ 203))
                                           (SPADCALL (QCAR |g|)
                                                     (QREFELT $ 124))
                                           (QREFELT $ 80))
                                          (QREFELT $ 204))
                                         . #8#)
                                   (LETT |t1|
                                         (SPADCALL
                                          (|GUESS;POLYS2POLYF| |poly1| $)
                                          (LIST |a1| A) (LIST |a1v| |Av|)
                                          (QREFELT $ 140))
                                         . #8#)
                                   (EXIT
                                    (COND
                                     ((SPADCALL |t1| (QREFELT $ 206))
                                      (SEQ
                                       (LETT |t2|
                                             (SPADCALL
                                              (|GUESS;POLYS2POLYF| |poly2| $)
                                              (LIST |a1| A) (LIST |a1v| |Av|)
                                              (QREFELT $ 140))
                                             . #8#)
                                       (EXIT
                                        (COND
                                         ((SPADCALL |t2| (QREFELT $ 206))
                                          (SEQ
                                           (LETT |ri1|
                                                 (SPADCALL
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 208))
                                                   $)
                                                  (|GUESS;SUPFPOLYS2FSUPPOLYS|
                                                   (SPADCALL |ri|
                                                             (QREFELT $ 209))
                                                   $)
                                                  (QREFELT $ 210))
                                                 . #8#)
                                           (LETT |numr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 211))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (LETT |denr|
                                                 (|GUESS;SUPPOLYS2SUPF|
                                                  (SPADCALL |ri1|
                                                            (QREFELT $ 212))
                                                  |a1v| |Av| $)
                                                 . #8#)
                                           (EXIT
                                            (COND
                                             ((SPADCALL |denr| (QREFELT $ 123))
                                              (COND
                                               ((SPADCALL |numr|
                                                          (QREFELT $ 123))
                                                (COND
                                                 ((SPADCALL |options|
                                                            (QREFELT $ 67))
                                                  (SPADCALL
                                                   "numerator and denominator vanish!"
                                                   (QREFELT $ 79)))))))
                                             ('T
                                              (SEQ
                                               (LETT |res4|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (|GUESS;FSUPF2EXPRR|
                                                        |xx|
                                                        (SPADCALL |numr| |denr|
                                                                  (QREFELT $
                                                                           213))
                                                        $)
                                                       (SPADCALL |xx|
                                                                 (QREFELT $
                                                                          215))
                                                       (SPADCALL
                                                        (SPADCALL |xx|
                                                                  (QREFELT $
                                                                           39))
                                                        |basis|)
                                                       (QREFELT $ 217))
                                                      (SPADCALL |xx| |a1v| |Av|
                                                                |extEXPR|)
                                                      (QREFELT $ 105))
                                                     . #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 $ 75))
                   (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 $ 53)) $)
                (SPADCALL (SPADCALL |xValues| |z1| (QREFELT $ 15)) |a1| A
                          |ext|)
                (QREFELT $ 239)))))) 

(DEFUN |GUESS;guessBinRatAux0| (|list| |basis| |ext| |extEXPR| |options| $)
  (PROG (|res| #1=#:G3629 |f| #2=#:G3628 |xValues| |newlist| |i| #3=#:G3627 |x|
         |zeros| #4=#:G3626 |shortlist| #5=#:G3609 #6=#:G3625 |len| |xx|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((ZEROP (SPADCALL |options| (QREFELT $ 219)))
          (|error| "Guess: guessBinRat does not support zero safety")))
        (LETT |xx| (SPADCALL |options| (QREFELT $ 66))
              . #7=(|GUESS;guessBinRatAux0|))
        (LETT |len| (LENGTH |list|) . #7#)
        (COND
         ((< (+ (- |len| (SPADCALL |options| (QREFELT $ 219))) 1) 0)
          (PROGN (LETT #6# NIL . #7#) (GO #6#))))
        (LETT |shortlist|
              (SPADCALL |list|
                        (PROG1
                            (LETT #5#
                                  (+
                                   (- |len|
                                      (SPADCALL |options| (QREFELT $ 219)))
                                   1)
                                  . #7#)
                          (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|)
                                           #5#))
                        (QREFELT $ 220))
              . #7#)
        (LETT |zeros| (|spadConstant| $ 94) . #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| $ 47) (QREFELT $ 55))
                     (LETT |zeros|
                           (SPADCALL |zeros|
                                     (SPADCALL
                                      (SPADCALL (SPADCALL |xx| (QREFELT $ 39))
                                                |basis|)
                                      (SPADCALL (SPADCALL |i| (QREFELT $ 45))
                                                |basis|)
                                      (QREFELT $ 95))
                                     (QREFELT $ 105))
                           . #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| $ 47) (QREFELT $ 55)))
                     (SEQ
                      (LETT |newlist|
                            (CONS
                             (SPADCALL |x|
                                       (SPADCALL
                                        (SPADCALL |zeros|
                                                  (SPADCALL |xx|
                                                            (QREFELT $ 39))
                                                  (SPADCALL |i| (QREFELT $ 45))
                                                  (QREFELT $ 46))
                                        (QREFELT $ 9))
                                       (QREFELT $ 80))
                             |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 $ 105))
                                       (SPADCALL |xx| (QREFELT $ 39))
                                       (SPADCALL |xx| (QREFELT $ 39))
                                       (QREFELT $ 46))
                             #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 $ 224)))))
      #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 $ 219))
                          (QREFELT $ 221))
                (QREFELT $ 222)))))) 

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

(DEFUN |GUESS;guessBinRat;LLL;33| (|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 $ 39)) |z1| (QREFELT $ 218)))))) 

(DEFUN |GUESS;qBinExtAux| (|q| |i| |va1| |vA| $)
  (PROG (|fl| |l| #1=#:G3654)
    (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| $ 243)
                                      (SPADCALL
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |va1| (QREFELT $ 171))
                                         (QREFELT $ 172))
                                        (SPADCALL
                                         (SPADCALL
                                          (SPADCALL |vA| (QREFELT $ 171))
                                          (QREFELT $ 172))
                                         (- |i| 1) (QREFELT $ 178))
                                        (QREFELT $ 173))
                                       (SPADCALL
                                        (|GUESS;F2FPOLYS|
                                         (SPADCALL |q| (QREFELT $ 244)) $)
                                        |l| (QREFELT $ 178))
                                       (QREFELT $ 173))
                                      (QREFELT $ 189))
                            (SPADCALL (|spadConstant| $ 243)
                                      (SPADCALL
                                       (|GUESS;F2FPOLYS|
                                        (SPADCALL |q| (QREFELT $ 244)) $)
                                       |l| (QREFELT $ 178))
                                      (QREFELT $ 189))
                            (QREFELT $ 239))
                           #1#)
                          . #2#)))
                  (LETT |l| (QSADD1 |l|) . #2#) (GO G190) G191
                  (EXIT (NREVERSE0 #1#))))
            . #2#)
      (EXIT
       (SPADCALL (ELT $ 173) |fl| (|spadConstant| $ 243) (QREFELT $ 246))))))) 

(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| $ 94)
                       (SPADCALL
                        (SPADCALL (SPADCALL |a1v| (QREFELT $ 10))
                                  (SPADCALL (SPADCALL |Av| (QREFELT $ 10))
                                            (SPADCALL
                                             (SPADCALL |i| (QREFELT $ 39))
                                             (|spadConstant| $ 94)
                                             (QREFELT $ 95))
                                            (QREFELT $ 218))
                                  (QREFELT $ 105))
                        (SPADCALL (SPADCALL |q| (QREFELT $ 39))
                                  (SPADCALL |l| (QREFELT $ 39))
                                  (QREFELT $ 218))
                        (QREFELT $ 105))
                       (QREFELT $ 95))
             (SPADCALL (|spadConstant| $ 94)
                       (SPADCALL (SPADCALL |q| (QREFELT $ 39))
                                 (SPADCALL |l| (QREFELT $ 39)) (QREFELT $ 218))
                       (QREFELT $ 95))
             (QREFELT $ 54))
            (SPADCALL |l|
                      (SPADCALL (|spadConstant| $ 94)
                                (SPADCALL |i| (QREFELT $ 39)) (QREFELT $ 97))
                      (QREFELT $ 99))
            (QREFELT $ 101))))))) 

(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;39| (|q| $)
  (PROG () (RETURN (CONS #'|GUESS;guessBinRat;SM;39!0| (VECTOR $ |q|))))) 

(DEFUN |GUESS;guessBinRat;SM;39!0| (|z1| |z2| $$)
  (PROG (|q| $)
    (LETT |q| (QREFELT $$ 1) . #1=(|GUESS;guessBinRat;SM;39|))
    (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 $ 248))
            . #1=(|GUESS;FilteredPartitionStream|))
      (LETT |maxP?| (SPADCALL |options| (QREFELT $ 250)) . #1#)
      (LETT |homD?| (SPADCALL |options| (QREFELT $ 252)) . #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 $ 255))
                . #1#))
         (#2#
          (SEQ (LETT |s1| (SPADCALL (ELT $ 256) 1 (QREFELT $ 259)) . #1#)
               (LETT |s2|
                     (COND
                      ((QEQCAR |maxD?| 0)
                       (SPADCALL
                        (CONS #'|GUESS;FilteredPartitionStream!0|
                              (VECTOR $ |maxD?|))
                        |s1| (QREFELT $ 265)))
                      ((QEQCAR |maxP?| 0)
                       (SPADCALL
                        (CONS #'|GUESS;FilteredPartitionStream!1|
                              (VECTOR $ |maxP?|))
                        |s1| (QREFELT $ 265)))
                      (#2# (SPADCALL (ELT $ 266) |s1| (QREFELT $ 265))))
                     . #1#)
               (LETT |s3| (SPADCALL |s2| (QREFELT $ 268)) . #1#)
               (EXIT (LETT |s| (SPADCALL NIL |s3| (QREFELT $ 269)) . #1#))))))
       (#2#
        (SEQ (LETT |s1| (SPADCALL (ELT $ 256) 1 (QREFELT $ 259)) . #1#)
             (LETT |s2|
                   (COND
                    ((QEQCAR |maxD?| 0)
                     (SPADCALL
                      (CONS #'|GUESS;FilteredPartitionStream!2|
                            (VECTOR $ |maxD?|))
                      |s1| (QREFELT $ 265)))
                    ((QEQCAR |maxP?| 0)
                     (SPADCALL
                      (CONS #'|GUESS;FilteredPartitionStream!3|
                            (VECTOR $ |maxP?|))
                      |s1| (QREFELT $ 265)))
                    (#2# (SPADCALL (ELT $ 266) |s1| (QREFELT $ 265))))
                   . #1#)
             (LETT |s3| (SPADCALL |s2| (QREFELT $ 268)) . #1#)
             (EXIT (LETT |s| (SPADCALL NIL |s3| (QREFELT $ 269)) . #1#)))))
      (LETT |s| (SPADCALL |s| (QREFELT $ 270)) . #1#)
      (EXIT
       (COND
        ((QEQCAR |homD?| 0)
         (SPADCALL
          (CONS #'|GUESS;FilteredPartitionStream!4| (VECTOR |homD?| $)) |s|
          (QREFELT $ 274)))
        (#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 $ 271)) (QCDR |homD?|)
                (QREFELT $ 272)))))) 

(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 $ 261)))))) 

(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| $ 108) (QREFELT $ 260)) |z1|
       |z1| (QREFELT $ 261)))))) 

(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 $ 261)))))) 

(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| $ 108) (QREFELT $ 260)) |z1|
       |z1| (QREFELT $ 261)))))) 

(DEFUN |GUESS;termAsEXPRR| (|f| |xx| |partition| DX D1X $)
  (PROG (|fl| #1=#:G3707 #2=#:G3706 #3=#:G3716 |part| #4=#:G3715 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) (SPADCALL |xx| D1X))
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 277))
                    . #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 $ 278))
                                              . #5#)
                                      (|check-subtype| (>= #1# 0)
                                                       '(|NonNegativeInteger|)
                                                       #1#))
                                    (QREFELT $ 127))
                                   #4#)
                                  . #5#)))
                          (LETT #3# (CDR #3#) . #5#) (GO G190) G191
                          (EXIT (NREVERSE0 #4#))))
                    . #5#)
              (EXIT (SPADCALL (ELT $ 105) |fl| (QREFELT $ 280)))))))))) 

(DEFUN |GUESS;termAsU32VectorDiff| (|f| |partition| |prime| |degreeLoss| $)
  (PROG (|fl| #1=#:G3720 #2=#:G3719 #3=#:G3730 |part| #4=#:G3729 |ll| |d|
         #5=#:G3718 #6=#:G3728 |i| #7=#:G3727)
    (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 $ 282)))
       ('T
        (SEQ
         (LETT |d|
               (PROG1 (LETT #5# (- (- (QV32LEN |f|) |degreeLoss|) 1) . #8#)
                 (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|) #5#))
               . #8#)
         (LETT |ll| (SPADCALL |partition| (QREFELT $ 277)) . #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 $ 284))
                               (PROG1
                                   (LETT #1# (SPADCALL |part| (QREFELT $ 278))
                                         . #8#)
                                 (|check-subtype| (> #1# 0)
                                                  '(|PositiveInteger|) #1#))
                               |d| |prime| (QREFELT $ 285))
                              #4#)
                             . #8#)))
                     (LETT #3# (CDR #3#) . #8#) #10# G191
                     (EXIT (NREVERSE0 #4#))))
               . #8#)
         (EXIT
          (SPADCALL
           (CONS #'|GUESS;termAsU32VectorDiff!0| (VECTOR $ |prime| |d|)) |fl|
           (QREFELT $ 289)))))))))) 

(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 $ 286)))))) 

(DEFUN |GUESS;termAsU32VectorShift| (|f| |partition| |prime| |degreeLoss| $)
  (PROG (#1=#:G3749 |e| |i| |r| |fl| #2=#:G3735 #3=#:G3748 |j| #4=#:G3747
         #5=#:G3746 |part| #6=#:G3745 |ll| |d| #7=#:G3732 #8=#:G3744
         #9=#:G3743)
    (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 $ 282)))
       ('T
        (SEQ
         (LETT |d|
               (PROG1 (LETT #7# (- (- (QV32LEN |f|) |degreeLoss|) 1) . #10#)
                 (|check-subtype| (>= #7# 0) '(|NonNegativeInteger|) #7#))
               . #10#)
         (LETT |ll| (SPADCALL |partition| (QREFELT $ 277)) . #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
                                          (REMAINDER2
                                           (EXPT (ELT32 |f| |j|)
                                                 (PROG1
                                                     (LETT #2#
                                                           (SPADCALL |part|
                                                                     (QREFELT $
                                                                              278))
                                                           . #10#)
                                                   (|check-subtype| (> #2# 0)
                                                                    '(|PositiveInteger|)
                                                                    #2#)))
                                           |prime|)
                                          #4#)
                                         . #10#)))
                                 (LETT |j| (+ |j| 1) . #10#) #12# G191
                                 (EXIT (NREVERSE0 #4#))))
                               (QREFELT $ 282))
                              #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 $ 290))
         (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=#:G3758 #2=#:G3757 #3=#:G3767 |part| #4=#:G3766 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) D1)
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 277))
                    . #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 $ 278))
                                              . #5#)
                                      (|check-subtype| (>= #1# 0)
                                                       '(|NonNegativeInteger|)
                                                       #1#))
                                    (QREFELT $ 292))
                                   #4#)
                                  . #5#)))
                          (LETT #3# (CDR #3#) . #5#) (GO G190) G191
                          (EXIT (NREVERSE0 #4#))))
                    . #5#)
              (EXIT (SPADCALL (ELT $ 293) |fl| (QREFELT $ 296)))))))))) 

(DEFUN |GUESS;termAsUFPSF2| (|f| |partition| DS D1 $)
  (PROG (|fl| #1=#:G3771 #2=#:G3780 |part| #3=#:G3779 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) D1)
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 277))
                    . #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 $ 299))
                                   #3#)
                                  . #4#)))
                          (LETT #2# (CDR #2#) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    . #4#)
              (EXIT (SPADCALL (ELT $ 301) |fl| (QREFELT $ 296)))))))))) 

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

(DEFUN |GUESS;termAsUFPSSUPF2| (|f| |partition| DSF D1F $)
  (PROG (|fl| #1=#:G3783 #2=#:G3793 |part| #3=#:G3792 |ll|)
    (RETURN
     (SEQ
      (COND ((NULL |partition|) D1F)
            ('T
             (SEQ
              (LETT |ll| (SPADCALL |partition| (QREFELT $ 277))
                    . #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 $ 306))
                                   #3#)
                                  . #4#)))
                          (LETT #2# (CDR #2#) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    . #4#)
              (EXIT (SPADCALL (ELT $ 308) |fl| (QREFELT $ 311)))))))))) 

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

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

(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 $ 315))))) 

(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=#:G3816 |r| |res| #2=#:G3814 #3=#:G3815 |res1| #4=#:G3805 |nt|
         #5=#:G3812 #6=#:G3813 |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 $ 321)))))
           (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 $ 278)))
                                  (- |sigma| 1) |prime| (QREFELT $ 286)))))
           (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 $ 328))
             (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 $ 328))))
                   (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 $ 328))))
                   (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=#:G3829 |r| |res| #2=#:G3827 #3=#:G3828 |nt| #4=#:G3825
         #5=#:G3826 |pp| |cache| |np|)
    (RETURN
     (SEQ (LETT |np| (LENGTH |prodl|) . #6=(|GUESS;ADEtestGenCached|))
          (LETT |cache| (MAKEARR1 (+ (+ |maxD| 1) |np|) (|spadConstant| $ 320))
                . #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 $ 278)))
                                      (QREFELT $ 329)))))
               (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| $ 320)) . #6#)
             (SPADCALL |res| 1 D1F (QREFELT $ 334))
             (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 $ 334))))
                   (LETT |i| (PROG1 (QSADD1 |i|) (LETT #3# (CDR #3#) . #6#))
                         . #6#)
                   #8# G191 (EXIT NIL)))))
           ('T
            (SEQ (LETT |res| (MAKEARR1 |nt| (|spadConstant| $ 320)) . #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 $ 334))))
                       (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=#:G3846 |r| |res| #2=#:G3844 #3=#:G3845 |res1| |nt| #4=#:G3842
         #5=#:G3843 |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 $ 278)))
                                      (- |sigma| 1) |prime| (QREFELT $ 286)))))
               (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 $ 328))
                 (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 $ 328))))
                       (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 $ 328))))
                       (LETT |i|
                             (PROG1 (QSADD1 |i|) (LETT #1# (CDR #1#) . #6#))
                             . #6#)
                       #8# G191 (EXIT NIL))))))
          (EXIT |res|))))) 

(DEFUN |GUESS;optimiseFactor| (|partition| |partitions| $)
  (PROG (#1=#:G3864 |j| |r| #2=#:G3865 |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 $ 335)) . #3#)
                  (EXIT
                   (COND
                    ((QEQCAR |r| 0)
                     (SEQ
                      (LETT |j|
                            (SPADCALL (QCDR |r|) |partitions| (QREFELT $ 337))
                            . #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 $ 339)) $)
             . #1=(|GUESS;optimiseProducts1|))
       (EXIT
        (COND
         ((QEQCAR |r| 1)
          (SEQ
           (|GUESS;optimiseProducts1|
            (SPADCALL (CDR (SPADCALL |p| (QREFELT $ 340))) (QREFELT $ 341))
            |prods0| |parts0| $)
           (EXIT
            (LETT |r|
                  (|GUESS;optimiseFactor| |p|
                   (SPADCALL |parts0| (QREFELT $ 339)) $)
                  . #1#)))))))
      (EXIT
       (COND
        ((QEQCAR |r| 1)
         (|error| "Internal error: failed adding intermediate partition"))
        ('T
         (SEQ (LETT |lp0| (LENGTH (SPADCALL |parts0| (QREFELT $ 339))) . #1#)
              (SPADCALL |prods0|
                        (CONS
                         (LIST (- |lp0| (|SPADfirst| (QCDR |r|)))
                               (- |lp0| (SPADCALL (QCDR |r|) (QREFELT $ 278))))
                         (SPADCALL |prods0| (QREFELT $ 343)))
                        (QREFELT $ 344))
              (EXIT
               (SPADCALL |parts0|
                         (CONS |p| (SPADCALL |parts0| (QREFELT $ 339)))
                         (QREFELT $ 345))))))))))) 

(DEFUN |GUESS;optimiseProducts| (|partitions| $)
  (PROG (#1=#:G3882 |terms0| #2=#:G3886 |p| |parts0| |i| #3=#:G3885 |prods0|
         |maxD0| #4=#:G3884 |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 $ 346)
                        (SPADCALL (ELT $ 347) |partitions| (QREFELT $ 350))
                        (QREFELT $ 351))
              . #5#)
        (LETT |prods0| (SPADCALL NIL (QREFELT $ 352)) . #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 $ 341)) #3#)
                             . #5#)))
                     (LETT |i| (+ |i| -1) . #5#) #7=(GO G190) G191
                     (EXIT (NREVERSE0 #3#))))
               (QREFELT $ 353))
              . #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 $ 341))
                   |prods0| |parts0| $)
                  (EXIT
                   (LETT |terms0|
                         (CONS
                          (- (LENGTH (SPADCALL |parts0| (QREFELT $ 339))) 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 $ 343)))
                 (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=#:G3902 |p| #3=#:G3901)
        (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 $ 354))))))))) 

(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=#:G3915 |p| #3=#:G3914)
        (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 $ 355))))))))) 

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

(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 $ 367))))) 

(DEFUN |GUESS;ADEdegreeStream!0| (|z1| |z2| $)
  (PROG (#1=#:G3924)
    (RETURN
     (SPADCALL
      (COND ((SPADCALL |z1| (QREFELT $ 360)) (|spadConstant| $ 361))
            ('T
             (PROG1
                 (LETT #1#
                       (SPADCALL (SPADCALL |z1| (QREFELT $ 347))
                                 (|spadConstant| $ 362) (QREFELT $ 221))
                       NIL)
               (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))))
      |z2| (QREFELT $ 363))))) 

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

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

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

(DEFUN |GUESS;diffAX| (|l| |x| |f| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 39)) |l| (QREFELT $ 127)) |f|
            (QREFELT $ 105))) 

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

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

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

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

(DEFUN |GUESS;diffHP;LR;71| (|options| $)
  (PROG (|degrees| |partitions|)
    (RETURN
     (SEQ
      (COND
       ((NULL (ZEROP (SPADCALL |options| (QREFELT $ 376))))
        (|error|
         "Guess: no support for mixed shifts in differential equations")))
      (EXIT
       (COND
        ((SPADCALL |options| (QREFELT $ 377))
         (SEQ
          (LETT |partitions| (|GUESS;FilteredPartitionStream| |options| $)
                . #1=(|GUESS;diffHP;LR;71|))
          (LETT |degrees| (|GUESS;ADEdegreeStream| |partitions| $) . #1#)
          (EXIT
           (VECTOR |degrees|
                   (CONS #'|GUESS;diffHP;LR;71!0| (VECTOR $ |partitions|))
                   (CONS #'|GUESS;diffHP;LR;71!1| (VECTOR $ |partitions|))
                   (CONS #'|GUESS;diffHP;LR;71!2| (VECTOR $ |partitions|))
                   (CONS #'|GUESS;diffHP;LR;71!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;71!3| (|z1| |z2| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;diffHP;LR;71|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
       (CONS (|function| |GUESS;diffDX|) $)
       (CONS (|function| |GUESS;diff1X|) $) $))))) 

(DEFUN |GUESS;diffHP;LR;71!2| (|l| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;diffHP;LR;71|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G3952 |i| #3=#:G3951)
        (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 $ 381)) #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (CONS (|function| |GUESS;diffDSF|) $) (|spadConstant| $ 326)
           $)))))))) 

(DEFUN |GUESS;diffHP;LR;71!1| (|o| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;diffHP;LR;71|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModOptimisedGen|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 378)) (QREFELT $ 379))
        (QREFELT $ 380))
       $))))) 

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

(DEFUN |GUESS;substDX| (|expr| |x| |n| $)
  (SPADCALL |expr| (SPADCALL |x| (QREFELT $ 39))
            (SPADCALL (SPADCALL |x| (QREFELT $ 39)) (+ |n| 1) (QREFELT $ 127))
            (QREFELT $ 46))) 

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

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

(DEFUN |GUESS;substHP;LR;75| (|options| $)
  (PROG (|partitions|)
    (RETURN
     (SEQ
      (COND
       ((NULL (ZEROP (SPADCALL |options| (QREFELT $ 376))))
        (|error|
         "Guess: no support for mixed shifts in functional equations")))
      (EXIT
       (COND
        ((SPADCALL |options| (QREFELT $ 377))
         (SEQ
          (LETT |partitions| (|GUESS;FilteredPartitionStream| |options| $)
                |GUESS;substHP;LR;75|)
          (EXIT
           (VECTOR
            (SPADCALL (CONS #'|GUESS;substHP;LR;75!0| $) |partitions|
                      (QREFELT $ 397))
            (CONS #'|GUESS;substHP;LR;75!1| (VECTOR $ |partitions|))
            (CONS #'|GUESS;substHP;LR;75!2| (VECTOR $ |partitions|))
            (CONS #'|GUESS;substHP;LR;75!3| (VECTOR $ |partitions|))
            (CONS #'|GUESS;substHP;LR;75!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;75!4| (|z1| |z2| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;substHP;LR;75|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
       (CONS (|function| |GUESS;substDX|) $)
       (CONS (|function| |GUESS;diff1X|) $) $))))) 

(DEFUN |GUESS;substHP;LR;75!3| (|l| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;substHP;LR;75|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G4004 |i| #3=#:G4003)
        (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 $ 381)) #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (CONS (|function| |GUESS;substDSF|) $) (|spadConstant| $ 326)
           $)))))))) 

(DEFUN |GUESS;substHP;LR;75!2| (|o| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;substHP;LR;75|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;FEguessModOptimisedGen|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 378)) (QREFELT $ 379))
        (QREFELT $ 380))
       $))))) 

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

(DEFUN |GUESS;substHP;LR;75!0| (|c| $) (|spadConstant| $ 361)) 

(DEFUN |GUESS;qDiffDX| (|q| |expr| |x| |n| $)
  (SPADCALL |expr| (SPADCALL |x| (QREFELT $ 39))
            (SPADCALL
             (SPADCALL (SPADCALL |q| (QREFELT $ 39)) |n| (QREFELT $ 127))
             (SPADCALL |x| (QREFELT $ 39)) (QREFELT $ 105))
            (QREFELT $ 46))) 

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

(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=#:G4025)
        (RETURN
         (SPADCALL (SPADCALL |q| (QREFELT $ 244))
                   (PROG1 (LETT #2# (SPADCALL |n| |z1| (QREFELT $ 399)) NIL)
                     (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                   (QREFELT $ 297)))))))) 

(DEFUN |GUESS;qDiffDSV| (|f| |n| |prime| |q| $)
  (PROG (Q |i| |qn| |r| #1=#:G4029 |d|)
    (RETURN
     (SEQ
      (COND ((ZEROP |n|) |f|)
            ('T
             (SEQ
              (LETT |d| (SPADCALL |f| (QREFELT $ 402)) . #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 $ 406))))) 

(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=#:G4036)
        (RETURN
         (SPADCALL (SPADCALL (SPADCALL |q| (QREFELT $ 244)) (QREFELT $ 404))
                   (PROG1 (LETT #2# (SPADCALL |n| |z1| (QREFELT $ 399)) NIL)
                     (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                   (QREFELT $ 303)))))))) 

(DEFUN |GUESS;termAsU32VectorqDiff| (|f| |partition| |prime| |q| |dl| $)
  (PROG (|fl| #1=#:G4043 #2=#:G4042 #3=#:G4053 |part| #4=#:G4052 |ll| |d|
         #5=#:G4041 #6=#:G4051 |i| #7=#:G4050)
    (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 $ 282)))
       ('T
        (SEQ
         (LETT |d|
               (PROG1 (LETT #5# (- (- (QV32LEN |f|) |dl|) 1) . #8#)
                 (|check-subtype| (>= #5# 0) '(|NonNegativeInteger|) #5#))
               . #8#)
         (LETT |ll| (SPADCALL |partition| (QREFELT $ 277)) . #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 $ 278))
                                         . #8#)
                                 (|check-subtype| (> #1# 0)
                                                  '(|PositiveInteger|) #1#))
                               |d| |prime| (QREFELT $ 285))
                              #4#)
                             . #8#)))
                     (LETT #3# (CDR #3#) . #8#) #10# G191
                     (EXIT (NREVERSE0 #4#))))
               . #8#)
         (EXIT
          (SPADCALL
           (CONS #'|GUESS;termAsU32VectorqDiff!0| (VECTOR $ |prime| |d|)) |fl|
           (QREFELT $ 289)))))))))) 

(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 $ 286)))))) 

(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=#:G4057 |p| #3=#:G4056)
        (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 $ 354))))))))) 

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

(DEFUN |GUESS;diffHP;SM;82!8| (|l1| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;diffHP;SM;82|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|partitions|)
        (RETURN
         (SEQ
          (COND
           ((NULL (SPADCALL (SPADCALL |l1| (QREFELT $ 376)) (QREFELT $ 407)))
            (|error|
             "Guess: no support for mixed shifts in differential equations")))
          (EXIT
           (COND
            ((SPADCALL |l1| (QREFELT $ 377))
             (SEQ
              (LETT |partitions| (|GUESS;FilteredPartitionStream| |l1| $) NIL)
              (EXIT
               (VECTOR
                (SPADCALL (CONS #'|GUESS;diffHP;SM;82!0| $) |partitions|
                          (QREFELT $ 397))
                (CONS #'|GUESS;diffHP;SM;82!2| (VECTOR |q| $ |partitions|))
                (CONS #'|GUESS;diffHP;SM;82!3| (VECTOR $ |partitions|))
                (CONS #'|GUESS;diffHP;SM;82!5| (VECTOR |q| $ |partitions|))
                (CONS #'|GUESS;diffHP;SM;82!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;82!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;82!6| (VECTOR $ |q|))
          (CONS (|function| |GUESS;diff1X|) $) $))))))) 

(DEFUN |GUESS;diffHP;SM;82!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;82!5| (|l| $$)
  (PROG (|partitions| $ |q|)
    (LETT |partitions| (QREFELT $$ 2) NIL)
    (LETT $ (QREFELT $$ 1) NIL)
    (LETT |q| (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (PROG (#1=#:G4073 |i| #2=#:G4072)
        (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 $ 381)) #2#)
                         NIL)))
                 (LETT #1# (CDR #1#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #2#))))
           (CONS #'|GUESS;diffHP;SM;82!4| (VECTOR $ |q|))
           (|spadConstant| $ 326) $)))))))) 

(DEFUN |GUESS;diffHP;SM;82!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;82!3| (|o| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) NIL)
    (LETT $ (QREFELT $$ 0) NIL)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModGenq|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 378)) (QREFELT $ 379))
        (QREFELT $ 380))
       (|spadConstant| $ 361) $))))) 

(DEFUN |GUESS;diffHP;SM;82!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;82!1| (VECTOR $ |q|)) (|spadConstant| $ 325)
          $))))))) 

(DEFUN |GUESS;diffHP;SM;82!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;82!0| (|c| $) (|spadConstant| $ 361)) 

(DEFUN |GUESS;ShiftSX| (|expr| |x| |n| $)
  (SPADCALL |expr| (SPADCALL |x| (QREFELT $ 39))
            (SPADCALL (SPADCALL |x| (QREFELT $ 39))
                      (SPADCALL |n| (QREFELT $ 45)) (QREFELT $ 110))
            (QREFELT $ 46))) 

(DEFUN |GUESS;ShiftSXGF| (|expr| |x| |n| $)
  (PROG (|l| #1=#:G4100 |i| #2=#:G4099)
    (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 $ 368))
                                      (SPADCALL (SPADCALL |i| (QREFELT $ 237))
                                                (QREFELT $ 45))
                                      (QREFELT $ 54))
                                     (SPADCALL |x| (QREFELT $ 39))
                                     (|spadConstant| $ 49) (QREFELT $ 46))
                                    (SPADCALL (SPADCALL |x| (QREFELT $ 39)) |i|
                                              (QREFELT $ 127))
                                    (QREFELT $ 105))
                                   #2#)
                                  . #3#)))
                          (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191
                          (EXIT (NREVERSE0 #2#))))
                    . #3#)
              (EXIT
               (SPADCALL
                (SPADCALL |expr| (SPADCALL (ELT $ 110) |l| (QREFELT $ 280))
                          (QREFELT $ 95))
                (SPADCALL (SPADCALL |x| (QREFELT $ 39)) |n| (QREFELT $ 127))
                (QREFELT $ 54)))))))))) 

(DEFUN |GUESS;ShiftSS| (|s| |n| $)
  (SPADCALL |s| (SPADCALL (ELT $ 410) |n| (QREFELT $ 413)))) 

(DEFUN |GUESS;ShiftSF| (|s| |n| $)
  (SPADCALL |s| (SPADCALL (ELT $ 414) |n| (QREFELT $ 417)))) 

(DEFUN |GUESS;ShiftAX| (|l| |n| |f| $)
  (SPADCALL (SPADCALL (SPADCALL |n| (QREFELT $ 39)) |l| (QREFELT $ 127)) |f|
            (QREFELT $ 105))) 

(DEFUN |GUESS;ShiftAXGF| (|l| |x| |f| $)
  (PROG (|s| |i| #1=#:G4112)
    (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 $ 419))
                                      (QREFELT $ 45))
                                     (SPADCALL (SPADCALL |x| (QREFELT $ 39))
                                               |i| (QREFELT $ 127))
                                     (QREFELT $ 105))
                                    (SPADCALL |f| |x| |i| (QREFELT $ 368))
                                    (QREFELT $ 105))
                                   #1#)
                                  . #2#)))
                          (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
                          (EXIT (NREVERSE0 #1#))))
                    . #2#)
              (EXIT (SPADCALL (ELT $ 110) |s| (QREFELT $ 280)))))))))) 

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

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

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

(DEFUN |GUESS;shiftHP;LR;92| (|options| $)
  (PROG (|degrees| |partitions|)
    (RETURN
     (SEQ
      (COND
       ((NULL (ZEROP (SPADCALL |options| (QREFELT $ 376))))
        (|error| "Guess: need a symbol for mixed Shifting")))
      (LETT |partitions| (|GUESS;FilteredPartitionStream| |options| $)
            . #1=(|GUESS;shiftHP;LR;92|))
      (EXIT
       (COND
        ((SPADCALL |options| (QREFELT $ 377))
         (|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;92!0| (VECTOR $ |partitions|))
                       (CONS #'|GUESS;shiftHP;LR;92!1|
                             (VECTOR |degrees| $ |partitions|))
                       (CONS #'|GUESS;shiftHP;LR;92!2| (VECTOR $ |partitions|))
                       (CONS #'|GUESS;shiftHP;LR;92!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;92!3| (|z1| |z2| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;shiftHP;LR;92|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEEXPRRStream| |z1| |z2| |partitions|
       (CONS (|function| |GUESS;ShiftSX|) $)
       (CONS (|function| |GUESS;diff1X|) $) $))))) 

(DEFUN |GUESS;shiftHP;LR;92!2| (|l| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;shiftHP;LR;92|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G4131 |i| #3=#:G4130)
        (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 $ 381)) #3#)
                         NIL)))
                 (LETT #2# (CDR #2#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #3#))))
           (CONS (|function| |GUESS;ShiftSF|) $)
           (SPADCALL
            (SPADCALL (|spadConstant| $ 326)
                      (SPADCALL (|spadConstant| $ 332) (|spadConstant| $ 108)
                                (QREFELT $ 428))
                      (QREFELT $ 429))
            (SPADCALL (|spadConstant| $ 331) (QREFELT $ 425)) (QREFELT $ 430))
           $)))))))) 

(DEFUN |GUESS;shiftHP;LR;92!1| (|o| $$)
  (PROG (|partitions| $ |degrees|)
    (LETT |partitions| (QREFELT $$ 2) . #1=(|GUESS;shiftHP;LR;92|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |degrees| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessModGen2|
       (SPADCALL
        (SPADCALL (SPADCALL |partitions| |o| (QREFELT $ 378)) (QREFELT $ 379))
        (QREFELT $ 380))
       (SPADCALL |degrees| |o| (QREFELT $ 427)) $))))) 

(DEFUN |GUESS;shiftHP;LR;92!0| (|z1| $$)
  (PROG (|partitions| $)
    (LETT |partitions| (QREFELT $$ 1) . #1=(|GUESS;shiftHP;LR;92|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|GUESS;ADEguessStream2| |z1| |partitions|
       (CONS (|function| |GUESS;ShiftSS|) $)
       (SPADCALL
        (SPADCALL (|spadConstant| $ 325)
                  (SPADCALL (|spadConstant| $ 11) (|spadConstant| $ 362)
                            (QREFELT $ 423))
                  (QREFELT $ 424))
        (SPADCALL (|spadConstant| $ 331) (QREFELT $ 425)) (QREFELT $ 426))
       $))))) 

(DEFUN |GUESS;qShiftAX| (|q| |l| |n| |f| $)
  (SPADCALL
   (SPADCALL (SPADCALL |q| (QREFELT $ 39))
             (SPADCALL |l| (SPADCALL |n| (QREFELT $ 39)) (QREFELT $ 432))
             (QREFELT $ 218))
   |f| (QREFELT $ 105))) 

(DEFUN |GUESS;qShiftA| (|q| |k| |l| |f| $)
  (SPADCALL (SPADCALL |q| (QREFELT $ 433)) |k| |l| |f| (QREFELT $ 434))) 

(DEFUN |GUESS;qShiftAF| (|q| |k| |l| |f| $)
  (SPADCALL (SPADCALL (SPADCALL |q| (QREFELT $ 244)) (QREFELT $ 404)) |k| |l|
            |f| (QREFELT $ 435))) 

(DEFUN |GUESS;qShiftC| (|q| |total| $)
  (SPADCALL (SPADCALL |q| (QREFELT $ 433)) |total| (QREFELT $ 436))) 

(DEFUN |GUESS;qSubstUFPSF| (|q| |s| |maxMD| $)
  (PROG (|i| #1=#:G4156)
    (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 $ 244)) |i|
                                          (QREFELT $ 297))
                                (SPADCALL (|spadConstant| $ 11) 1
                                          (QREFELT $ 423))
                                (QREFELT $ 437))
                               (QREFELT $ 438))
                     #1#)
                    . #2#)))
            (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
            (EXIT (NREVERSE0 #1#)))))))) 

(DEFUN |GUESS;qSubstEXPRR| (|q| |xx| |s| |maxMD| $)
  (PROG (|i| #1=#:G4159)
    (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 $ 39))
                                (SPADCALL |i| (SPADCALL |xx| (QREFELT $ 39))
                                          (QREFELT $ 432))
                                (QREFELT $ 218))
                      |s| (QREFELT $ 105))
                     #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| $ 325)
                        (SPADCALL (|spadConstant| $ 11) 1 (QREFELT $ 423))
                        (QREFELT $ 424))
              (SPADCALL (|spadConstant| $ 331) (QREFELT $ 425))
              (QREFELT $ 426))
             $)
            |GUESS;ADEguessStreamMixShift|)
      (EXIT
       (SPADCALL |s|
                 (CONS #'|GUESS;ADEguessStreamMixShift!0|
                       (VECTOR $ |maxMD| |q|))
                 (QREFELT $ 441))))))) 

(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=#:G4183 |v| #3=#:G4184 |w|
             |vv1| #4=#:G4182 |p| #5=#:G4181 O #6=#:G4168 |qv| |d| #7=#:G4166)
        (RETURN
         (SEQ
          (LETT |d|
                (PROG1
                    (LETT #7#
                          (SPADCALL
                           (SPADCALL (SPADCALL |f| (QREFELT $ 442)) |dl|
                                     (QREFELT $ 221))
                           (|spadConstant| $ 362) (QREFELT $ 221))
                          NIL)
                  (|check-subtype| (>= #7# 0) '(|NonNegativeInteger|) #7#))
                NIL)
          (LETT |qv|
                (SPADCALL (SPADCALL |d| (|spadConstant| $ 362) (QREFELT $ 260))
                          (|spadConstant| $ 362) (QREFELT $ 443))
                NIL)
          (SEQ (LETT |i| (|spadConstant| $ 362) NIL) G190
               (COND ((> |i| |d|) (GO G191)))
               (SEQ
                (EXIT
                 (SPADCALL |qv| |i|
                           (SPADCALL (SPADCALL |q| |i| (QREFELT $ 446)) |prime|
                                     (QREFELT $ 447))
                           (QREFELT $ 448))))
               (LETT |i| (+ |i| 1) NIL) (GO G190) G191 (EXIT NIL))
          (LETT O
                (PROG1
                    (LETT #6#
                          (SPADCALL
                           (SPADCALL |o|
                                     (SPADCALL |maxMD| (|spadConstant| $ 362)
                                               (QREFELT $ 260))
                                     (QREFELT $ 449))
                           (QREFELT $ 450))
                          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 $ 378))
                              (QREFELT $ 379))
                             (QREFELT $ 380))
                            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 $ 451)) NIL)
          (SEQ (LETT |w| NIL NIL)
               (LETT #3# (SPADCALL |vv1| (QREFELT $ 452)) 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| $ 362) NIL) G190
                         (COND ((> |i| |maxMD|) (GO G191)))
                         (SEQ (LETT |vn| (SPADCALL |vn| (QREFELT $ 453)) NIL)
                              (SEQ (LETT |e| (|spadConstant| $ 362) NIL) G190
                                   (COND ((> |e| |d|) (GO G191)))
                                   (SEQ
                                    (EXIT
                                     (SPADCALL |vn| |e|
                                               (QSMULMOD32
                                                (SPADCALL |vn| |e|
                                                          (QREFELT $ 454))
                                                (SPADCALL |qv| |e|
                                                          (QREFELT $ 454))
                                                |prime|)
                                               (QREFELT $ 448))))
                                   (LETT |e| (+ |e| 1) NIL) (GO G190) G191
                                   (EXIT NIL))
                              (EXIT
                               (LETT |vv| (SPADCALL |vn| |vv| (QREFELT $ 455))
                                     NIL)))
                         (LETT |i| (+ |i| 1) NIL) (GO G190) G191 (EXIT NIL))
                    (EXIT
                     (LETT |l|
                           (SPADCALL
                            (SPADCALL (SPADCALL |vv| (QREFELT $ 456))
                                      (QREFELT $ 354))
                            |l| (QREFELT $ 458))
                           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| $ 362)
                                     (QREFELT $ 260))
                           (QREFELT $ 459))
                 (|spadConstant| $ 362) (QREFELT $ 221))
                NIL)
          (COND
           ((SPADCALL |r| (SPADCALL (|spadConstant| $ 445) (QREFELT $ 460))
                      (QREFELT $ 461))
            (LETT |r| |maxMD| NIL)))
          (SEQ (LETT |i| (|spadConstant| $ 362) NIL) G190
               (COND ((> |i| |r|) (GO G191)))
               (SEQ (LETT |vn| (SPADCALL |vn| (QREFELT $ 453)) NIL)
                    (SEQ (LETT |e| (|spadConstant| $ 362) NIL) G190
                         (COND ((> |e| |d|) (GO G191)))
                         (SEQ
                          (EXIT
                           (SPADCALL |vn| |e|
                                     (QSMULMOD32
                                      (SPADCALL |vn| |e| (QREFELT $ 454))
                                      (SPADCALL |qv| |e| (QREFELT $ 454))
                                      |prime|)
                                     (QREFELT $ 448))))
                         (LETT |e| (+ |e| 1) NIL) (GO G190) G191 (EXIT NIL))
                    (EXIT
                     (LETT |vv| (SPADCALL |vn| |vv| (QREFELT $ 455)) NIL)))
               (LETT |i| (+ |i| 1) NIL) (GO G190) G191 (EXIT NIL))
          (LETT |l|
                (SPADCALL
                 (SPADCALL (SPADCALL |vv| (QREFELT $ 456)) (QREFELT $ 354)) |l|
                 (QREFELT $ 458))
                NIL)
          (EXIT
           (SPADCALL (SPADCALL |l| (QREFELT $ 462)) (QREFELT $ 464)))))))))) 

(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 $ 468))))))) 

(DEFUN |GUESS;ADEdegreeStreamMixShift!0| (|z1| $$)
  (PROG ($ |maxMD|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;ADEdegreeStreamMixShift|))
    (LETT |maxMD| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|i| #2=#:G4188)
        (RETURN
         (SEQ
          (PROGN
           (LETT #2# NIL NIL)
           (SEQ (LETT |i| (|spadConstant| $ 361) 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=#:G4212 |i| #3=#:G4211 |f0| |exponents| #4=#:G4199
             |oldPartition| #5=#:G4210 #6=#:G4209 |newPartition| #7=#:G4193
             #8=#:G4208 |p| #9=#:G4192)
        (RETURN
         (SEQ (LETT |res| NIL NIL) (LETT |exponents| NIL NIL)
              (LETT |oldPartition|
                    (PROG1
                        (LETT #9#
                              (SPADCALL
                               (SPADCALL (SPADCALL |l| (QREFELT $ 470))
                                         (SPADCALL |maxMD|
                                                   (|spadConstant| $ 108)
                                                   (QREFELT $ 260))
                                         (QREFELT $ 449))
                               (QREFELT $ 450))
                              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| $ 108)
                                                         (QREFELT $ 260))
                                               (QREFELT $ 449))
                                     (QREFELT $ 450))
                                    NIL)
                            (|check-subtype| (> #7# 0) '(|PositiveInteger|)
                                             #7#))
                          NIL)
                    (COND
                     ((SPADCALL |oldPartition| |newPartition| (QREFELT $ 471))
                      (SEQ
                       (LETT |f0|
                             (|GUESS;termAsUFPSSUPF2| |f|
                              (SPADCALL |partitions| |oldPartition|
                                        (QREFELT $ 381))
                              (CONS (|function| |GUESS;ShiftSF|) $)
                              (SPADCALL
                               (SPADCALL (|spadConstant| $ 326)
                                         (SPADCALL (|spadConstant| $ 332)
                                                   (|spadConstant| $ 108)
                                                   (QREFELT $ 428))
                                         (QREFELT $ 429))
                               (SPADCALL (|spadConstant| $ 331)
                                         (QREFELT $ 425))
                               (QREFELT $ 430))
                              $)
                             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 $
                                                                             244))
                                                          |i| (QREFELT $ 297))
                                                         (QREFELT $ 404))
                                                        (SPADCALL
                                                         (|spadConstant| $ 332)
                                                         (|spadConstant| $ 108)
                                                         (QREFELT $ 428))
                                                        (QREFELT $ 472))
                                                       (QREFELT $ 473))
                                             #6#)
                                            NIL)))
                                    (LETT #5# (CDR #5#) NIL) (GO G190) G191
                                    (EXIT (NREVERSE0 #6#))))
                              |res| (QREFELT $ 474))
                             NIL)
                       (LETT |exponents| NIL NIL)
                       (EXIT (LETT |oldPartition| |newPartition| NIL)))))
                    (EXIT
                     (LETT |exponents|
                           (SPADCALL
                            (PROG1
                                (LETT #4#
                                      (SPADCALL
                                       (SPADCALL |p| (|spadConstant| $ 108)
                                                 (QREFELT $ 221))
                                       (SPADCALL |maxMD| (|spadConstant| $ 108)
                                                 (QREFELT $ 260))
                                       (QREFELT $ 447))
                                      NIL)
                              (|check-subtype| (>= #4# 0)
                                               '(|NonNegativeInteger|) #4#))
                            |exponents| (QREFELT $ 476))
                           NIL)))
                   (LETT #8# (CDR #8#) NIL) (GO G190) G191 (EXIT NIL))
              (LETT |f0|
                    (|GUESS;termAsUFPSSUPF2| |f|
                     (SPADCALL |partitions| |oldPartition| (QREFELT $ 381))
                     (CONS (|function| |GUESS;ShiftSF|) $)
                     (SPADCALL
                      (SPADCALL (|spadConstant| $ 326)
                                (SPADCALL (|spadConstant| $ 332)
                                          (|spadConstant| $ 108)
                                          (QREFELT $ 428))
                                (QREFELT $ 429))
                      (SPADCALL (|spadConstant| $ 331) (QREFELT $ 425))
                      (QREFELT $ 430))
                     $)
                    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 $ 244))
                                                 |i| (QREFELT $ 297))
                                                (QREFELT $ 404))
                                               (SPADCALL (|spadConstant| $ 332)
                                                         (|spadConstant| $ 108)
                                                         (QREFELT $ 428))
                                               (QREFELT $ 472))
                                              (QREFELT $ 473))
                                    #3#)
                                   NIL)))
                           (LETT #2# (CDR #2#) NIL) (GO G190) G191
                           (EXIT (NREVERSE0 #3#))))
                     |res| (QREFELT $ 474))
                    NIL)
              (EXIT
               (SPADCALL (SPADCALL |res| (QREFELT $ 477))
                         (QREFELT $ 355)))))))))) 

(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 $ 480))))))) 

(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 $ 377))
            (|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 $ 376)) NIL)
                          (QREFELT $ 407))
                (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 $ 427)) |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=#:G4236 |i| #2=#:G4235)
        (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 $ 381)) #2#)
                         NIL)))
                 (LETT #1# (CDR #1#) NIL) (GO G190) G191
                 (EXIT (NREVERSE0 #2#))))
           (CONS (|function| |GUESS;ShiftSF|) $)
           (SPADCALL
            (SPADCALL (|spadConstant| $ 326)
                      (SPADCALL (|spadConstant| $ 332) (|spadConstant| $ 108)
                                (QREFELT $ 428))
                      (QREFELT $ 429))
            (SPADCALL (|spadConstant| $ 331) (QREFELT $ 425)) (QREFELT $ 430))
           $)))))))) 

(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 $ 378)) (QREFELT $ 379))
        (QREFELT $ 380))
       (SPADCALL |degrees| |o| (QREFELT $ 427)) $))))) 

(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| $ 325)
                  (SPADCALL (|spadConstant| $ 11) (|spadConstant| $ 362)
                            (QREFELT $ 423))
                  (QREFELT $ 424))
        (SPADCALL (|spadConstant| $ 331) (QREFELT $ 425)) (QREFELT $ 426))
       $))))) 

(DEFUN |GUESS;makeEXPRR| (DAX |x| |p| |expr| $)
  (COND ((SPADCALL |p| (QREFELT $ 123)) (|spadConstant| $ 49))
        ('T
         (SPADCALL
          (SPADCALL (SPADCALL (SPADCALL |p| (QREFELT $ 124)) (QREFELT $ 10))
                    (SPADCALL (SPADCALL |p| (QREFELT $ 126)) |x| |expr| DAX)
                    (QREFELT $ 105))
          (|GUESS;makeEXPRR| DAX |x| (SPADCALL |p| (QREFELT $ 128)) |expr| $)
          (QREFELT $ 110))))) 

(DEFUN |GUESS;list2UFPSF| (|list| $)
  (SPADCALL (SPADCALL |list| (QREFELT $ 483)) (QREFELT $ 484))) 

(DEFUN |GUESS;list2UFPSSUPF| (|list| $)
  (PROG (|l2| |s1| |l1| #1=#:G4283 |e| #2=#:G4282)
    (RETURN
     (SEQ
      (LETT |l1|
            (SPADCALL
             (PROGN
              (LETT #2# NIL . #3=(|GUESS;list2UFPSSUPF|))
              (SEQ (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 $ 404)) #2#)
                           . #3#)))
                   (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                   (EXIT (NREVERSE0 #2#))))
             (QREFELT $ 487))
            . #3#)
      (LETT |s1| (SPADCALL (ELT $ 256) 0 (QREFELT $ 259)) . #3#)
      (LETT |l2|
            (SPADCALL (CONS #'|GUESS;list2UFPSSUPF!0| $) |s1| (QREFELT $ 492))
            . #3#)
      (EXIT (SPADCALL (SPADCALL |l1| |l2| (QREFELT $ 493)) (QREFELT $ 494))))))) 

(DEFUN |GUESS;list2UFPSSUPF!0| (|i| $)
  (PROG (#1=#:G4278)
    (RETURN
     (SPADCALL (|spadConstant| $ 11)
               (SPADCALL (|spadConstant| $ 362)
                         (PROG1 (LETT #1# |i| NIL)
                           (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|)
                                            #1#))
                         (QREFELT $ 489))
               (QREFELT $ 490))))) 

(DEFUN |GUESS;SUPF2SUPSUPF| (|p| $) (SPADCALL (ELT $ 404) |p| (QREFELT $ 498))) 

(DEFUN |GUESS;UFPSF2SUPF| (|f| |deg| $)
  (SPADCALL (SPADCALL |f| |deg| (QREFELT $ 500)) (QREFELT $ 501))) 

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

(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;precCheck| (|list| |resi| |options| |sigma| |bad| $)
  (PROG (#1=#:G4328 |res2| |p2val| |p2| #2=#:G4330 |j| |si| |i| |res1| |vi|
         |gl| #3=#:G4329 |cden| |c2| #4=#:G4299 |c1| |pp| |vd| |order| |j0|
         |svar| |max_ind| |degree_loss| |gl0| |m| |resv| |homo| |homp|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |homp| (SPADCALL |options| (QREFELT $ 252))
              . #5=(|GUESS;precCheck|))
        (LETT |homo| (COND ((QEQCAR |homp| 1) (QCDR |homp|)) (#6='T 'T)) . #5#)
        (LETT |resv| (SPADCALL |resi| (QREFELT $ 508)) . #5#)
        (LETT |m| (QVSIZE |resv|) . #5#)
        (LETT |gl0| (SPADCALL |list| (QREFELT $ 510)) . #5#)
        (LETT |degree_loss| (COND (|homo| (- |m| 1)) (#6# (- |m| 2))) . #5#)
        (COND
         ((SPADCALL |options| (QREFELT $ 511))
          (LETT |max_ind| (- (- (QVSIZE |gl0|) |degree_loss|) 1) . #5#))
         (#6# (LETT |max_ind| (- |sigma| 1) . #5#)))
        (LETT |svar| (SPADCALL (QREFELT $ 513)) . #5#)
        (LETT |j0| (COND (|homo| 1) (#6# 2)) . #5#) (LETT |order| 0 . #5#)
        (EXIT
         (COND
          ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
           (SEQ (LETT |gl| |gl0| . #5#)
                (SEQ (LETT |i| 0 . #5#) G190
                     (COND ((QSGREATERP |i| |max_ind|) #7=(GO G191)))
                     (SEQ (LETT |res1| (|spadConstant| $ 48) . #5#)
                          (LETT |cden| (|spadConstant| $ 12) . #5#)
                          (LETT |si| (SPADCALL |i| (QREFELT $ 159)) . #5#)
                          (COND
                           ((NULL |homo|)
                            (LETT |res1|
                                  (SPADCALL
                                   (SPADCALL
                                    (SPADCALL |resv| 1 (QREFELT $ 516)) |svar|
                                    |si| (QREFELT $ 517))
                                   (QREFELT $ 518))
                                  . #5#)))
                          (SEQ (LETT |j| |j0| . #5#) G190
                               (COND ((> |j| |m|) #7#))
                               (SEQ
                                (LETT |p2|
                                      (SPADCALL |resv| |j| (QREFELT $ 516))
                                      . #5#)
                                (LETT |p2val|
                                      (SPADCALL
                                       (SPADCALL |p2| |svar| |si|
                                                 (QREFELT $ 517))
                                       (QREFELT $ 518))
                                      . #5#)
                                (LETT |vi|
                                      (SPADCALL |gl| (+ (- (+ |i| |j|) |j0|) 1)
                                                (QREFELT $ 519))
                                      . #5#)
                                (LETT |vd| (SPADCALL |vi| (QREFELT $ 30))
                                      . #5#)
                                (LETT |pp|
                                      (SPADCALL |cden| |vd| (QREFELT $ 520))
                                      . #5#)
                                (LETT |c1|
                                      (PROG2
                                          (LETT #4#
                                                (SPADCALL |cden| |pp|
                                                          (QREFELT $ 170))
                                                . #5#)
                                          (QCDR #4#)
                                        (|check-union| (QEQCAR #4# 0)
                                                       (QREFELT $ 7) #4#))
                                      . #5#)
                                (LETT |c2|
                                      (PROG2
                                          (LETT #4#
                                                (SPADCALL |vd| |pp|
                                                          (QREFELT $ 170))
                                                . #5#)
                                          (QCDR #4#)
                                        (|check-union| (QEQCAR #4# 0)
                                                       (QREFELT $ 7) #4#))
                                      . #5#)
                                (LETT |res1|
                                      (SPADCALL
                                       (SPADCALL |c2| |res1| (QREFELT $ 166))
                                       (SPADCALL
                                        (SPADCALL |p2val| |c1| (QREFELT $ 166))
                                        (SPADCALL |vi| (QREFELT $ 29))
                                        (QREFELT $ 166))
                                       (QREFELT $ 521))
                                      . #5#)
                                (EXIT
                                 (LETT |cden|
                                       (SPADCALL |cden| |c2| (QREFELT $ 166))
                                       . #5#)))
                               (LETT |j| (+ |j| 1) . #5#) #8=(GO G190) G191
                               (EXIT NIL))
                          (EXIT
                           (COND
                            ((NULL
                              (SPADCALL |res1| (|spadConstant| $ 48)
                                        (QREFELT $ 522)))
                             (COND
                              ((< |i| |sigma|)
                               (PROGN
                                (LETT #1# (CONS 2 "no_solution") . #5#)
                                (GO #1#)))
                              ('T
                               (PROGN
                                (LETT #1# (CONS 1 "reject") . #5#)
                                (GO #1#))))))))
                     (LETT |i| (QSADD1 |i|) . #5#) #8# G191 (EXIT NIL))
                (COND
                 ((NULL (SPADCALL |options| (QREFELT $ 511)))
                  (PROGN (LETT #1# (CONS 0 "good") . #5#) (GO #1#))))
                (EXIT
                 (COND
                  (|bad| (PROGN (LETT #1# (CONS 1 "reject") . #5#) (GO #1#)))
                  (#6#
                   (SEQ
                    (SEQ (LETT |i| 1 . #5#) G190
                         (COND ((QSGREATERP |i| |degree_loss|) #7#))
                         (SEQ
                          (LETT |si|
                                (SPADCALL (+ |i| |max_ind|) (QREFELT $ 159))
                                . #5#)
                          (SEQ (LETT |j| (- |m| |i|) . #5#) G190
                               (COND ((> |j| |m|) #7#))
                               (SEQ
                                (LETT |p2|
                                      (SPADCALL |resv| |j| (QREFELT $ 516))
                                      . #5#)
                                (LETT |p2val|
                                      (SPADCALL
                                       (SPADCALL |p2| |svar| |si|
                                                 (QREFELT $ 517))
                                       (QREFELT $ 518))
                                      . #5#)
                                (EXIT
                                 (COND
                                  ((NULL
                                    (SPADCALL |p2val| (|spadConstant| $ 48)
                                              (QREFELT $ 522)))
                                   (PROGN
                                    (LETT #1# (CONS 0 "good") . #5#)
                                    (GO #1#))))))
                               (LETT |j| (+ |j| 1) . #5#) #8# G191 (EXIT NIL))
                          (LETT |res2| (|spadConstant| $ 47) . #5#)
                          (COND
                           (|homo|
                            (LETT |res2|
                                  (SPADCALL
                                   (SPADCALL
                                    (SPADCALL
                                     (SPADCALL |resv| 1 (QREFELT $ 516)) |svar|
                                     |si| (QREFELT $ 517))
                                    (QREFELT $ 518))
                                   (QREFELT $ 56))
                                  . #5#)))
                          (SEQ (LETT |j| |j0| . #5#)
                               (LETT #3# (- |m| |i|) . #5#) G190
                               (COND ((> |j| #3#) #7#))
                               (SEQ
                                (LETT |p2|
                                      (SPADCALL |resv| |j| (QREFELT $ 516))
                                      . #5#)
                                (LETT |p2val|
                                      (SPADCALL
                                       (SPADCALL |p2| |svar| |si|
                                                 (QREFELT $ 517))
                                       (QREFELT $ 518))
                                      . #5#)
                                (EXIT
                                 (LETT |res2|
                                       (SPADCALL |res2|
                                                 (SPADCALL |p2val|
                                                           (SPADCALL |gl|
                                                                     (+
                                                                      (-
                                                                       (+
                                                                        (+ |i|
                                                                           |max_ind|)
                                                                        |j|)
                                                                       |j0|)
                                                                      1)
                                                                     (QREFELT $
                                                                              519))
                                                           (QREFELT $ 524))
                                                 (QREFELT $ 525))
                                       . #5#)))
                               (LETT |j| (+ |j| 1) . #5#) #8# G191 (EXIT NIL))
                          (EXIT
                           (COND
                            ((NULL
                              (SPADCALL |res2| (|spadConstant| $ 47)
                                        (QREFELT $ 526)))
                             (PROGN
                              (LETT #1# (CONS 1 "reject") . #5#)
                              (GO #1#))))))
                         (LETT |i| (QSADD1 |i|) . #5#) #8# G191 (EXIT NIL))
                    (EXIT
                     (PROGN (LETT #1# (CONS 0 "good") . #5#) (GO #1#)))))))))
          ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7))
           (SEQ (LETT |gl| |gl0| . #5#)
                (SEQ (LETT |i| 0 . #5#) G190
                     (COND ((QSGREATERP |i| |max_ind|) #7#))
                     (SEQ (LETT |res1| (|spadConstant| $ 48) . #5#)
                          (LETT |si| (SPADCALL |i| (QREFELT $ 159)) . #5#)
                          (COND
                           ((NULL |homo|)
                            (LETT |res1|
                                  (SPADCALL
                                   (SPADCALL
                                    (SPADCALL |resv| 1 (QREFELT $ 516)) |svar|
                                    |si| (QREFELT $ 517))
                                   (QREFELT $ 518))
                                  . #5#)))
                          (SEQ (LETT |j| |j0| . #5#) G190
                               (COND ((> |j| |m|) #7#))
                               (SEQ
                                (LETT |p2|
                                      (SPADCALL |resv| |j| (QREFELT $ 516))
                                      . #5#)
                                (LETT |p2val|
                                      (SPADCALL
                                       (SPADCALL |p2| |svar| |si|
                                                 (QREFELT $ 517))
                                       (QREFELT $ 518))
                                      . #5#)
                                (LETT |vi|
                                      (SPADCALL |gl| (+ (- (+ |i| |j|) |j0|) 1)
                                                (QREFELT $ 528))
                                      . #5#)
                                (EXIT
                                 (LETT |res1|
                                       (SPADCALL |res1|
                                                 (SPADCALL |p2val|
                                                           (SPADCALL |gl|
                                                                     (+
                                                                      (-
                                                                       (+ |i|
                                                                          |j|)
                                                                       |j0|)
                                                                      1)
                                                                     (QREFELT $
                                                                              528))
                                                           (QREFELT $ 166))
                                                 (QREFELT $ 521))
                                       . #5#)))
                               (LETT |j| (+ |j| 1) . #5#) #8# G191 (EXIT NIL))
                          (EXIT
                           (COND
                            ((NULL
                              (SPADCALL |res1| (|spadConstant| $ 48)
                                        (QREFELT $ 522)))
                             (COND
                              ((< |i| |sigma|)
                               (PROGN
                                (LETT #1# (CONS 2 "no_solution") . #5#)
                                (GO #1#)))
                              ('T
                               (PROGN
                                (LETT #1# (CONS 1 "reject") . #5#)
                                (GO #1#))))))))
                     (LETT |i| (QSADD1 |i|) . #5#) #8# G191 (EXIT NIL))
                (COND
                 ((NULL (SPADCALL |options| (QREFELT $ 511)))
                  (PROGN (LETT #1# (CONS 0 "good") . #5#) (GO #1#))))
                (EXIT
                 (COND
                  (|bad| (PROGN (LETT #1# (CONS 1 "reject") . #5#) (GO #1#)))
                  (#6#
                   (SEQ
                    (SEQ (LETT |i| 1 . #5#) G190
                         (COND ((QSGREATERP |i| |degree_loss|) #7#))
                         (SEQ
                          (LETT |si|
                                (SPADCALL (+ |i| |max_ind|) (QREFELT $ 159))
                                . #5#)
                          (SEQ (LETT |j| (- |m| |i|) . #5#) G190
                               (COND ((> |j| |m|) #7#))
                               (SEQ
                                (LETT |p2|
                                      (SPADCALL |resv| |j| (QREFELT $ 516))
                                      . #5#)
                                (LETT |p2val|
                                      (SPADCALL
                                       (SPADCALL |p2| |svar| |si|
                                                 (QREFELT $ 517))
                                       (QREFELT $ 518))
                                      . #5#)
                                (EXIT
                                 (COND
                                  ((NULL
                                    (SPADCALL |p2val| (|spadConstant| $ 48)
                                              (QREFELT $ 522)))
                                   (PROGN
                                    (LETT #1# (CONS 0 "good") . #5#)
                                    (GO #1#))))))
                               (LETT |j| (+ |j| 1) . #5#) #8# G191 (EXIT NIL))
                          (LETT |res2| (|spadConstant| $ 48) . #5#)
                          (COND
                           (|homo|
                            (LETT |res2|
                                  (SPADCALL
                                   (SPADCALL
                                    (SPADCALL |resv| 1 (QREFELT $ 516)) |svar|
                                    |si| (QREFELT $ 517))
                                   (QREFELT $ 518))
                                  . #5#)))
                          (SEQ (LETT |j| |j0| . #5#)
                               (LETT #2# (- |m| |i|) . #5#) G190
                               (COND ((> |j| #2#) #7#))
                               (SEQ
                                (LETT |p2|
                                      (SPADCALL |resv| |j| (QREFELT $ 516))
                                      . #5#)
                                (LETT |p2val|
                                      (SPADCALL
                                       (SPADCALL |p2| |svar| |si|
                                                 (QREFELT $ 517))
                                       (QREFELT $ 518))
                                      . #5#)
                                (EXIT
                                 (LETT |res2|
                                       (SPADCALL |res2|
                                                 (SPADCALL |p2val|
                                                           (SPADCALL |gl|
                                                                     (+
                                                                      (-
                                                                       (+
                                                                        (+ |i|
                                                                           |max_ind|)
                                                                        |j|)
                                                                       |j0|)
                                                                      1)
                                                                     (QREFELT $
                                                                              528))
                                                           (QREFELT $ 166))
                                                 (QREFELT $ 521))
                                       . #5#)))
                               (LETT |j| (+ |j| 1) . #5#) #8# G191 (EXIT NIL))
                          (EXIT
                           (COND
                            ((NULL
                              (SPADCALL |res2| (|spadConstant| $ 48)
                                        (QREFELT $ 522)))
                             (PROGN
                              (LETT #1# (CONS 1 "reject") . #5#)
                              (GO #1#))))))
                         (LETT |i| (QSADD1 |i|) . #5#) #8# G191 (EXIT NIL))
                    (EXIT
                     (PROGN (LETT #1# (CONS 0 "good") . #5#) (GO #1#)))))))))
          (#6# (|error| "F must be S or Fraction(S)"))))))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;checkInterpolant| (|list| |o| |resi| D |options| |sigma| $)
  (PROG (#1=#:G4366 #2=#:G4359 |order| |c| |d| |dmax| |resiSUPF| #3=#:G4371 |i|
         #4=#:G4370 |testList| |flist| #5=#:G4348 #6=#:G4369 |maxPow| |maxP|
         |len| |reject_one_term| #7=#:G4368 |e| #8=#:G4336 |nonZeroCoefficient|
         #9=#:G4367)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((SPADCALL |options| (QREFELT $ 67))
          (SPADCALL "checking solution" (QREFELT $ 79))))
        (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 $ 529))
                              (QREFELT $ 530)))
                   (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 $ 531)))
                   (SEQ
                    (COND
                     ((SPADCALL |options| (QREFELT $ 67))
                      (SPADCALL "list contains non-zero element"
                                (QREFELT $ 79))))
                    (EXIT (LETT |reject_one_term| 'T . #10#)))))))
               (LETT #7# (CDR #7#) . #10#) #12# G191 (EXIT NIL))))
        (LETT |len| (LENGTH |list|) . #10#)
        (LETT |maxP| (SPADCALL |options| (QREFELT $ 250)) . #10#)
        (COND ((QEQCAR |maxP| 0) (LETT |maxPow| (QCDR |maxP|) . #10#))
              (#13='T (LETT |maxPow| (+ |len| 2) . #10#)))
        (COND
         ((EQL |maxPow| 1)
          (COND
           ((EQUAL (QVELT D 5) '|shiftHP|)
            (EXIT
             (|GUESS;precCheck| |list| |resi| |options| |sigma|
              |reject_one_term| $))))))
        (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 $ 529))
                                    (QREFELT $ 530))
                          'NIL)
                         (#13# '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 $ 529)) $)
                              $)
                             #4#)
                            . #10#)))
                    (LETT #3# (CDR #3#) . #10#) #12# G191
                    (EXIT (NREVERSE0 #4#))))
              . #10#)
        (LETT |order| 0 . #10#)
        (LETT |dmax| (SPADCALL 10 (LENGTH |list|) (QREFELT $ 532)) . #10#)
        (SEQ
         (EXIT
          (SEQ (LETT |d| 0 . #10#) G190 NIL
               (SEQ
                (COND
                 ((NULL (SPADCALL |options| (QREFELT $ 511)))
                  (COND
                   ((EQL |d| |sigma|)
                    (PROGN (LETT #1# (CONS 0 "good") . #10#) (GO #1#))))))
                (COND
                 (|reject_one_term|
                  (COND
                   ((EQL |d| |sigma|)
                    (PROGN (LETT #1# (CONS 1 "reject") . #10#) (GO #1#))))))
                (LETT |c|
                      (SPADCALL (QVELT D 8) |testList| |d|
                                (SPADCALL |resiSUPF| (QREFELT $ 535))
                                (QREFELT $ 536))
                      . #10#)
                (COND
                 ((NULL (SPADCALL |c| (QREFELT $ 537)))
                  (SEQ (LETT |order| |d| . #10#)
                       (EXIT (PROGN (LETT #2# |$NoValue| . #10#) (GO #2#))))))
                (EXIT
                 (COND
                  ((< |dmax| |d|)
                   (SEQ
                    (SPADCALL "bailing out from checkInterpolant"
                              (QREFELT $ 538))
                    (SPADCALL
                     "please report the input to fricas-devel@googlegroups.com"
                     (QREFELT $ 538))
                    (LETT |order| |d| . #10#)
                    (EXIT (PROGN (LETT #2# |$NoValue| . #10#) (GO #2#))))))))
               (LETT |d| (QSADD1 |d|) . #10#) #12# G191 (EXIT NIL)))
         #2# (EXIT #2#))
        (EXIT
         (COND
          ((< |order| |sigma|)
           (SEQ
            (SPADCALL
             (SPADCALL "Order too low: " (SPADCALL |order| (QREFELT $ 539))
                       (QREFELT $ 70))
             (QREFELT $ 538))
            (SPADCALL
             (SPADCALL "sigma: " (SPADCALL |sigma| (QREFELT $ 539))
                       (QREFELT $ 70))
             (QREFELT $ 538))
            (EXIT (PROGN (LETT #1# (CONS 2 "no_solution") . #10#) (GO #1#)))))
          ((SPADCALL |c| (QREFELT $ 540))
           (SEQ
            (COND
             ((SPADCALL |options| (QREFELT $ 67))
              (SEQ
               (SPADCALL
                (SPADCALL "Proposed solution does not fit coefficient "
                          (SPADCALL |order| (QREFELT $ 539)) (QREFELT $ 70))
                (QREFELT $ 538))
               (EXIT
                (SPADCALL
                 (SPADCALL "sigma: " (SPADCALL |sigma| (QREFELT $ 539))
                           (QREFELT $ 70))
                 (QREFELT $ 538))))))
            (EXIT (PROGN (LETT #1# (CONS 1 "reject") . #10#) (GO #1#)))))
          (#13# (CONS 0 "good"))))))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;wrapInterpolant|
       (|resi| |exprList| |initials| D |op| |options| $)
  (PROG (|ex| #1=#:G4394 |p| #2=#:G4395 |e| #3=#:G4393 #4=#:G4391 #5=#:G4392
         #6=#:G4390)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |options| (QREFELT $ 377))
        (SEQ
         (LETT |ex|
               (PROGN
                (LETT #6# NIL . #7=(|GUESS;wrapInterpolant|))
                (SEQ (LETT |e| NIL . #7#) (LETT #5# |exprList| . #7#)
                     (LETT |p| NIL . #7#) (LETT #4# |resi| . #7#) G190
                     (COND
                      ((OR (ATOM #4#) (PROGN (LETT |p| (CAR #4#) . #7#) NIL)
                           (ATOM #5#) (PROGN (LETT |e| (CAR #5#) . #7#) NIL))
                       #8=(GO G191)))
                     (SEQ
                      (EXIT
                       (LETT #6#
                             (CONS
                              (|GUESS;makeEXPRR| (QVELT D 9)
                               (SPADCALL |options| (QREFELT $ 541))
                               (|GUESS;SUPS2SUPF| |p| $) |e| $)
                              #6#)
                             . #7#)))
                     (LETT #4# (PROG1 (CDR #4#) (LETT #5# (CDR #5#) . #7#))
                           . #7#)
                     #9=(GO G190) G191 (EXIT (NREVERSE0 #6#))))
               . #7#)
         (EXIT
          (SPADCALL |op| (SPADCALL |options| (QREFELT $ 541))
                    (SPADCALL |options| (QREFELT $ 66))
                    (SPADCALL (SPADCALL (ELT $ 110) |ex| (QREFELT $ 280))
                              (QREFELT $ 52))
                    (|GUESS;getVariables| |initials| $)
                    (SPADCALL (QREFELT $ 10)
                              (SPADCALL |initials| (QREFELT $ 483))
                              (QREFELT $ 544))
                    (QREFELT $ 547)))))
       ('T
        (SEQ
         (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)
                               (SPADCALL |options| (QREFELT $ 66))
                               (|GUESS;SUPS2SUPF| |p| $) |e| $)
                              #3#)
                             . #7#)))
                     (LETT #1# (PROG1 (CDR #1#) (LETT #2# (CDR #2#) . #7#))
                           . #7#)
                     #9# G191 (EXIT (NREVERSE0 #3#))))
               . #7#)
         (EXIT
          (SPADCALL |op| (SPADCALL |options| (QREFELT $ 66))
                    (SPADCALL (SPADCALL (ELT $ 110) |ex| (QREFELT $ 280))
                              (QREFELT $ 52))
                    (|GUESS;getVariables| |initials| $)
                    (SPADCALL (QREFELT $ 10)
                              (SPADCALL |initials| (QREFELT $ 483))
                              (QREFELT $ 544))
                    (QREFELT $ 548)))))))))) 

(DEFUN |GUESS;guessInterpolateModular|
       (|list| |degs| |o| |degreeLoss| |guessDegree| D |options| $)
  (PROG (|check| |i| #1=#:G4449 |deg| #2=#:G4448 #3=#:G4447 |maxD| #4=#:G4408
         #5=#:G4445 |del| |leadingZeros| #6=#:G4446 |el| |sigma| #7=#:G4406)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |sigma|
              (PROG1
                  (LETT #7# (- (LENGTH |list|) |degreeLoss|)
                        . #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| $ 47) (QREFELT $ 55))))
               #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 $ 549)))
          (SEQ (LETT |maxD| (SPADCALL |options| (QREFELT $ 179)) . #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 $ 550))
          (LETT |check|
                (SPADCALL |check| |list| (QVELT D 5) (QVELT D 6) |sigma|
                          (SPADCALL |o| (QVELT D 2)) (QREFELT $ 554))
                . #8#))
         (#11# (LETT |check| |check| . #8#)))
        (EXIT
         (SPADCALL |list| |degs| (QVELT D 5) (QVELT D 6) |sigma|
                   (SPADCALL |o| (QVELT D 2)) |check| (QREFELT $ 556)))))
      #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=#:G4523 |j| |c| |cl| #2=#:G4539 #3=#:G4537 |i1| #4=#:G4538 |i2|
         |Mr| |m| |rl| |ce| #5=#:G4536 |i| M |vguessListF| |vguessList|
         |guessPolys| #6=#:G4507 |guessList| |guessS| |sumEta| |eta| #7=#:G4535
         |deg| #8=#:G4472 #9=#:G4534 #10=#:G4462 #11=#:G4533 |maxD| #12=#:G4451
         #13=#:G4532 |d| #14=#:G4531)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |options| (QREFELT $ 549))
        (SEQ
         (LETT |eta|
               (PROGN
                (LETT #14# NIL . #15=(|GUESS;guessInterpolateFFFG|))
                (SEQ (LETT |d| NIL . #15#) (LETT #13# |degs| . #15#) G190
                     (COND
                      ((OR (ATOM #13#)
                           (PROGN (LETT |d| (CAR #13#) . #15#) NIL))
                       #16=(GO G191)))
                     (SEQ
                      (EXIT
                       (LETT #14#
                             (CONS
                              (PROG1 (LETT #12# |d| . #15#)
                                (|check-subtype| (>= #12# 0)
                                                 '(|NonNegativeInteger|) #12#))
                              #14#)
                             . #15#)))
                     (LETT #13# (CDR #13#) . #15#) #17=(GO G190) G191
                     (EXIT (NREVERSE0 #14#))))
               . #15#)
         (EXIT
          (SPADCALL |eta| 1 (+ (SPADCALL |eta| 1 (QREFELT $ 557)) 1)
                    (QREFELT $ 558)))))
       (#18='T
        (SEQ (LETT |maxD| (SPADCALL |options| (QREFELT $ 179)) . #15#)
             (EXIT
              (COND
               ((QEQCAR |maxD| 0)
                (COND
                 ((< (* (QCDR |maxD|) |o|) |guessDegree|)
                  (LETT |eta|
                        (PROGN
                         (LETT #11# NIL . #15#)
                         (SEQ (LETT |i| 1 . #15#) G190
                              (COND ((QSGREATERP |i| |o|) #16#))
                              (SEQ
                               (EXIT
                                (LETT #11#
                                      (CONS
                                       (COND ((< |i| |o|) (+ (QCDR |maxD|) 1))
                                             ('T (QCDR |maxD|)))
                                       #11#)
                                      . #15#)))
                              (LETT |i| (QSADD1 |i|) . #15#) #17# G191
                              (EXIT (NREVERSE0 #11#))))
                        . #15#))
                 (#18#
                  (SEQ
                   (LETT |deg|
                         (DIVIDE2
                          (PROG1 (LETT #10# (- (+ |guessDegree| |o|) 1) . #15#)
                            (|check-subtype| (>= #10# 0)
                                             '(|NonNegativeInteger|) #10#))
                          |o|)
                         . #15#)
                   (EXIT
                    (LETT |eta|
                          (PROGN
                           (LETT #9# NIL . #15#)
                           (SEQ (LETT |i| 1 . #15#) G190
                                (COND ((QSGREATERP |i| |o|) #16#))
                                (SEQ
                                 (EXIT
                                  (LETT #9#
                                        (CONS
                                         (COND
                                          ((< (QCDR |deg|) |i|) (QCAR |deg|))
                                          ('T (+ (QCAR |deg|) 1)))
                                         #9#)
                                        . #15#)))
                                (LETT |i| (QSADD1 |i|) . #15#) #17# G191
                                (EXIT (NREVERSE0 #9#))))
                          . #15#))))))
               (#18#
                (SEQ
                 (LETT |deg|
                       (DIVIDE2
                        (PROG1 (LETT #8# (- (+ |guessDegree| |o|) 1) . #15#)
                          (|check-subtype| (>= #8# 0) '(|NonNegativeInteger|)
                                           #8#))
                        |o|)
                       . #15#)
                 (EXIT
                  (LETT |eta|
                        (PROGN
                         (LETT #7# NIL . #15#)
                         (SEQ (LETT |i| 1 . #15#) G190
                              (COND ((QSGREATERP |i| |o|) #16#))
                              (SEQ
                               (EXIT
                                (LETT #7#
                                      (CONS
                                       (COND
                                        ((< (QCDR |deg|) |i|) (QCAR |deg|))
                                        ('T (+ (QCAR |deg|) 1)))
                                       #7#)
                                      . #15#)))
                              (LETT |i| (QSADD1 |i|) . #15#) #17# G191
                              (EXIT (NREVERSE0 #7#))))
                        . #15#)))))))))
      (LETT |sumEta| (SPADCALL (ELT $ 260) |eta| (QREFELT $ 563)) . #15#)
      (LETT |guessS| (SPADCALL (|GUESS;list2UFPSF| |list| $) (QVELT D 1))
            . #15#)
      (LETT |guessList|
            (SPADCALL
             (SPADCALL (SPADCALL |guessS| |o| (QREFELT $ 564)) (QREFELT $ 565))
             (QREFELT $ 566))
            . #15#)
      (LETT |guessPolys|
            (|GUESS;getListSUPF| |guessList|
             (PROG1 (LETT #6# (- |sumEta| 1) . #15#)
               (|check-subtype| (>= #6# 0) '(|NonNegativeInteger|) #6#))
             $)
            . #15#)
      (COND
       ((|domainEqual| (QREFELT $ 6) (QREFELT $ 7))
        (SEQ (LETT |vguessList| (SPADCALL |guessPolys| (QREFELT $ 508)) . #15#)
             (EXIT
              (LETT M
                    (SPADCALL (SPADCALL |sumEta| (QVELT D 10)) (QVELT D 7)
                              |vguessList| |eta| (QREFELT $ 568))
                    . #15#))))
       ((|domainEqual| (QREFELT $ 6) (|Fraction| (QREFELT $ 7)))
        (SEQ
         (LETT |vguessListF| (SPADCALL |guessPolys| (QREFELT $ 570)) . #15#)
         (EXIT
          (LETT M
                (SPADCALL (SPADCALL |sumEta| (QVELT D 10)) (QVELT D 7)
                          |vguessListF| |eta| (QREFELT $ 572))
                . #15#))))
       (#18#
        (|error|
         "Guess: type parameter F should be either equal to S or equal                         to Fraction S")))
      (LETT |rl| NIL . #15#)
      (SEQ (LETT |i| 1 . #15#) (LETT #5# (SPADCALL M (QREFELT $ 573)) . #15#)
           G190 (COND ((QSGREATERP |i| #5#) #16#))
           (SEQ
            (LETT |ce|
                  (SPADCALL (SPADCALL M |i| (QREFELT $ 574)) (QREFELT $ 575))
                  . #15#)
            (EXIT
             (COND
              ((QEQCAR
                (|GUESS;checkInterpolant| |list| |o|
                 (SPADCALL (SPADCALL M |i| (QREFELT $ 574)) (QREFELT $ 575)) D
                 |options| |guessDegree| $)
                0)
               (LETT |rl| (CONS |i| |rl|) . #15#)))))
           (LETT |i| (QSADD1 |i|) . #15#) #17# G191 (EXIT NIL))
      (EXIT
       (COND ((NULL |rl|) (MAKE-ARRAY 0))
             (#18#
              (SEQ (LETT |rl| (NREVERSE |rl|) . #15#)
                   (LETT |m| (QVSIZE M) . #15#)
                   (LETT |Mr|
                         (SPADCALL |m| (LENGTH |rl|) (|spadConstant| $ 576)
                                   (QREFELT $ 577))
                         . #15#)
                   (SEQ (LETT |i2| NIL . #15#) (LETT #4# |rl| . #15#)
                        (LETT |i1| 1 . #15#) (LETT #3# (LENGTH |rl|) . #15#)
                        G190
                        (COND
                         ((OR (QSGREATERP |i1| #3#) (ATOM #4#)
                              (PROGN (LETT |i2| (CAR #4#) . #15#) NIL))
                          #16#))
                        (SEQ
                         (COND
                          ((|HasCategory| (QREFELT $ 7) '(|Field|))
                           (SEQ (LETT |c| (|spadConstant| $ 48) . #15#)
                                (EXIT
                                 (SEQ (LETT |j| 1 . #15#) G190
                                      (COND
                                       ((OR (QSGREATERP |j| |m|)
                                            (NULL
                                             (SPADCALL |c| (QREFELT $ 167))))
                                        #16#))
                                      (SEQ
                                       (EXIT
                                        (LETT |c|
                                              (SPADCALL
                                               (SPADCALL M |j| |i2|
                                                         (QREFELT $ 578))
                                               (QREFELT $ 163))
                                              . #15#)))
                                      (LETT |j| (QSADD1 |j|) . #15#) #17# G191
                                      (EXIT NIL)))))
                          ('T
                           (SEQ
                            (LETT |cl|
                                  (PROGN
                                   (LETT #2# NIL . #15#)
                                   (SEQ (LETT |j| 1 . #15#) G190
                                        (COND ((QSGREATERP |j| |m|) #16#))
                                        (SEQ
                                         (EXIT
                                          (LETT #2#
                                                (CONS
                                                 (SPADCALL
                                                  (SPADCALL M |j| |i2|
                                                            (QREFELT $ 578))
                                                  (QREFELT $ 579))
                                                 #2#)
                                                . #15#)))
                                        (LETT |j| (QSADD1 |j|) . #15#) #17#
                                        G191 (EXIT (NREVERSE0 #2#))))
                                  . #15#)
                            (EXIT
                             (LETT |c| (SPADCALL |cl| (QREFELT $ 580))
                                   . #15#)))))
                         (EXIT
                          (SEQ (LETT |j| 1 . #15#) G190
                               (COND ((QSGREATERP |j| |m|) #16#))
                               (SEQ
                                (EXIT
                                 (SPADCALL |Mr| |j| |i1|
                                           (PROG2
                                               (LETT #1#
                                                     (SPADCALL
                                                      (SPADCALL M |j| |i2|
                                                                (QREFELT $
                                                                         578))
                                                      |c| (QREFELT $ 581))
                                                     . #15#)
                                               (QCDR #1#)
                                             (|check-union| (QEQCAR #1# 0)
                                                            (|SparseUnivariatePolynomial|
                                                             (QREFELT $ 7))
                                                            #1#))
                                           (QREFELT $ 582))))
                               (LETT |j| (QSADD1 |j|) . #15#) #17# G191
                               (EXIT NIL))))
                        (LETT |i1|
                              (PROG1 (QSADD1 |i1|) (LETT #4# (CDR #4#) . #15#))
                              . #15#)
                        #17# G191 (EXIT NIL))
                   (EXIT |Mr|))))))))) 

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

(DEFUN |GUESS;guessInterpolate3!1| ($$)
  (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 (|degs| M0 #2=#:G4577 M)
        (RETURN
         (SEQ
          (EXIT
           (COND
            ((OR (SPADCALL |vs| (QREFELT $ 583))
                 (SPADCALL |vs| (QREFELT $ 586)))
             (SPADCALL (QREFELT $ 585)))
            ('T
             (SEQ (LETT |degs| (SPADCALL |vs| (QREFELT $ 587)) NIL)
                  (LETT M0
                        (|GUESS;guessInterpolateModular| |list| |degs| |o|
                         |degreeLoss| |guessDegree| D |options| $)
                        NIL)
                  (LETT M
                        (COND
                         ((QEQCAR M0 1)
                          (SEQ
                           (COND
                            ((QCDR M0)
                             (COND
                              ((SPADCALL (CONS #'|GUESS;guessInterpolate3!0| $)
                                         |degs| (QREFELT $ 593))
                               (EXIT
                                (|GUESS;guessInterpolateFFFG| |list| |degs| |o|
                                 |guessDegree| D |options| $))))))
                           (EXIT
                            (PROGN
                             (LETT #2#
                                   (|GUESS;guessInterpolate3| |list| |o|
                                    |degreeLoss| |guessDegree| D |options|
                                    (SPADCALL |vs| (QREFELT $ 594)) $)
                                   NIL)
                             (GO #2#)))))
                         ('T (QCDR M0)))
                        NIL)
                  (EXIT
                   (SPADCALL M
                             (|GUESS;guessInterpolate3| |list| |o| |degreeLoss|
                              |guessDegree| D |options|
                              (SPADCALL |vs| (QREFELT $ 594)) $)
                             (QREFELT $ 595)))))))
          #2# (EXIT #2#)))))))) 

(DEFUN |GUESS;guessInterpolate3!0| (|x| $)
  (COND
   ((SPADCALL |x| (|spadConstant| $ 361) (QREFELT $ 222))
    (|spadConstant| $ 590))
   ('T (|spadConstant| $ 591)))) 

(DEFUN |GUESS;listDecr| (|l| $)
  (SPADCALL (CONS #'|GUESS;listDecr!0| $) |l| (QREFELT $ 600))) 

(DEFUN |GUESS;listDecr!0| (|x| $)
  (SPADCALL |x| (|spadConstant| $ 362) (QREFELT $ 221))) 

(DEFUN |GUESS;guessInterpolate2|
       (|list| |o| |degreeLoss| |guessDegree| D |options| $)
  (PROG (|vs| |vs0| |maxD| |maxD0|)
    (RETURN
     (SEQ
      (LETT |vs|
            (COND
             ((SPADCALL |options| (QREFELT $ 549))
              (SEQ
               (LETT |maxD0| (SPADCALL |options| (QREFELT $ 179))
                     . #1=(|GUESS;guessInterpolate2|))
               (LETT |maxD|
                     (COND ((QEQCAR |maxD0| 0) (QCDR |maxD0|))
                           (#2='T (- (+ |guessDegree| |o|) 2)))
                     . #1#)
               (LETT |vs0|
                     (SPADCALL (+ |guessDegree| |o|) (+ |maxD| 1) |o|
                               (QREFELT $ 602))
                     . #1#)
               (EXIT
                (SPADCALL (CONS (|function| |GUESS;listDecr|) $) |vs0|
                          (QREFELT $ 605)))))
             (#2# (SPADCALL NIL (SPADCALL (QREFELT $ 606)) (QREFELT $ 607))))
            . #1#)
      (EXIT
       (|GUESS;guessInterpolate3| |list| |o| |degreeLoss| |guessDegree| D
        |options| |vs| $)))))) 

(DEFUN |GUESS;guessHPaux| (|list| D |options| $)
  (PROG (#1=#:G4664 |reslist| |res| #2=#:G4666 |i| |exprList| MS M #3=#:G4658
         #4=#:G4651 #5=#:G4665 #6=#:G4621 #7=#:G4614 |maxD| |guessDegree|
         |degreeLoss| #8=#:G4662 #9=#:G4604 |o| |exprS| |degreeS| |op|
         |listDegree|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |reslist| NIL . #10=(|GUESS;guessHPaux|))
            (LETT |listDegree|
                  (- (- (LENGTH |list|) 1)
                     (SPADCALL |options| (QREFELT $ 219)))
                  . #10#)
            (COND
             ((< |listDegree| 0) (PROGN (LETT #1# |reslist| . #10#) (GO #1#))))
            (LETT |op|
                  (SPADCALL (SPADCALL |options| (QREFELT $ 608))
                            (QREFELT $ 609))
                  . #10#)
            (LETT |degreeS| (QVELT D 0) . #10#)
            (COND
             ((SPADCALL |options| (QREFELT $ 377))
              (LETT |exprS|
                    (SPADCALL
                     (SPADCALL |op|
                               (SPADCALL (SPADCALL |options| (QREFELT $ 541))
                                         (QREFELT $ 39))
                               (QREFELT $ 610))
                     (SPADCALL |options| (QREFELT $ 541)) (QVELT D 4))
                    . #10#))
             ('T
              (LETT |exprS|
                    (SPADCALL
                     (SPADCALL |op|
                               (SPADCALL (SPADCALL |options| (QREFELT $ 66))
                                         (QREFELT $ 39))
                               (QREFELT $ 610))
                     (SPADCALL |options| (QREFELT $ 66)) (QVELT D 4))
                    . #10#)))
            (SEQ
             (EXIT
              (SEQ (LETT |o| 2 . #10#) G190 NIL
                   (SEQ
                    (EXIT
                     (COND
                      ((SPADCALL
                        (SPADCALL |degreeS|
                                  (PROG1 (LETT #9# (- |o| 1) . #10#)
                                    (|check-subtype| (>= #9# 0)
                                                     '(|NonNegativeInteger|)
                                                     #9#))
                                  (QREFELT $ 611))
                        (QREFELT $ 612))
                       (PROGN (LETT #8# |$NoValue| . #10#) (GO #8#)))
                      ('T
                       (SEQ
                        (LETT |degreeLoss|
                              (SPADCALL |degreeS| |o| (QREFELT $ 427)) . #10#)
                        (LETT |guessDegree|
                              (- (- (+ |listDegree| 2) |degreeLoss|) |o|)
                              . #10#)
                        (COND
                         ((< |guessDegree| 0)
                          (SEQ
                           (COND
                            ((SPADCALL |options| (QREFELT $ 67))
                             (SPADCALL "not enough values for guessing"
                                       (QREFELT $ 79))))
                           (EXIT
                            (PROGN (LETT #1# |reslist| . #10#) (GO #1#))))))
                        (COND
                         ((SPADCALL |options| (QREFELT $ 67))
                          (SEQ
                           (SPADCALL
                            (SPADCALL "Trying order "
                                      (SPADCALL |o| (QREFELT $ 180))
                                      (QREFELT $ 70))
                            (QREFELT $ 73))
                           (EXIT
                            (SPADCALL
                             (SPADCALL "guessDegree is "
                                       (SPADCALL |guessDegree| (QREFELT $ 539))
                                       (QREFELT $ 70))
                             (QREFELT $ 73))))))
                        (LETT |maxD| (SPADCALL |options| (QREFELT $ 179))
                              . #10#)
                        (EXIT
                         (COND
                          ((QEQCAR |maxD| 0)
                           (COND
                            ((OR
                              (OR
                               (SPADCALL
                                (SPADCALL |degreeS| |o| (QREFELT $ 611))
                                (QREFELT $ 612))
                               (NULL (< (* (QCDR |maxD|) |o|) |guessDegree|)))
                              (<
                               (-
                                (- (+ |listDegree| 2)
                                   (SPADCALL |degreeS| (+ |o| 1)
                                             (QREFELT $ 427)))
                                (+ |o| 1))
                               (* (QCDR |maxD|) (+ |o| 1))))
                             (SEQ (LETT |exprList| NIL . #10#)
                                  (COND
                                   ((SPADCALL |options| (QREFELT $ 67))
                                    (SEQ
                                     (LETT |exprList|
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL |exprS| |o|
                                                       (QREFELT $ 613))
                                             (QREFELT $ 614))
                                            (QREFELT $ 615))
                                           . #10#)
                                     (SPADCALL #11="The list of expressions is"
                                               (QREFELT $ 79))
                                     (EXIT
                                      (SPADCALL
                                       (SPADCALL |exprList| (QREFELT $ 74))
                                       (QREFELT $ 73))))))
                                  (LETT MS
                                        (|GUESS;guessInterpolate2| |list| |o|
                                         |degreeLoss|
                                         (PROG1 (LETT #7# |guessDegree| . #10#)
                                           (|check-subtype| (>= #7# 0)
                                                            '(|NonNegativeInteger|)
                                                            #7#))
                                         D |options| $)
                                        . #10#)
                                  (EXIT
                                   (SEQ
                                    (EXIT
                                     (SEQ G190 NIL
                                          (SEQ
                                           (EXIT
                                            (COND
                                             ((SPADCALL MS (QREFELT $ 616))
                                              (PROGN
                                               (LETT #6# |$NoValue| . #10#)
                                               (GO #6#)))
                                             ('T
                                              (SEQ
                                               (LETT M
                                                     (SPADCALL MS
                                                               (QREFELT $ 617))
                                                     . #10#)
                                               (LETT MS
                                                     (SPADCALL MS
                                                               (QREFELT $ 618))
                                                     . #10#)
                                               (COND
                                                ((NULL |exprList|)
                                                 (LETT |exprList|
                                                       (SPADCALL
                                                        (SPADCALL
                                                         (SPADCALL |exprS| |o|
                                                                   (QREFELT $
                                                                            613))
                                                         (QREFELT $ 614))
                                                        (QREFELT $ 615))
                                                       . #10#)))
                                               (SEQ (LETT |i| 1 . #10#)
                                                    (LETT #5#
                                                          (SPADCALL M
                                                                    (QREFELT $
                                                                             573))
                                                          . #10#)
                                                    G190
                                                    (COND
                                                     ((QSGREATERP |i| #5#)
                                                      #12=(GO G191)))
                                                    (SEQ
                                                     (LETT |res|
                                                           (|GUESS;wrapInterpolant|
                                                            (SPADCALL
                                                             (SPADCALL M |i|
                                                                       (QREFELT
                                                                        $ 574))
                                                             (QREFELT $ 575))
                                                            |exprList| |list| D
                                                            |op| |options| $)
                                                           . #10#)
                                                     (EXIT
                                                      (COND
                                                       ((NULL
                                                         (SPADCALL |res|
                                                                   |reslist|
                                                                   (QREFELT $
                                                                            106)))
                                                        (LETT |reslist|
                                                              (CONS |res|
                                                                    |reslist|)
                                                              . #10#)))))
                                                    (LETT |i| (QSADD1 |i|)
                                                          . #10#)
                                                    #13=(GO G190) G191
                                                    (EXIT NIL))
                                               (EXIT
                                                (COND
                                                 ((NULL (NULL |reslist|))
                                                  (COND
                                                   ((SPADCALL |options|
                                                              (QREFELT $ 75))
                                                    (PROGN
                                                     (LETT #1# |reslist|
                                                           . #10#)
                                                     (GO #1#))))))))))))
                                          NIL #13# G191 (EXIT NIL)))
                                    #6# (EXIT #6#)))))
                            ('T
                             (SEQ (|spadConstant| $ 11)
                                  (EXIT
                                   (COND
                                    ((SPADCALL |options| (QREFELT $ 67))
                                     (SPADCALL "iterating"
                                               (QREFELT $ 79)))))))))
                          ('T
                           (SEQ (LETT |exprList| NIL . #10#)
                                (COND
                                 ((SPADCALL |options| (QREFELT $ 67))
                                  (SEQ
                                   (LETT |exprList|
                                         (SPADCALL
                                          (SPADCALL
                                           (SPADCALL |exprS| |o|
                                                     (QREFELT $ 613))
                                           (QREFELT $ 614))
                                          (QREFELT $ 615))
                                         . #10#)
                                   (SPADCALL #11# (QREFELT $ 79))
                                   (EXIT
                                    (SPADCALL
                                     (SPADCALL |exprList| (QREFELT $ 74))
                                     (QREFELT $ 73))))))
                                (LETT MS
                                      (|GUESS;guessInterpolate2| |list| |o|
                                       |degreeLoss|
                                       (PROG1 (LETT #4# |guessDegree| . #10#)
                                         (|check-subtype| (>= #4# 0)
                                                          '(|NonNegativeInteger|)
                                                          #4#))
                                       D |options| $)
                                      . #10#)
                                (EXIT
                                 (SEQ
                                  (EXIT
                                   (SEQ G190 NIL
                                        (SEQ
                                         (EXIT
                                          (COND
                                           ((SPADCALL MS (QREFELT $ 616))
                                            (PROGN
                                             (LETT #3# |$NoValue| . #10#)
                                             (GO #3#)))
                                           ('T
                                            (SEQ
                                             (LETT M
                                                   (SPADCALL MS
                                                             (QREFELT $ 617))
                                                   . #10#)
                                             (LETT MS
                                                   (SPADCALL MS
                                                             (QREFELT $ 618))
                                                   . #10#)
                                             (COND
                                              ((NULL |exprList|)
                                               (LETT |exprList|
                                                     (SPADCALL
                                                      (SPADCALL
                                                       (SPADCALL |exprS| |o|
                                                                 (QREFELT $
                                                                          613))
                                                       (QREFELT $ 614))
                                                      (QREFELT $ 615))
                                                     . #10#)))
                                             (SEQ (LETT |i| 1 . #10#)
                                                  (LETT #2#
                                                        (SPADCALL M
                                                                  (QREFELT $
                                                                           573))
                                                        . #10#)
                                                  G190
                                                  (COND
                                                   ((QSGREATERP |i| #2#) #12#))
                                                  (SEQ
                                                   (LETT |res|
                                                         (|GUESS;wrapInterpolant|
                                                          (SPADCALL
                                                           (SPADCALL M |i|
                                                                     (QREFELT $
                                                                              574))
                                                           (QREFELT $ 575))
                                                          |exprList| |list| D
                                                          |op| |options| $)
                                                         . #10#)
                                                   (EXIT
                                                    (COND
                                                     ((NULL
                                                       (SPADCALL |res|
                                                                 |reslist|
                                                                 (QREFELT $
                                                                          106)))
                                                      (LETT |reslist|
                                                            (CONS |res|
                                                                  |reslist|)
                                                            . #10#)))))
                                                  (LETT |i| (QSADD1 |i|)
                                                        . #10#)
                                                  #13# G191 (EXIT NIL))
                                             (EXIT
                                              (COND
                                               ((NULL (NULL |reslist|))
                                                (COND
                                                 ((SPADCALL |options|
                                                            (QREFELT $ 75))
                                                  (PROGN
                                                   (LETT #1# |reslist| . #10#)
                                                   (GO #1#))))))))))))
                                        NIL #13# G191 (EXIT NIL)))
                                  #3# (EXIT #3#))))))))))))
                   (LETT |o| (QSADD1 |o|) . #10#) #13# G191 (EXIT NIL)))
             #8# (EXIT #8#))
            (EXIT |reslist|)))
      #1# (EXIT #1#))))) 

(DEFUN |GUESS;guessADE;LLL;120| (|list| |options| $)
  (PROG (|opts| #1=#:G4673 #2=#:G4682 |i| #3=#:G4681 |maxP?| |hom?|)
    (RETURN
     (SEQ
      (LETT |hom?| (SPADCALL |options| (QREFELT $ 252))
            . #4=(|GUESS;guessADE;LLL;120|))
      (EXIT
       (COND
        ((QEQCAR |hom?| 1)
         (COND
          ((QCDR |hom?|)
           (SEQ (LETT |maxP?| (SPADCALL |options| (QREFELT $ 250)) . #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 $ 619))
                                              |options|)
                                             (QREFELT $ 620))
                                   #3#)
                                  . #4#)))
                          (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    (QREFELT $ 621)))
                  (#5='T
                   (|error|
                    "Guess: setting homogeneous true requires that maxPower is also set"))))))
          (#5#
           (SEQ
            (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 622)) |options|) . #4#)
            (EXIT
             (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 393))
              |opts| $))))))
        (#5#
         (SEQ
          (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 622)) |options|) . #4#)
          (EXIT
           (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 393)) |opts|
            $)))))))))) 

(DEFUN |GUESS;guessADE;LL;121| (|list| $) (SPADCALL |list| NIL (QREFELT $ 620))) 

(DEFUN |GUESS;guessAlg;LLL;122| (|list| |options| $)
  (SPADCALL |list| (CONS (SPADCALL (CONS 0 0) (QREFELT $ 624)) |options|)
            (QREFELT $ 620))) 

(DEFUN |GUESS;guessAlg;LL;123| (|list| $) (SPADCALL |list| NIL (QREFELT $ 625))) 

(DEFUN |GUESS;guessHolo;LLL;124| (|list| |options| $)
  (SPADCALL |list| (CONS (SPADCALL (CONS 0 1) (QREFELT $ 627)) |options|)
            (QREFELT $ 620))) 

(DEFUN |GUESS;guessHolo;LL;125| (|list| $)
  (SPADCALL |list| NIL (QREFELT $ 628))) 

(DEFUN |GUESS;guessPade;LLL;126| (|list| |options| $)
  (PROG (|opts|)
    (RETURN
     (SEQ
      (LETT |opts|
            (APPEND |options|
                    (LIST (SPADCALL (CONS 0 0) (QREFELT $ 624))
                          (SPADCALL (CONS 0 1) (QREFELT $ 627))
                          (SPADCALL 'T (QREFELT $ 630))))
            |GUESS;guessPade;LLL;126|)
      (EXIT (SPADCALL |list| |opts| (QREFELT $ 620))))))) 

(DEFUN |GUESS;guessPade;LL;127| (|list| $)
  (SPADCALL |list| NIL (QREFELT $ 631))) 

(DEFUN |GUESS;guessFE;LLL;128| (|list| |options| $)
  (PROG (|opts| #1=#:G4709 #2=#:G4718 |i| #3=#:G4717 |maxP?| |hom?|)
    (RETURN
     (SEQ
      (LETT |hom?| (SPADCALL |options| (QREFELT $ 252))
            . #4=(|GUESS;guessFE;LLL;128|))
      (EXIT
       (COND
        ((QEQCAR |hom?| 1)
         (COND
          ((QCDR |hom?|)
           (SEQ (LETT |maxP?| (SPADCALL |options| (QREFELT $ 250)) . #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 $ 619))
                                              |options|)
                                             (QREFELT $ 633))
                                   #3#)
                                  . #4#)))
                          (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    (QREFELT $ 621)))
                  (#5='T
                   (|error|
                    "Guess: setting homogeneous true requires that maxPower is also set"))))))
          (#5#
           (SEQ
            (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 622)) |options|) . #4#)
            (EXIT
             (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 398))
              |opts| $))))))
        (#5#
         (SEQ
          (LETT |opts| (CONS (SPADCALL 'T (QREFELT $ 622)) |options|) . #4#)
          (EXIT
           (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 398)) |opts|
            $)))))))))) 

(DEFUN |GUESS;guessFE;LL;129| (|list| $) (SPADCALL |list| NIL (QREFELT $ 633))) 

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

(DEFUN |GUESS;guessADE;SM;130!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessADE;SM;130|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|opts| #2=#:G4726 #3=#:G4735 |i| #4=#:G4734 |maxP?| |hom?|)
        (RETURN
         (SEQ (LETT |hom?| (SPADCALL |z2| (QREFELT $ 252)) NIL)
              (EXIT
               (COND
                ((QEQCAR |hom?| 1)
                 (COND
                  ((QCDR |hom?|)
                   (SEQ (LETT |maxP?| (SPADCALL |z2| (QREFELT $ 250)) NIL)
                        (EXIT
                         (COND
                          ((QEQCAR |maxP?| 0)
                           (SPADCALL
                            (PROGN
                             (LETT #4# NIL NIL)
                             (SEQ (LETT |i| (|spadConstant| $ 108) 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 $ 619))
                                                      |z2| (QREFELT $ 636))
                                                     (SPADCALL |q|
                                                               (QREFELT $
                                                                        635)))
                                           #4#)
                                          NIL)))
                                  (LETT |i| (+ |i| 1) NIL) (GO G190) G191
                                  (EXIT (NREVERSE0 #4#))))
                            (QREFELT $ 621)))
                          ('T
                           (|error|
                            "Guess: setting homogeneous true requires that maxPower is also set"))))))
                  ('T
                   (SEQ
                    (LETT |opts|
                          (SPADCALL
                           (SPADCALL (|spadConstant| $ 591) (QREFELT $ 622))
                           |z2| (QREFELT $ 636))
                          NIL)
                    (EXIT
                     (|GUESS;guessHPaux| |z1|
                      (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 409))) |opts|
                      $))))))
                ('T
                 (SEQ
                  (LETT |opts|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 591) (QREFELT $ 622)) |z2|
                         (QREFELT $ 636))
                        NIL)
                  (EXIT
                   (|GUESS;guessHPaux| |z1|
                    (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 409))) |opts|
                    $))))))))))))) 

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

(DEFUN |GUESS;guessHolo;SM;131!0| (|z1| |z2| $$)
  (PROG ($ |q|)
    (LETT $ (QREFELT $$ 1) . #1=(|GUESS;guessHolo;SM;131|))
    (LETT |q| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |z1|
                (SPADCALL
                 (SPADCALL (CONS 0 (|spadConstant| $ 108)) (QREFELT $ 627))
                 |z2| (QREFELT $ 636))
                (SPADCALL |q| (QREFELT $ 635))))))) 

(DEFUN |GUESS;guessRec;LLL;132| (|list| |options| $)
  (PROG (|opts| #1=#:G4748 #2=#:G4757 |i| #3=#:G4756 |maxP?| |hom?|)
    (RETURN
     (SEQ
      (LETT |hom?| (SPADCALL |options| (QREFELT $ 252))
            . #4=(|GUESS;guessRec;LLL;132|))
      (EXIT
       (COND
        ((QEQCAR |hom?| 1)
         (COND
          ((QCDR |hom?|)
           (SEQ (LETT |maxP?| (SPADCALL |options| (QREFELT $ 250)) . #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 $ 619))
                                              |options|)
                                             (QREFELT $ 638))
                                   #3#)
                                  . #4#)))
                          (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #3#))))
                    (QREFELT $ 621)))
                  (#5='T
                   (|error|
                    "Guess: setting homogeneous true requires that maxPower is also set"))))))
          (#5#
           (SEQ
            (LETT |opts| (CONS (SPADCALL 'NIL (QREFELT $ 622)) |options|)
                  . #4#)
            (EXIT
             (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 431))
              |opts| $))))))
        (#5#
         (SEQ
          (LETT |opts| (CONS (SPADCALL 'NIL (QREFELT $ 622)) |options|) . #4#)
          (EXIT
           (|GUESS;guessHPaux| |list| (SPADCALL |opts| (QREFELT $ 431)) |opts|
            $)))))))))) 

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

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

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

(DEFUN |GUESS;guessRat;LLL;136| (|list| |options| $)
  (PROG (|opts|)
    (RETURN
     (SEQ
      (LETT |opts|
            (APPEND |options|
                    (LIST (SPADCALL (CONS 0 0) (QREFELT $ 642))
                          (SPADCALL (CONS 0 1) (QREFELT $ 627))
                          (SPADCALL 'T (QREFELT $ 630))))
            |GUESS;guessRat;LLL;136|)
      (EXIT (SPADCALL |list| |opts| (QREFELT $ 638))))))) 

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

(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=#:G4779 #3=#:G4788 |i| #4=#:G4787 |maxP?| |hom?|)
        (RETURN
         (SEQ (LETT |hom?| (SPADCALL |z2| (QREFELT $ 252)) NIL)
              (EXIT
               (COND
                ((QEQCAR |hom?| 1)
                 (COND
                  ((QCDR |hom?|)
                   (SEQ (LETT |maxP?| (SPADCALL |z2| (QREFELT $ 250)) NIL)
                        (EXIT
                         (COND
                          ((QEQCAR |maxP?| 0)
                           (SPADCALL
                            (PROGN
                             (LETT #4# NIL NIL)
                             (SEQ (LETT |i| (|spadConstant| $ 108) 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 $ 619))
                                                      |z2| (QREFELT $ 636))
                                                     (SPADCALL |q|
                                                               (QREFELT $
                                                                        644)))
                                           #4#)
                                          NIL)))
                                  (LETT |i| (+ |i| 1) NIL) (GO G190) G191
                                  (EXIT (NREVERSE0 #4#))))
                            (QREFELT $ 621)))
                          ('T
                           (|error|
                            "Guess: setting homogeneous true requires that maxPower is also set"))))))
                  ('T
                   (SEQ
                    (LETT |opts|
                          (SPADCALL
                           (SPADCALL (|spadConstant| $ 590) (QREFELT $ 622))
                           |z2| (QREFELT $ 636))
                          NIL)
                    (EXIT
                     (|GUESS;guessHPaux| |z1|
                      (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 481))) |opts|
                      $))))))
                ('T
                 (SEQ
                  (LETT |opts|
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 590) (QREFELT $ 622)) |z2|
                         (QREFELT $ 636))
                        NIL)
                  (EXIT
                   (|GUESS;guessHPaux| |z1|
                    (SPADCALL |opts| (SPADCALL |q| (QREFELT $ 481))) |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| $ 108)) (QREFELT $ 627))
                 |z2| (QREFELT $ 636))
                (SPADCALL |q| (QREFELT $ 644))))))) 

(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| $ 361))
                                     (QREFELT $ 642))
                           (SPADCALL (CONS 0 (|spadConstant| $ 108))
                                     (QREFELT $ 627))
                           (SPADCALL (|spadConstant| $ 591) (QREFELT $ 630)))
                          (QREFELT $ 646))
                (SPADCALL |q| (QREFELT $ 644))))))) 

(DEFUN |Guess| (&REST #1=#:G4803)
  (PROG ()
    (RETURN
     (PROG (#2=#:G4804)
       (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 648) . #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 $ 227
                    (CONS (|dispatchFunction| |GUESS;guessExpRat;SM;27|)
                          $))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 247
                     (CONS (|dispatchFunction| |GUESS;guessBinRat;SM;39|)
                           $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 409
                     (CONS (|dispatchFunction| |GUESS;diffHP;SM;82|) $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 481
                     (CONS (|dispatchFunction| |GUESS;shiftHP;SM;104|) $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 635
                     (CONS (|dispatchFunction| |GUESS;guessADE;SM;130|) $))
           (QSETREFV $ 637
                     (CONS (|dispatchFunction| |GUESS;guessHolo;SM;131|)
                           $)))))))
      (COND
       ((|HasCategory| |#1| '(|RetractableTo| (|Symbol|)))
        (COND
         ((|HasCategory| |#2| '(|RetractableTo| (|Symbol|)))
          (PROGN
           (QSETREFV $ 644
                     (CONS (|dispatchFunction| |GUESS;guessRec;SM;138|) $))
           (QSETREFV $ 645
                     (CONS (|dispatchFunction| |GUESS;guessPRec;SM;139|) $))
           (QSETREFV $ 647
                     (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 . *)
              (|List| 38) (33 . |variables|) (|List| 21) (|Mapping| 21 7)
              (|List| 7) (|ListFunctions2| 7 21) (38 . |map|) (|Fraction| 7)
              (44 . |numer|) (49 . |denom|) (54 . |setUnion|) (|Mapping| 21 6)
              (|List| 6) (|ListFunctions2| 6 21) (60 . |map|)
              (|Mapping| 21 21 21) (66 . |reduce|) (|Symbol|) (72 . |coerce|)
              (|List| 8) (|Mapping| 8 38) (|ListFunctions2| 38 8) (77 . |map|)
              (83 . |denominator|) (88 . |coerce|) (93 . |eval|) (100 . |Zero|)
              (104 . |Zero|) (108 . |Zero|) (|Boolean|) (112 . =)
              (118 . |numerator|) (123 . |elt|) (129 . /) (135 . =)
              (141 . |coerce|) (|SparseUnivariatePolynomial| 6) (|Mapping| 6 7)
              (|SparseUnivariatePolynomial| 7)
              (|SparseUnivariatePolynomialFunctions2| 7 6) (146 . |map|)
              (|Union| 125 '"arbitrary") (|List| 88) (|GuessOptionFunctions0|)
              (152 . |maxLevel|) (157 . |indexName|) (162 . |debug|)
              (|OutputForm|) (167 . |coerce|) (172 . |hconcat|) (|Void|)
              (|OutputPackage|) (178 . |output|) (183 . |coerce|) (188 . |one|)
              (193 . |member?|) (199 . |member?|) (|String|) (205 . |output|)
              (210 . /) (216 . |one?|) (221 . |one?|) (|Mapping| 50 6)
              (226 . |every?|) (232 . |coerce|) (|List| 68) (237 . |subscript|)
              (|GuessOption|) (243 . |indexName|) (248 . |maxLevel|)
              (|Mapping| 40 33 63) (|List| 91) |GUESS;guess;LLLLL;8|
              (253 . |One|) (257 . -) (|Segment| 8) (263 . SEGMENT)
              (|SegmentBinding| 8) (269 . |equation|) (|SegmentBinding| $)
              (275 . |product|) (281 . |init|) (|Fraction| 57) (285 . |init|)
              (289 . *) (295 . |member?|) (301 . -) (307 . |One|)
              (311 . |summation|) (317 . +) |GUESS;guessRat;LLL;136|
              |GUESS;guess;LL;9| |GUESS;guess;LLL;10| |GUESS;guess;LLLL;11|
              (|SparseMultivariatePolynomial| 6 137) (323 . |coerce|)
              (|Fraction| 115) (328 . |coerce|)
              (|SparseMultivariatePolynomial| 7 137) (333 . |coerce|)
              (|Fraction| 119) (338 . /) (344 . |zero?|)
              (349 . |leadingCoefficient|) (|NonNegativeInteger|)
              (354 . |degree|) (359 . ^) (365 . |reductum|) (370 . |numer|)
              (375 . |denom|)
              (|MPolyCatFunctions2| 137 (|IndexedExponents| 137)
                                    (|IndexedExponents| 137) 7 6 119 115)
              (380 . |map|) (|SparseUnivariatePolynomial| 119) (386 . |zero?|)
              (391 . |Zero|) (395 . |leadingCoefficient|)
              (|OrderedVariableList| (NRTEVAL (LIST '|a1| 'A))) (400 . |index|)
              (|List| 137) (405 . |eval|) (412 . |retract|) (417 . |degree|)
              (422 . |monomial|) (428 . |reductum|) (433 . +)
              (|Record| (|:| |num| 147) (|:| |den| 119))
              (|SparseUnivariatePolynomial| 121)
              (|UnivariatePolynomialCommonDenominator| 119 121 147)
              (439 . |splitDenominator|) (444 . *) (450 . |retract|)
              (|Mapping| 119 121)
              (|SparseUnivariatePolynomialFunctions2| 121 119) (455 . |map|)
              (461 . |coerce|) (|Fraction| 133) (466 . /) (472 . |degree|)
              (478 . |coerce|) (483 . |eval|) (490 . |univariate|)
              (495 . |degree|) (500 . |leadingCoefficient|) (505 . ^) (511 . -)
              (516 . *) (522 . |zero?|) (527 . |resultant|)
              (|Union| $ '"failed") (533 . |exquo|) (539 . |coerce|)
              (544 . |coerce|) (549 . *) (555 . +) (561 . |last|) (566 . -)
              (571 . |list|) (576 . ^) (582 . |maxDegree|) (587 . |coerce|)
              (|MoreSystemCommands|) (592 . |systemCommand|) (|Fraction| 147)
              (|List| 121) (|FractionFreeFastGaussian| 121 147)
              (597 . |interpolate|) (|Fraction| $) (604 . |elt|) (610 . -)
              (616 . |numer|) (|NewtonInterpolation| 7) (621 . |newton|)
              (626 . |elt|) (632 . |minimumDegree|) (637 . |gcd|)
              (643 . |primitivePart|) (|Factored| 57)
              (|GeneralizedMultivariateFactorize| 512 (|IndexedExponents| 137)
                                                  6 6 57)
              (648 . |factor|) (|Record| (|:| |factor| 57) (|:| |exponent| 13))
              (|List| 200) (653 . |factors|) (658 . |coefficient|) (664 . -)
              (669 . |eval|) (676 . |zero?|) (681 . |univariate|)
              (686 . |numer|) (691 . |denom|) (696 . /) (702 . |numer|)
              (707 . |denom|) (712 . /) (|Kernel| 8) (718 . |kernel|)
              (|Kernel| $) (723 . |eval|) (730 . ^) (736 . |safety|)
              (741 . |first|) (747 . -) (753 . <) (|Mapping| 50 8)
              (759 . |select|) |GUESS;guessExpRat;LL;25|
              |GUESS;guessExpRat;LLL;26| (765 . |guessExpRat|) (770 . *)
              (776 . +) (782 . |coerce|) (787 . -) (793 . *) (799 . |One|)
              (|Mapping| 119 119 119) (|List| 119) (803 . |reduce|)
              (810 . |factorial|) (815 . |binomial|) (821 . /)
              (827 . |resultant|) |GUESS;guessBinRat;LL;32|
              |GUESS;guessBinRat;LLL;33| (834 . |One|) (838 . |coerce|)
              (|Mapping| 121 121 121) (843 . |reduce|) (850 . |guessBinRat|)
              (855 . |maxDerivative|) (|Union| 19 '"arbitrary")
              (860 . |maxPower|) (|Union| 19 50) (865 . |homogeneous|)
              (|Stream| 14) (|PartitionsAndPermutations|) (870 . |partitions|)
              (876 . |inc|) (|Mapping| 13 13) (|Stream| 13) (881 . |generate|)
              (887 . +) (893 . |partitions|) (|Stream| 253) (|Mapping| 253 13)
              (|StreamFunctions2| 13 253) (900 . |map|) (906 . |partitions|)
              (|StreamFunctions1| 14) (911 . |concat|) (916 . |cons|)
              (922 . |conjugates|) (927 . |#|) (932 . =) (|Mapping| 50 14)
              (938 . |select|) (|List| 14) (|Partition|) (944 . |powers|)
              (949 . |second|) (|Mapping| 8 8 8) (954 . |reduce|) (|U32Vector|)
              (960 . |construct|) (|U32VectorPolynomialOperations|)
              (965 . |differentiate|) (972 . |pow|)
              (980 . |truncated_multiplication|) (|Mapping| 281 281 281)
              (|List| 281) (988 . |reduce|) (994 . |copy_first|)
              (|UnivariateFormalPowerSeries| 6) (1001 . ^) (1007 . *)
              (|Mapping| 291 291 291) (|List| 291) (1013 . |reduce|) (1019 . ^)
              (|Mapping| 6 6) (1025 . |map|)
              (|UnivariateFormalPowerSeriesFunctions| 6) (1031 . |hadamard|)
              (|SparseMultivariatePolynomial| 6 125) (1037 . ^)
              (|Mapping| 302 302) (|UnivariateFormalPowerSeries| 302)
              (1043 . |map|) (|UnivariateFormalPowerSeriesFunctions| 302)
              (1049 . |hadamard|) (|Mapping| 305 305 305) (|List| 305)
              (1055 . |reduce|) (|Stream| 291) (|Mapping| 291 14)
              (|StreamFunctions2| 14 291) (1061 . |map|) (1067 . |Zero|)
              (1071 . |Zero|) (1075 . |Zero|) (1079 . |Zero|) (1083 . |Zero|)
              (1087 . |differentiate|) (1093 . |One|) (1097 . |One|)
              (1101 . |One|) (1105 . |One|) (1109 . |One|) (|Vector| 281)
              (1113 . |setelt|) (1120 . *) (|Fraction| 13) (1126 . |One|)
              (1130 . |One|) (|Vector| 305) (1134 . |setelt|)
              (1141 . |subtractIfCan|) (|List| 276) (1147 . |position|)
              (|Reference| 336) (1153 . |deref|) (1158 . |coerce|)
              (1163 . |partition|) (|Reference| 275) (1168 . |deref|)
              (1173 . |setref|) (1179 . |setref|) (1185 . |max|)
              (1191 . |first|) (|Mapping| 13 14) (|ListFunctions2| 14 13)
              (1196 . |map|) (1202 . |reduce|) (1208 . |ref|) (1213 . |ref|)
              (1218 . |vector|) (1223 . |vector|) (|Stream| 8) (|Mapping| 8 14)
              (|StreamFunctions2| 14 8) (1228 . |map|) (1234 . |empty?|)
              (1239 . |Zero|) (1243 . |One|) (1247 . |max|) (|Stream| 125)
              (|Mapping| 125 14 125) (|StreamFunctions2| 14 125)
              (1253 . |scan|) (1260 . D) (1267 . D) (1273 . D)
              (|FractionFreeFastGaussian| 7 59) (1279 . |DiffAction|)
              (|FractionFreeFastGaussian| 302 305) (1286 . |DiffAction|)
              (1293 . |DiffC|) (1298 . |maxMixedDegree|) (1303 . |displayAsGF|)
              (1308 . |first|) (1314 . |complete|) (1319 . |entries|)
              (1324 . |elt|) (|Mapping| 312 291) (|Mapping| 327 281 13 13)
              (|Mapping| 383 125) (|Mapping| 333 305) (|Mapping| 385 469)
              (|Mapping| 356 8 38) (|Mapping| 7 125 125 59)
              (|Mapping| 302 125 125 305) (|Mapping| 8 125 38 8)
              (|Mapping| 25 125)
              (|Record| (|:| |degreeStream| 364) (|:| |guessStream| 382)
                        (|:| |guessModGen| 384) (|:| |testGen| 386)
                        (|:| |exprStream| 387) (|:| |kind| 38) (|:| |qvar| 38)
                        (|:| A 388) (|:| AF 389) (|:| AX 390) (|:| C 391))
              |GUESS;diffHP;LR;71| (1330 . |multiplyExponents|)
              (1336 . |multiplyExponents|) (|Mapping| 125 14) (1342 . |map|)
              |GUESS;substHP;LR;75| (1348 . *) (|Mapping| 6 13)
              (1354 . |multiplyCoefficients|) (1360 . |degree|) (1365 . |Zero|)
              (1369 . |coerce|) (|Mapping| 302 13)
              (1374 . |multiplyCoefficients|) (1380 . |zero?|)
              (|Mapping| 392 63) (1385 . |diffHP|) (1390 . |quoByVar|)
              (|Mapping| 291 291) (|MappingPackage1| 291) (1395 . ^)
              (1401 . |quoByVar|) (|Mapping| 305 305) (|MappingPackage1| 305)
              (1406 . ^) (|IntegerCombinatoricFunctions| 13)
              (1412 . |stirling2|) (1418 . |ShiftAction|)
              (1425 . |ShiftAction|) (1432 . |ShiftC|) (1437 . |monomial|)
              (1443 . -) (1449 . -) (1454 . ^) (1460 . |elt|)
              (1466 . |monomial|) (1472 . -) (1478 . ^) |GUESS;shiftHP;LR;92|
              (1484 . *) (1490 . |coerce|) (1495 . |qShiftAction|)
              (1503 . |qShiftAction|) (1511 . |qShiftC|) (1517 . *)
              (1523 . |elt|) (|Mapping| 295 291) (|StreamTensor| 291)
              (1529 . |tensorMap|) (1535 . |#|) (1540 . |new|)
              (|SingleInteger|) (1546 . |One|) (1550 . ^) (1556 . |rem|)
              (1562 . |setelt|) (1569 . /) (1575 . |ceiling|) (1580 . |first|)
              (1585 . |rest|) (1590 . |copy|) (1595 . |elt|) (1601 . |cons|)
              (1607 . |reverse!|) (|List| 327) (1612 . |cons|) (1618 . |rem|)
              (1624 . -) (1629 . =) (1635 . |reverse!|) (|List| $)
              (1640 . |concat|) (1645 . |Zero|) (|Mapping| 475 125)
              (|StreamTensor| 125) (1649 . |tensorMap|) (|List| 19)
              (1655 . |first|) (1660 . <) (1666 . *) (1672 . |elt|)
              (1678 . |concat|) (|List| 125) (1684 . |cons|)
              (1690 . |reverse!|) (|Mapping| 40 8) (|StreamTensor| 8)
              (1695 . |tensorMap|) (1701 . |shiftHP|) (|Stream| 6)
              (1706 . |coerce|) (1711 . |series|) (|List| 302) (|Stream| 302)
              (1716 . |coerce|) (|IndexedExponents| 125) (1721 . |monomial|)
              (1727 . |monomial|) (|StreamFunctions2| 13 302) (1733 . |map|)
              (1739 . |concat|) (1745 . |series|)
              (|SparseUnivariatePolynomial| 302) (|Mapping| 302 6)
              (|SparseUnivariatePolynomialFunctions2| 6 302) (1750 . |map|)
              (|UnivariatePolynomial| (NRTEVAL '|x|) 6)
              (1756 . |univariatePolynomial|) (1762 . |makeSUP|) (|List| 57)
              (|Mapping| 57 291) (|ListFunctions2| 291 57) (1767 . |map|)
              (|List| 59) (|Vector| 59) (1773 . |vector|) (|Vector| 6)
              (1778 . |vector|) (1783 . |check|) (|SingletonAsOrderedSet|)
              (1788 . |create|) (1792 . |One|) (1796 . |One|) (1800 . |elt|)
              (1806 . |eval|) (1813 . |retract|) (1818 . |elt|) (1824 . |gcd|)
              (1830 . +) (1836 . =) (1842 . |One|) (1846 . *) (1852 . +)
              (1858 . =) (|Vector| 7) (1864 . |elt|) (1870 . |elt|)
              (1876 . |zero?|) (1881 . |zero?|) (1886 . *) (|List| 495)
              (|Vector| 495) (1892 . |vector|) (1897 . |generalCoefficient|)
              (1905 . |zero?|) (1910 . |print|) (1915 . |coerce|)
              (1920 . |ground?|) (1925 . |variableName|) (|Mapping| 8 6)
              (|StreamFunctions2| 6 8) (1930 . |map|) (|BasicOperator|)
              (|RecurrenceOperator| 13 8) (1936 . |makeFEq|) (1946 . |makeRec|)
              (1955 . |allDegrees|) (1960 . |MonteCarlo|)
              (|Union| '"good" '"reject" '"no_solution") (|Mapping| 551 506)
              (|ModularHermitePadeSolver| 6 7) (1965 . |gen_Monte_Carlo_check|)
              (|Union| 567 50) (1975 . |HP_solve|) (1986 . |elt|)
              (1992 . |setelt|) (1999 . +) (2005 . +) (2011 . +)
              (|Mapping| 125 125 125) (2017 . |reduce|) (2023 . |first|)
              (2029 . |complete|) (2034 . |entries|) (|Matrix| 59)
              (2039 . |generalInterpolation|) (|Vector| 57) (2047 . |vector|)
              (|FractionFreeFastGaussianFractions| 7 59 57)
              (2052 . |generalInterpolation|) (2060 . |ncols|)
              (2065 . |column|) (2071 . |entries|) (2076 . |Zero|)
              (2080 . |new|) (2087 . |elt|) (2094 . |content|) (2099 . |gcd|)
              (2104 . |exquo|) (2110 . |setelt|) (2118 . |explicitlyEmpty?|)
              (|Stream| 567) (2123 . |empty|) (2127 . |empty?|) (2132 . |frst|)
              (2137 . |Zero|) (2141 . |Zero|) (2145 . |false|) (2149 . |true|)
              (|Mapping| 50 13) (2153 . |every?|) (2159 . |rst|)
              (2164 . |concat|) (|Mapping| $) (2170 . |delay|)
              (|Mapping| 13 125) (|ListFunctions2| 125 13) (2175 . |map|)
              (|Stream| 475) (2181 . |genVectorStream|) (|Mapping| 14 475)
              (|StreamFunctions2| 475 14) (2188 . |map|) (2194 . |empty|)
              (2198 . |concat|) (2204 . |functionName|) (2209 . |operator|)
              (2214 . |elt|) (2220 . |rest|) (2226 . |empty?|) (2231 . |first|)
              (2237 . |complete|) (2242 . |entries|) (2247 . |empty?|)
              (2252 . |first|) (2257 . |rst|) (2262 . |homogeneous|)
              |GUESS;guessADE;LLL;120| (2267 . |concat|) (2272 . |displayAsGF|)
              |GUESS;guessADE;LL;121| (2277 . |maxDerivative|)
              |GUESS;guessAlg;LLL;122| |GUESS;guessAlg;LL;123|
              (2282 . |maxPower|) |GUESS;guessHolo;LLL;124|
              |GUESS;guessHolo;LL;125| (2287 . |allDegrees|)
              |GUESS;guessPade;LLL;126| |GUESS;guessPade;LL;127|
              |GUESS;guessFE;LLL;128| |GUESS;guessFE;LL;129|
              (2292 . |guessADE|) (2297 . |cons|) (2303 . |guessHolo|)
              |GUESS;guessRec;LLL;132| |GUESS;guessRec;LL;133|
              |GUESS;guessPRec;LLL;134| |GUESS;guessPRec;LL;135|
              (2308 . |maxShift|) |GUESS;guessRat;LL;137| (2313 . |guessRec|)
              (2318 . |guessPRec|) (2323 . |append|) (2329 . |guessRat|))
           '#(|substHP| 2334 |shiftHP| 2339 |guessRec| 2349 |guessRat| 2365
              |guessPade| 2381 |guessPRec| 2392 |guessHolo| 2408 |guessFE| 2424
              |guessExpRat| 2435 |guessBinRat| 2451 |guessAlg| 2467 |guessADE|
              2478 |guess| 2494 |diffHP| 2520)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 647
                                                 '(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
                                                   7 21 0 22 2 26 23 24 25 27 1
                                                   28 7 0 29 1 28 7 0 30 2 21 0
                                                   0 0 31 2 34 23 32 33 35 2 23
                                                   21 36 0 37 1 8 0 38 39 2 42
                                                   40 41 21 43 1 8 0 0 44 1 8 0
                                                   13 45 3 8 0 0 0 0 46 0 6 0
                                                   47 0 7 0 48 0 8 0 49 2 8 50
                                                   0 0 51 1 8 0 0 52 2 33 6 0
                                                   13 53 2 8 0 0 0 54 2 6 50 0
                                                   0 55 1 28 0 7 56 2 60 57 58
                                                   59 61 1 64 62 63 65 1 64 38
                                                   63 66 1 64 50 63 67 1 62 68
                                                   0 69 2 68 0 0 0 70 1 72 71
                                                   68 73 1 40 68 0 74 1 64 50
                                                   63 75 2 21 50 38 0 76 2 33
                                                   50 6 0 77 1 72 71 78 79 2 6
                                                   0 0 0 80 1 8 50 0 81 1 6 50
                                                   0 82 2 33 50 83 0 84 1 19 68
                                                   0 85 2 38 0 0 86 87 1 88 0
                                                   38 89 1 88 0 62 90 0 8 0 94
                                                   2 8 0 0 0 95 2 96 0 8 8 97 2
                                                   98 0 38 96 99 2 8 0 0 100
                                                   101 0 57 0 102 0 103 0 104 2
                                                   8 0 0 0 105 2 40 50 8 0 106
                                                   2 6 0 0 0 107 0 19 0 108 2 8
                                                   0 0 100 109 2 8 0 0 0 110 1
                                                   115 0 6 116 1 117 0 115 118
                                                   1 119 0 7 120 2 121 0 119
                                                   119 122 1 57 50 0 123 1 57 6
                                                   0 124 1 57 125 0 126 2 8 0 0
                                                   125 127 1 57 0 0 128 1 103
                                                   57 0 129 1 103 57 0 130 2
                                                   131 115 58 119 132 1 133 50
                                                   0 134 0 57 0 135 1 133 119 0
                                                   136 1 137 0 19 138 3 115 0 0
                                                   139 33 140 1 115 6 0 141 1
                                                   133 125 0 142 2 57 0 6 125
                                                   143 1 133 0 0 144 2 57 0 0 0
                                                   145 1 148 146 147 149 2 121
                                                   0 0 119 150 1 121 119 0 151
                                                   2 153 133 152 147 154 1 133
                                                   0 119 155 2 156 0 133 133
                                                   157 2 119 125 0 137 158 1 7
                                                   0 13 159 3 119 0 0 137 7 160
                                                   1 119 59 0 161 1 59 125 0
                                                   162 1 59 7 0 163 2 7 0 0 125
                                                   164 1 7 0 0 165 2 7 0 0 0
                                                   166 1 7 50 0 167 2 59 7 0 0
                                                   168 2 7 169 0 0 170 1 119 0
                                                   137 171 1 121 0 119 172 2
                                                   121 0 0 0 173 2 121 0 0 0
                                                   174 1 14 13 0 175 1 13 0 0
                                                   176 1 14 0 13 177 2 121 0 0
                                                   13 178 1 64 62 63 179 1 125
                                                   68 0 180 1 181 71 78 182 3
                                                   185 183 184 184 125 186 2
                                                   147 121 187 121 188 2 121 0
                                                   0 0 189 1 121 119 0 190 1
                                                   191 59 25 192 2 78 0 0 0 193
                                                   1 59 125 0 194 2 59 0 0 0
                                                   195 1 59 0 0 196 1 198 197
                                                   57 199 1 197 201 0 202 2 57
                                                   6 0 125 203 1 6 0 0 204 3
                                                   115 0 0 137 6 205 1 115 50 0
                                                   206 1 115 57 0 207 1 183 147
                                                   0 208 1 183 147 0 209 2 156
                                                   0 0 0 210 1 156 133 0 211 1
                                                   156 133 0 212 2 103 0 57 57
                                                   213 1 214 0 38 215 3 8 0 0
                                                   216 0 217 2 8 0 0 0 218 1 64
                                                   125 63 219 2 33 0 0 125 220
                                                   2 13 0 0 0 221 2 13 50 0 0
                                                   222 2 40 0 223 0 224 1 0 91
                                                   38 227 2 119 0 13 0 228 2
                                                   119 0 0 0 229 1 119 0 13 230
                                                   2 119 0 0 0 231 2 119 0 0 0
                                                   232 0 119 0 233 3 235 119
                                                   234 0 119 236 1 13 0 0 237 2
                                                   8 0 0 0 238 2 121 0 0 0 239
                                                   3 119 0 0 0 137 240 0 121 0
                                                   243 1 6 0 38 244 3 184 121
                                                   245 0 121 246 1 0 91 38 247
                                                   1 64 62 63 248 1 64 249 63
                                                   250 1 64 251 63 252 2 254
                                                   253 13 13 255 1 13 0 0 256 2
                                                   258 0 257 13 259 2 125 0 0 0
                                                   260 3 254 253 13 13 13 261 2
                                                   264 262 263 258 265 1 254
                                                   253 13 266 1 267 253 262 268
                                                   2 253 0 14 0 269 1 254 253
                                                   253 270 1 14 125 0 271 2 125
                                                   50 0 0 272 2 253 0 273 0 274
                                                   1 276 275 14 277 1 14 13 0
                                                   278 2 40 8 279 0 280 1 281 0
                                                   14 282 3 283 281 281 125 13
                                                   284 4 283 281 281 19 125 13
                                                   285 4 283 281 281 281 13 13
                                                   286 2 288 281 287 0 289 3
                                                   283 71 281 281 13 290 2 291
                                                   0 0 125 292 2 291 0 0 0 293
                                                   2 295 291 294 0 296 2 6 0 0
                                                   125 297 2 291 0 298 0 299 2
                                                   300 291 291 291 301 2 302 0
                                                   0 125 303 2 305 0 304 0 306
                                                   2 307 305 305 305 308 2 310
                                                   305 309 0 311 2 314 312 313
                                                   253 315 0 121 0 316 0 115 0
                                                   317 0 156 0 318 0 291 0 319
                                                   0 305 0 320 2 283 281 281 13
                                                   321 0 57 0 322 0 115 0 323 0
                                                   156 0 324 0 291 0 325 0 305
                                                   0 326 3 327 281 0 13 281 328
                                                   2 305 0 0 0 329 0 330 0 331
                                                   0 302 0 332 3 333 305 0 13
                                                   305 334 2 276 169 0 0 335 2
                                                   336 13 276 0 337 1 338 336 0
                                                   339 1 276 14 0 340 1 276 0
                                                   14 341 1 342 275 0 343 2 342
                                                   275 0 275 344 2 338 336 0
                                                   336 345 2 13 0 0 0 346 1 14
                                                   13 0 347 2 349 14 348 275
                                                   350 2 14 13 17 0 351 1 342 0
                                                   275 352 1 338 0 336 353 1
                                                   327 0 288 354 1 333 0 310
                                                   355 2 358 356 357 253 359 1
                                                   14 50 0 360 0 125 0 361 0
                                                   125 0 362 2 125 0 0 0 363 3
                                                   366 364 125 365 253 367 3 8
                                                   0 0 38 125 368 2 291 0 0 125
                                                   369 2 305 0 0 125 370 3 371
                                                   7 125 125 59 372 3 373 302
                                                   125 125 305 374 1 371 25 125
                                                   375 1 64 125 63 376 1 64 50
                                                   63 377 2 253 0 0 125 378 1
                                                   253 0 0 379 1 253 275 0 380
                                                   2 253 14 0 13 381 2 291 0 0
                                                   19 394 2 305 0 0 19 395 2
                                                   366 364 396 253 397 2 13 0
                                                   125 0 399 2 291 0 400 0 401
                                                   1 283 13 281 402 0 302 0 403
                                                   1 302 0 6 404 2 305 0 405 0
                                                   406 1 125 50 0 407 1 0 408
                                                   38 409 1 291 0 0 410 2 412
                                                   411 411 125 413 1 305 0 0
                                                   414 2 416 415 415 125 417 2
                                                   418 13 13 13 419 3 371 7 125
                                                   125 59 420 3 373 302 125 125
                                                   305 421 1 371 25 125 422 2
                                                   291 0 6 125 423 2 291 0 0 0
                                                   424 1 330 0 0 425 2 291 0 0
                                                   330 426 2 364 125 0 13 427 2
                                                   305 0 302 125 428 2 305 0 0
                                                   0 429 2 305 0 0 330 430 2 8
                                                   0 125 0 432 1 7 0 38 433 4
                                                   371 7 7 125 125 59 434 4 373
                                                   302 302 125 125 305 435 2
                                                   371 25 7 125 436 2 291 0 6 0
                                                   437 2 291 0 0 0 438 2 440
                                                   312 312 439 441 1 281 125 0
                                                   442 2 281 0 125 13 443 0 444
                                                   0 445 2 13 0 0 125 446 2 13
                                                   0 0 0 447 3 281 13 0 13 13
                                                   448 2 330 0 13 13 449 1 330
                                                   13 0 450 1 288 281 0 451 1
                                                   288 0 0 452 1 281 0 0 453 2
                                                   281 13 0 13 454 2 288 0 281
                                                   0 455 1 288 0 0 456 2 457 0
                                                   327 0 458 2 125 0 0 0 459 1
                                                   444 0 0 460 2 13 50 0 0 461
                                                   1 457 0 0 462 1 327 0 463
                                                   464 0 444 0 465 2 467 364
                                                   364 466 468 1 469 19 0 470 2
                                                   19 50 0 0 471 2 305 0 302 0
                                                   472 2 305 0 0 0 473 2 310 0
                                                   0 0 474 2 475 0 125 0 476 1
                                                   310 0 0 477 2 479 356 356
                                                   478 480 1 0 408 38 481 1 482
                                                   0 33 483 1 291 0 482 484 1
                                                   486 0 485 487 2 488 0 125
                                                   125 489 2 302 0 6 488 490 2
                                                   491 486 405 258 492 2 486 0
                                                   0 0 493 1 305 0 486 494 2
                                                   497 495 496 57 498 2 291 499
                                                   0 125 500 1 499 57 0 501 2
                                                   504 502 503 295 505 1 507 0
                                                   506 508 1 509 0 33 510 1 64
                                                   50 63 511 0 512 0 513 0 495
                                                   0 514 0 59 0 515 2 507 59 0
                                                   13 516 3 59 0 0 512 7 517 1
                                                   59 7 0 518 2 509 6 0 13 519
                                                   2 7 0 0 0 520 2 7 0 0 0 521
                                                   2 7 50 0 0 522 0 28 0 523 2
                                                   28 0 7 0 524 2 28 0 0 0 525
                                                   2 28 50 0 0 526 2 527 7 0 13
                                                   528 2 506 59 0 13 529 1 59
                                                   50 0 530 1 6 50 0 531 2 125
                                                   0 19 0 532 1 534 0 533 535 4
                                                   373 302 389 333 125 534 536
                                                   1 302 50 0 537 1 68 71 0 538
                                                   1 13 68 0 539 1 302 50 0 540
                                                   1 64 38 63 541 2 543 356 542
                                                   482 544 6 546 8 545 38 38 8
                                                   40 356 547 5 546 8 545 38 8
                                                   40 356 548 1 64 50 63 549 1
                                                   64 50 63 550 6 553 552 552
                                                   33 38 38 125 383 554 7 553
                                                   555 33 14 38 38 125 383 552
                                                   556 2 475 125 0 13 557 3 475
                                                   125 0 13 125 558 2 291 0 0 0
                                                   559 2 305 0 0 0 560 2 6 0 0
                                                   0 561 2 475 125 562 0 563 2
                                                   312 0 0 125 564 1 312 0 0
                                                   565 1 312 295 0 566 4 371
                                                   567 25 388 507 475 568 1 569
                                                   0 502 570 4 571 567 25 388
                                                   569 475 572 1 567 125 0 573
                                                   2 567 507 0 13 574 1 507 506
                                                   0 575 0 59 0 576 3 567 0 125
                                                   125 59 577 3 567 59 0 13 13
                                                   578 1 59 7 0 579 1 7 0 463
                                                   580 2 59 169 0 7 581 4 567
                                                   59 0 13 13 59 582 1 253 50 0
                                                   583 0 584 0 585 1 253 50 0
                                                   586 1 253 14 0 587 0 13 0
                                                   588 0 495 0 589 0 50 0 590 0
                                                   50 0 591 2 14 50 592 0 593 1
                                                   253 0 0 594 2 584 0 567 0
                                                   595 1 584 0 596 597 2 599 14
                                                   598 475 600 3 371 601 125
                                                   125 125 602 2 604 253 603
                                                   601 605 0 253 0 606 2 253 0
                                                   14 0 607 1 64 38 63 608 1
                                                   545 0 38 609 2 8 0 545 0 610
                                                   2 364 0 0 125 611 1 364 50 0
                                                   612 2 356 0 0 125 613 1 356
                                                   0 0 614 1 356 40 0 615 1 584
                                                   50 0 616 1 584 567 0 617 1
                                                   584 0 0 618 1 88 0 251 619 1
                                                   40 0 463 621 1 88 0 50 622 1
                                                   88 0 62 624 1 88 0 249 627 1
                                                   88 0 50 630 1 0 91 38 635 2
                                                   63 0 88 0 636 1 0 91 38 637
                                                   1 88 0 62 642 1 0 91 38 644
                                                   1 0 91 38 645 2 63 0 0 0 646
                                                   1 0 91 38 647 1 0 392 63 398
                                                   1 1 408 38 481 1 0 392 63
                                                   431 1 1 91 38 644 2 0 40 33
                                                   63 638 1 0 40 33 639 1 1 91
                                                   38 647 2 0 40 33 63 111 1 0
                                                   40 33 643 1 0 40 33 632 2 0
                                                   40 33 63 631 1 1 91 38 645 1
                                                   0 40 33 641 2 0 40 33 63 640
                                                   1 1 91 38 637 2 0 40 33 63
                                                   628 1 0 40 33 629 1 0 40 33
                                                   634 2 0 40 33 63 633 1 1 91
                                                   38 227 2 0 40 33 63 226 1 0
                                                   40 33 225 1 1 91 38 247 1 0
                                                   40 33 241 2 0 40 33 63 242 1
                                                   0 40 33 626 2 0 40 33 63 625
                                                   1 1 91 38 635 1 0 40 33 623
                                                   2 0 40 33 63 620 2 0 40 33
                                                   63 113 1 0 40 33 112 4 0 40
                                                   33 92 21 63 93 3 0 40 33 92
                                                   21 114 1 1 408 38 409 1 0
                                                   392 63 393)))))
           '|lookupComplete|)) 
