
(/VERSIONCHECK 2) 

(DEFUN |INNMFACT;convertPUP| (|lfg| $)
  (PROG (#1=#:G1832 |lff| #2=#:G1831)
    (RETURN
     (SEQ
      (CONS (QCAR |lfg|)
            (PROGN
             (LETT #2# NIL . #3=(|INNMFACT;convertPUP|))
             (SEQ (LETT |lff| NIL . #3#) (LETT #1# (QCDR |lfg|) . #3#) G190
                  (COND
                   ((OR (ATOM #1#) (PROGN (LETT |lff| (CAR #1#) . #3#) NIL))
                    (GO G191)))
                  (SEQ
                   (EXIT
                    (LETT #2#
                          (CONS
                           (CONS (SPADCALL (QCAR |lff|) (QREFELT $ 18))
                                 (QCDR |lff|))
                           #2#)
                          . #3#)))
                  (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                  (EXIT (NREVERSE0 #2#))))))))) 

(DEFUN |INNMFACT;supFactor| (|um| |ufactor| $)
  (PROG (#1=#:G1887 |lcfacs| #2=#:G1882 #3=#:G1881 #4=#:G1883 #5=#:G1885
         #6=#:G1904 |f| |factorlist| |auxfl| #7=#:G1903 |lfp| #8=#:G1902 |lf|
         |ldeg| #9=#:G1873 #10=#:G1872 #11=#:G1874 #12=#:G1901 |fc| #13=#:G1900
         |xx| #14=#:G1899 |coefs| #15=#:G1898 |lff| #16=#:G1897 |lcont| |lfg|
         |ffexp| |ffactor| #17=#:G1896 |fact| |sqqfact| |flead| |sqfacs| |uum|
         #18=#:G1892 #19=#:G1857 |f1| |mdeg| #20=#:G1895 |ff| #21=#:G1894
         |lfact| |umv| |lvar| #22=#:G1839 #23=#:G1838 #24=#:G1840 #25=#:G1893
         |cf|)
    (RETURN
     (SEQ
      (EXIT
       (COND
        ((SPADCALL |um| (QREFELT $ 20))
         (|INNMFACT;convertPUP|
          (|INNMFACT;mFactor| (SPADCALL |um| (QREFELT $ 21)) |ufactor| $) $))
        (#26='T
         (SEQ
          (LETT |lvar|
                (PROGN
                 (LETT #22# NIL . #27=(|INNMFACT;supFactor|))
                 (SEQ (LETT |cf| NIL . #27#)
                      (LETT #25# (SPADCALL |um| (QREFELT $ 23)) . #27#) G190
                      (COND
                       ((OR (ATOM #25#)
                            (PROGN (LETT |cf| (CAR #25#) . #27#) NIL))
                        #28=(GO G191)))
                      (SEQ
                       (EXIT
                        (PROGN
                         (LETT #24# (SPADCALL |cf| (QREFELT $ 25)) . #27#)
                         (COND
                          (#22#
                           (LETT #23# (SPADCALL #23# #24# (QREFELT $ 26))
                                 . #27#))
                          ('T
                           (PROGN
                            (LETT #23# #24# . #27#)
                            (LETT #22# 'T . #27#)))))))
                      (LETT #25# (CDR #25#) . #27#) #29=(GO G190) G191
                      (EXIT NIL))
                 (COND (#22# #23#) (#26# (|IdentityError| '|setUnion|))))
                . #27#)
          (EXIT
           (COND
            ((NULL |lvar|)
             (SEQ (LETT |umv| (SPADCALL (ELT $ 27) |um| (QREFELT $ 31)) . #27#)
                  (LETT |lfact| (SPADCALL |umv| |ufactor|) . #27#)
                  (EXIT
                   (CONS
                    (SPADCALL (SPADCALL |lfact| (QREFELT $ 33)) (QREFELT $ 34))
                    (PROGN
                     (LETT #21# NIL . #27#)
                     (SEQ (LETT |ff| NIL . #27#)
                          (LETT #20# (SPADCALL |lfact| (QREFELT $ 37)) . #27#)
                          G190
                          (COND
                           ((OR (ATOM #20#)
                                (PROGN (LETT |ff| (CAR #20#) . #27#) NIL))
                            #28#))
                          (SEQ
                           (EXIT
                            (LETT #21#
                                  (CONS
                                   (CONS
                                    (SPADCALL (ELT $ 38) (QCAR |ff|)
                                              (QREFELT $ 41))
                                    (QCDR |ff|))
                                   #21#)
                                  . #27#)))
                          (LETT #20# (CDR #20#) . #27#) #29# G191
                          (EXIT (NREVERSE0 #21#))))))))
            (#26#
             (SEQ (LETT |flead| (CONS (|spadConstant| $ 43) NIL) . #27#)
                  (LETT |factorlist| NIL . #27#)
                  (LETT |mdeg| (SPADCALL |um| (QREFELT $ 45)) . #27#)
                  (COND
                   ((< 0 |mdeg|)
                    (SEQ
                     (LETT |f1|
                           (SPADCALL (|spadConstant| $ 51) |mdeg|
                                     (QREFELT $ 52))
                           . #27#)
                     (LETT |um|
                           (PROG2
                               (LETT #19# (SPADCALL |um| |f1| (QREFELT $ 54))
                                     . #27#)
                               (QCDR #19#)
                             (|check-union| (QEQCAR #19# 0)
                                            (|SparseUnivariatePolynomial|
                                             (QREFELT $ 9))
                                            #19#))
                           . #27#)
                     (LETT |factorlist|
                           (CONS
                            (CONS
                             (SPADCALL (|spadConstant| $ 51) 1 (QREFELT $ 52))
                             |mdeg|)
                            |factorlist|)
                           . #27#)
                     (EXIT
                      (COND
                       ((EQL (SPADCALL |um| (QREFELT $ 55)) 0)
                        (PROGN
                         (LETT #18#
                               (SEQ
                                (LETT |lfg|
                                      (|INNMFACT;convertPUP|
                                       (|INNMFACT;mFactor|
                                        (SPADCALL |um| (QREFELT $ 21))
                                        |ufactor| $)
                                       $)
                                      . #27#)
                                (EXIT
                                 (CONS (QCAR |lfg|)
                                       (APPEND |factorlist| (QCDR |lfg|)))))
                               . #27#)
                         (GO #18#))))))))
                  (LETT |uum| (SPADCALL |um| (QREFELT $ 57)) . #27#)
                  (LETT |um| (QVELT |uum| 1) . #27#)
                  (LETT |sqfacs| (SPADCALL |um| (QREFELT $ 60)) . #27#)
                  (LETT |lcont|
                        (SPADCALL
                         (SPADCALL (QVELT |uum| 0)
                                   (SPADCALL |sqfacs| (QREFELT $ 61))
                                   (QREFELT $ 62))
                         (QREFELT $ 21))
                        . #27#)
                  (LETT |flead|
                        (|INNMFACT;convertPUP|
                         (|INNMFACT;mFactor| |lcont| |ufactor| $) $)
                        . #27#)
                  (LETT |factorlist| (APPEND (QCDR |flead|) |factorlist|)
                        . #27#)
                  (LETT |sqqfact| (SPADCALL |sqfacs| (QREFELT $ 65)) . #27#)
                  (SEQ (LETT |fact| NIL . #27#) (LETT #17# |sqqfact| . #27#)
                       G190
                       (COND
                        ((OR (ATOM #17#)
                             (PROGN (LETT |fact| (CAR #17#) . #27#) NIL))
                         #28#))
                       (SEQ (LETT |ffactor| (QCAR |fact|) . #27#)
                            (LETT |ffexp| (QCDR |fact|) . #27#)
                            (EXIT
                             (COND
                              ((ZEROP (SPADCALL |ffactor| (QREFELT $ 55)))
                               (SEQ
                                (LETT |lfg|
                                      (|INNMFACT;mFactor|
                                       (SPADCALL |ffactor| (QREFELT $ 21))
                                       |ufactor| $)
                                      . #27#)
                                (LETT |lcont|
                                      (SPADCALL (QCAR |lfg|) |lcont|
                                                (QREFELT $ 66))
                                      . #27#)
                                (EXIT
                                 (LETT |factorlist|
                                       (APPEND |factorlist|
                                               (PROGN
                                                (LETT #16# NIL . #27#)
                                                (SEQ (LETT |lff| NIL . #27#)
                                                     (LETT #15# (QCDR |lfg|)
                                                           . #27#)
                                                     G190
                                                     (COND
                                                      ((OR (ATOM #15#)
                                                           (PROGN
                                                            (LETT |lff|
                                                                  (CAR #15#)
                                                                  . #27#)
                                                            NIL))
                                                       #28#))
                                                     (SEQ
                                                      (EXIT
                                                       (LETT #16#
                                                             (CONS
                                                              (CONS
                                                               (SPADCALL
                                                                (QCAR |lff|)
                                                                (QREFELT $ 18))
                                                               (* (QCDR |lff|)
                                                                  |ffexp|))
                                                              #16#)
                                                             . #27#)))
                                                     (LETT #15# (CDR #15#)
                                                           . #27#)
                                                     #29# G191
                                                     (EXIT (NREVERSE0 #16#)))))
                                       . #27#))))
                              ('T
                               (SEQ
                                (LETT |coefs|
                                      (SPADCALL |ffactor| (QREFELT $ 23))
                                      . #27#)
                                (LETT |ldeg|
                                      (PROGN
                                       (LETT #14# NIL . #27#)
                                       (SEQ (LETT |xx| NIL . #27#)
                                            (LETT #13# |lvar| . #27#) G190
                                            (COND
                                             ((OR (ATOM #13#)
                                                  (PROGN
                                                   (LETT |xx| (CAR #13#)
                                                         . #27#)
                                                   NIL))
                                              #28#))
                                            (SEQ
                                             (EXIT
                                              (LETT #14#
                                                    (CONS
                                                     (PROGN
                                                      (LETT #9# NIL . #27#)
                                                      (SEQ
                                                       (LETT |fc| NIL . #27#)
                                                       (LETT #12# |coefs|
                                                             . #27#)
                                                       G190
                                                       (COND
                                                        ((OR (ATOM #12#)
                                                             (PROGN
                                                              (LETT |fc|
                                                                    (CAR #12#)
                                                                    . #27#)
                                                              NIL))
                                                         #28#))
                                                       (SEQ
                                                        (EXIT
                                                         (PROGN
                                                          (LETT #11#
                                                                (SPADCALL |fc|
                                                                          |xx|
                                                                          (QREFELT
                                                                           $
                                                                           67))
                                                                . #27#)
                                                          (COND
                                                           (#9#
                                                            (LETT #10#
                                                                  (MAX #10#
                                                                       #11#)
                                                                  . #27#))
                                                           ('T
                                                            (PROGN
                                                             (LETT #10# #11#
                                                                   . #27#)
                                                             (LETT #9# 'T
                                                                   . #27#)))))))
                                                       (LETT #12# (CDR #12#)
                                                             . #27#)
                                                       #29# G191 (EXIT NIL))
                                                      (COND (#9# #10#)
                                                            ('T
                                                             (|IdentityError|
                                                              '|max|))))
                                                     #14#)
                                                    . #27#)))
                                            (LETT #13# (CDR #13#) . #27#) #29#
                                            G191 (EXIT (NREVERSE0 #14#))))
                                      . #27#)
                                (LETT |lf|
                                      (COND
                                       ((SPADCALL
                                         (SPADCALL |ffactor| (QREFELT $ 68))
                                         (QREFELT $ 69))
                                        (|INNMFACT;mfconst| |ffactor| |lvar|
                                         |ldeg| |ufactor| $))
                                       ('T
                                        (|INNMFACT;mfpol| |ffactor| |lvar|
                                         |ldeg| |ufactor| $)))
                                      . #27#)
                                (LETT |auxfl|
                                      (PROGN
                                       (LETT #8# NIL . #27#)
                                       (SEQ (LETT |lfp| NIL . #27#)
                                            (LETT #7# |lf| . #27#) G190
                                            (COND
                                             ((OR (ATOM #7#)
                                                  (PROGN
                                                   (LETT |lfp| (CAR #7#)
                                                         . #27#)
                                                   NIL))
                                              #28#))
                                            (SEQ
                                             (EXIT
                                              (LETT #8#
                                                    (CONS (CONS |lfp| |ffexp|)
                                                          #8#)
                                                    . #27#)))
                                            (LETT #7# (CDR #7#) . #27#) #29#
                                            G191 (EXIT (NREVERSE0 #8#))))
                                      . #27#)
                                (EXIT
                                 (LETT |factorlist|
                                       (APPEND |factorlist| |auxfl|)
                                       . #27#)))))))
                       (LETT #17# (CDR #17#) . #27#) #29# G191 (EXIT NIL))
                  (LETT |lcfacs|
                        (PROGN
                         (LETT #2# NIL . #27#)
                         (SEQ (LETT |f| NIL . #27#)
                              (LETT #6# |factorlist| . #27#) G190
                              (COND
                               ((OR (ATOM #6#)
                                    (PROGN (LETT |f| (CAR #6#) . #27#) NIL))
                                #28#))
                              (SEQ
                               (EXIT
                                (PROGN
                                 (LETT #4#
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL (QCAR |f|) (QREFELT $ 68))
                                         (QREFELT $ 70))
                                        (PROG1 (LETT #5# (QCDR |f|) . #27#)
                                          (|check-subtype| (>= #5# 0)
                                                           '(|NonNegativeInteger|)
                                                           #5#))
                                        (QREFELT $ 71))
                                       . #27#)
                                 (COND
                                  (#2#
                                   (LETT #3# (SPADCALL #3# #4# (QREFELT $ 72))
                                         . #27#))
                                  ('T
                                   (PROGN
                                    (LETT #3# #4# . #27#)
                                    (LETT #2# 'T . #27#)))))))
                              (LETT #6# (CDR #6#) . #27#) #29# G191 (EXIT NIL))
                         (COND (#2# #3#) (#26# (|spadConstant| $ 50))))
                        . #27#)
                  (EXIT
                   (CONS
                    (PROG2
                        (LETT #1#
                              (SPADCALL
                               (SPADCALL (SPADCALL |um| (QREFELT $ 68))
                                         (QREFELT $ 70))
                               |lcfacs| (QREFELT $ 73))
                              . #27#)
                        (QCDR #1#)
                      (|check-union| (QEQCAR #1# 0) (QREFELT $ 8) #1#))
                    |factorlist|))))))))))
      #18# (EXIT #18#))))) 

(DEFUN |INNMFACT;factor;SupMF;3| (|um| |ufactor| $)
  (PROG (#1=#:G1907 #2=#:G1906 #3=#:G1908 #4=#:G1912 |u| |flist|)
    (RETURN
     (SEQ
      (LETT |flist| (|INNMFACT;supFactor| |um| |ufactor| $)
            . #5=(|INNMFACT;factor;SupMF;3|))
      (EXIT
       (SPADCALL
        (SPADCALL (SPADCALL (QCAR |flist|) (QREFELT $ 38)) (QREFELT $ 18))
        (PROGN
         (LETT #1# NIL . #5#)
         (SEQ (LETT |u| NIL . #5#) (LETT #4# (QCDR |flist|) . #5#) G190
              (COND
               ((OR (ATOM #4#) (PROGN (LETT |u| (CAR #4#) . #5#) NIL))
                (GO G191)))
              (SEQ
               (EXIT
                (PROGN
                 (LETT #3# (SPADCALL (QCAR |u|) (QCDR |u|) (QREFELT $ 74))
                       . #5#)
                 (COND (#1# (LETT #2# (SPADCALL #2# #3# (QREFELT $ 75)) . #5#))
                       ('T
                        (PROGN (LETT #2# #3# . #5#) (LETT #1# 'T . #5#)))))))
              (LETT #4# (CDR #4#) . #5#) (GO G190) G191 (EXIT NIL))
         (COND (#1# #2#) ('T (|spadConstant| $ 76))))
        (QREFELT $ 77))))))) 

(DEFUN |INNMFACT;checkzero| (|u| |um| $)
  (COND
   ((SPADCALL |u| (|spadConstant| $ 47) (QREFELT $ 80))
    (SPADCALL |um| (|spadConstant| $ 48) (QREFELT $ 81)))
   ((SPADCALL |um| (|spadConstant| $ 48) (QREFELT $ 81)) 'NIL)
   (#1='T
    (COND
     ((EQL (SPADCALL |u| (QREFELT $ 55)) (SPADCALL |um| (QREFELT $ 82)))
      (|INNMFACT;checkzero| (SPADCALL |u| (QREFELT $ 83))
       (SPADCALL |um| (QREFELT $ 84)) $))
     (#1# 'NIL))))) 

(DEFUN |INNMFACT;varChoose| (|m| |lvar| |ldeg| $)
  (PROG (|x| |i| |k| #1=#:G1917 #2=#:G1916 #3=#:G1918 #4=#:G1930 |d|)
    (RETURN
     (SEQ
      (LETT |k|
            (PROGN
             (LETT #1# NIL . #5=(|INNMFACT;varChoose|))
             (SEQ (LETT |d| NIL . #5#) (LETT #4# |ldeg| . #5#) G190
                  (COND
                   ((OR (ATOM #4#) (PROGN (LETT |d| (CAR #4#) . #5#) NIL))
                    (GO G191)))
                  (SEQ
                   (EXIT
                    (PROGN
                     (LETT #3# |d| . #5#)
                     (COND (#1# (LETT #2# (MIN #2# #3#) . #5#))
                           ('T
                            (PROGN
                             (LETT #2# #3# . #5#)
                             (LETT #1# 'T . #5#)))))))
                  (LETT #4# (CDR #4#) . #5#) (GO G190) G191 (EXIT NIL))
             (COND (#1# #2#) (#6='T (|IdentityError| '|min|))))
            . #5#)
      (EXIT
       (COND
        ((EQL |k| (SPADCALL |m| (|SPADfirst| |lvar|) (QREFELT $ 67)))
         (VECTOR (SPADCALL |m| (|SPADfirst| |lvar|) (QREFELT $ 86)) |lvar|
                 |ldeg|))
        (#6#
         (SEQ (LETT |i| (SPADCALL |k| |ldeg| (QREFELT $ 88)) . #5#)
              (LETT |x| (SPADCALL |lvar| |i| (QREFELT $ 89)) . #5#)
              (LETT |ldeg| (CONS |k| (SPADCALL |ldeg| |i| (QREFELT $ 90)))
                    . #5#)
              (LETT |lvar| (CONS |x| (SPADCALL |lvar| |i| (QREFELT $ 91)))
                    . #5#)
              (EXIT
               (VECTOR (SPADCALL |m| |x| (QREFELT $ 86)) |lvar| |ldeg|)))))))))) 

(DEFUN |INNMFACT;localNorm| (|lum| $)
  (PROG (#1=#:G1935 #2=#:G1934 #3=#:G1936 #4=#:G1940 #5=#:G1939 #6=#:G1941 |cc|
         #7=#:G1945 |i| #8=#:G1944 |ff| #9=#:G1932 #10=#:G1931 #11=#:G1933
         #12=#:G1943)
    (RETURN
     (SEQ
      (COND
       ((|domainEqual| (QREFELT $ 8) (|AlgebraicNumber|))
        (PROGN
         (LETT #9# NIL . #13=(|INNMFACT;localNorm|))
         (SEQ (LETT |ff| NIL . #13#) (LETT #12# |lum| . #13#) G190
              (COND
               ((OR (ATOM #12#) (PROGN (LETT |ff| (CAR #12#) . #13#) NIL))
                #14=(GO G191)))
              (SEQ
               (EXIT
                (PROGN
                 (LETT #11# (SPADCALL |ff| (QREFELT $ 92)) . #13#)
                 (COND (#9# (LETT #10# (MAX #10# #11#) . #13#))
                       ('T
                        (PROGN
                         (LETT #10# #11# . #13#)
                         (LETT #9# 'T . #13#)))))))
              (LETT #12# (CDR #12#) . #13#) #15=(GO G190) G191 (EXIT NIL))
         (COND (#9# #10#) (#16='T (|IdentityError| '|max|)))))
       (#16#
        (PROGN
         (LETT #1# NIL . #13#)
         (SEQ (LETT |ff| NIL . #13#) (LETT #8# |lum| . #13#) G190
              (COND
               ((OR (ATOM #8#) (PROGN (LETT |ff| (CAR #8#) . #13#) NIL)) #14#))
              (SEQ
               (EXIT
                (PROGN
                 (LETT #3#
                       (PROGN
                        (LETT #4# NIL . #13#)
                        (SEQ (LETT |i| 0 . #13#)
                             (LETT #7# (SPADCALL |ff| (QREFELT $ 82)) . #13#)
                             G190 (COND ((QSGREATERP |i| #7#) #14#))
                             (SEQ
                              (EXIT
                               (COND
                                ((SEQ
                                  (LETT |cc| (SPADCALL |ff| |i| (QREFELT $ 93))
                                        . #13#)
                                  (EXIT
                                   (COND
                                    ((SPADCALL |cc| (|spadConstant| $ 43)
                                               (QREFELT $ 94))
                                     'NIL)
                                    ('T 'T))))
                                 (PROGN
                                  (LETT #6# (SPADCALL |cc| (QREFELT $ 95))
                                        . #13#)
                                  (COND (#4# (LETT #5# (+ #5# #6#) . #13#))
                                        ('T
                                         (PROGN
                                          (LETT #5# #6# . #13#)
                                          (LETT #4# 'T . #13#)))))))))
                             (LETT |i| (QSADD1 |i|) . #13#) #15# G191
                             (EXIT NIL))
                        (COND (#4# #5#) ('T 0)))
                       . #13#)
                 (COND (#1# (LETT #2# (MAX #2# #3#) . #13#))
                       ('T
                        (PROGN (LETT #2# #3# . #13#) (LETT #1# 'T . #13#)))))))
              (LETT #8# (CDR #8#) . #13#) #15# G191 (EXIT NIL))
         (COND (#1# #2#) (#16# (|IdentityError| '|max|)))))))))) 

(DEFUN |INNMFACT;intChoose| (|um| |lvar| |clc| |plist| |ltry| |ufactor| $)
  (PROG (|nfatt| |int| |leadcomp| |lffc| |unifact| #1=#:G2031 |uf| #2=#:G2030
         |leadtest| #3=#:G2029 #4=#:G2028 #5=#:G2013 #6=#:G2027 #7=#:G2026
         #8=#:G2025 #9=#:G2024 #10=#:G2023 |ff| #11=#:G2022 #12=#:G2021
         #13=#:G2020 |nf| |lffc1| |lunivf| |luniv| |range| |newm| #14=#:G1961
         #15=#:G1955 #16=#:G1954 #17=#:G1956 #18=#:G2019 |epl| |leadcomp1|
         #19=#:G2018 |pol| #20=#:G2017 |lval| |i| #21=#:G2016 #22=#:G2015
         |newunifact| |testp| |ctf1| |nvar1| |degum|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |degum| (SPADCALL |um| (QREFELT $ 55))
              . #23=(|INNMFACT;intChoose|))
        (LETT |nvar1| (LENGTH |lvar|) . #23#) (LETT |range| 5 . #23#)
        (LETT |ctf1| (|spadConstant| $ 50) . #23#)
        (LETT |testp| (COND ((NULL |plist|) 'NIL) ('T 'T)) . #23#)
        (LETT |leadcomp| (LETT |leadcomp1| NIL . #23#) . #23#)
        (LETT |nfatt| (+ |degum| 1) . #23#)
        (LETT |lffc| (|spadConstant| $ 50) . #23#) (LETT |lffc1| |lffc| . #23#)
        (LETT |newunifact| NIL . #23#) (LETT |leadtest| 'T . #23#)
        (LETT |int| NIL . #23#)
        (SEQ
         (EXIT
          (SEQ G190 (COND ((NULL 'T) #24=(GO G191)))
               (SEQ
                (COND
                 (|testp|
                  (COND
                   ((< 10 (LENGTH |ltry|))
                    (EXIT
                     (PROGN
                      (LETT #22# (CONS 1 "failed") . #23#)
                      (GO #22#)))))))
                (LETT |lval|
                      (PROGN
                       (LETT #21# NIL . #23#)
                       (SEQ (LETT |i| 1 . #23#) G190
                            (COND ((QSGREATERP |i| |nvar1|) #24#))
                            (SEQ
                             (EXIT
                              (LETT #21#
                                    (CONS (SPADCALL |range| (QREFELT $ 97))
                                          #21#)
                                    . #23#)))
                            (LETT |i| (QSADD1 |i|) . #23#) #25=(GO G190) G191
                            (EXIT (NREVERSE0 #21#))))
                      . #23#)
                (EXIT
                 (COND
                  ((SPADCALL |lval| |ltry| (QREFELT $ 100))
                   (LETT |range| (SPADCALL 2 |range| (QREFELT $ 101)) . #23#))
                  ('T
                   (SEQ (LETT |ltry| (CONS |lval| |ltry|) . #23#)
                        (LETT |leadcomp1|
                              (PROGN
                               (LETT #20# NIL . #23#)
                               (SEQ (LETT |pol| NIL . #23#)
                                    (LETT #19# |plist| . #23#) G190
                                    (COND
                                     ((OR (ATOM #19#)
                                          (PROGN
                                           (LETT |pol| (CAR #19#) . #23#)
                                           NIL))
                                      #24#))
                                    (SEQ
                                     (EXIT
                                      (LETT #20#
                                            (CONS
                                             (SPADCALL
                                              (SPADCALL |pol| |lvar| |lval|
                                                        (QREFELT $ 102))
                                              (QREFELT $ 103))
                                             #20#)
                                            . #23#)))
                                    (LETT #19# (CDR #19#) . #23#) #25# G191
                                    (EXIT (NREVERSE0 #20#))))
                              . #23#)
                        (COND
                         (|testp|
                          (COND
                           ((PROGN
                             (LETT #15# NIL . #23#)
                             (SEQ (LETT |epl| NIL . #23#)
                                  (LETT #18# |leadcomp1| . #23#) G190
                                  (COND
                                   ((OR (ATOM #18#)
                                        (PROGN
                                         (LETT |epl| (CAR #18#) . #23#)
                                         NIL))
                                    #24#))
                                  (SEQ
                                   (EXIT
                                    (PROGN
                                     (LETT #17#
                                           (SPADCALL |epl| (QREFELT $ 104))
                                           . #23#)
                                     (COND
                                      (#15#
                                       (LETT #16# (COND (#16# 'T) ('T #17#))
                                             . #23#))
                                      ('T
                                       (PROGN
                                        (LETT #16# #17# . #23#)
                                        (LETT #15# 'T . #23#)))))))
                                  (LETT #18# (CDR #18#) . #23#) #25# G191
                                  (EXIT NIL))
                             (COND (#15# #16#) ('T 'NIL)))
                            (EXIT
                             (LETT |range| (SPADCALL 2 |range| (QREFELT $ 101))
                                   . #23#))))))
                        (LETT |newm|
                              (SPADCALL |um| |lvar| |lval| (QREFELT $ 105))
                              . #23#)
                        (COND
                         ((EQL |degum| (SPADCALL |newm| (QREFELT $ 82)))
                          (COND
                           ((NULL (EQL (SPADCALL |newm| (QREFELT $ 106)) 0))
                            (EXIT
                             (LETT |range| (SPADCALL 2 |range| (QREFELT $ 101))
                                   . #23#)))))
                         ('T
                          (EXIT
                           (LETT |range| (SPADCALL 2 |range| (QREFELT $ 101))
                                 . #23#))))
                        (LETT |lffc1| (SPADCALL |newm| (QREFELT $ 107)) . #23#)
                        (LETT |newm|
                              (PROG2
                                  (LETT #14#
                                        (SPADCALL |newm| |lffc1|
                                                  (QREFELT $ 108))
                                        . #23#)
                                  (QCDR #14#)
                                (|check-union| (QEQCAR #14# 0)
                                               (|SparseUnivariatePolynomial|
                                                (QREFELT $ 8))
                                               #14#))
                              . #23#)
                        (COND
                         (|testp|
                          (COND
                           (|leadtest|
                            (COND
                             ((NULL
                               (SPADCALL
                                (SPADCALL |lffc1| |clc| (QREFELT $ 72))
                                (LENGTH |plist|) |leadcomp1| (QREFELT $ 110)))
                              (EXIT
                               (LETT |range|
                                     (SPADCALL 2 |range| (QREFELT $ 101))
                                     . #23#))))))))
                        (COND
                         ((NULL
                           (EQL
                            (SPADCALL
                             (SPADCALL
                              (LIST |newm| (SPADCALL |newm| (QREFELT $ 111)))
                              (QREFELT $ 113))
                             (QREFELT $ 82))
                            0))
                          (EXIT
                           (LETT |range| (SPADCALL 2 |range| (QREFELT $ 101))
                                 . #23#))))
                        (LETT |luniv| (SPADCALL |newm| |ufactor|) . #23#)
                        (LETT |lunivf| (SPADCALL |luniv| (QREFELT $ 37))
                              . #23#)
                        (LETT |lffc1|
                              (SPADCALL
                               (SPADCALL (SPADCALL |luniv| (QREFELT $ 33))
                                         (QREFELT $ 34))
                               |lffc1| (QREFELT $ 72))
                              . #23#)
                        (LETT |nf| (LENGTH |lunivf|) . #23#)
                        (COND
                         ((OR (EQL |nf| 0) (< |nfatt| |nf|))
                          (EXIT "next values")))
                        (COND
                         ((EQL |nf| 1)
                          (PROGN
                           (LETT #5# (LETT |unifact| (LIST |newm|) . #23#)
                                 . #23#)
                           (GO #5#))))
                        (EXIT
                         (COND
                          ((EQL |nfatt| |nf|)
                           (SEQ
                            (COND
                             (|leadtest|
                              (SEQ
                               (LETT |unifact|
                                     (PROGN
                                      (LETT #13# NIL . #23#)
                                      (SEQ (LETT |uf| NIL . #23#)
                                           (LETT #12# |lunivf| . #23#) G190
                                           (COND
                                            ((OR (ATOM #12#)
                                                 (PROGN
                                                  (LETT |uf| (CAR #12#) . #23#)
                                                  NIL))
                                             #24#))
                                           (SEQ
                                            (EXIT
                                             (LETT #13# (CONS (QCAR |uf|) #13#)
                                                   . #23#)))
                                           (LETT #12# (CDR #12#) . #23#) #25#
                                           G191 (EXIT (NREVERSE0 #13#))))
                                     . #23#)
                               (LETT |int| |lval| . #23#)
                               (LETT |lffc| |lffc1| . #23#)
                               (EXIT
                                (COND
                                 (|testp|
                                  (LETT |leadcomp| |leadcomp1| . #23#))))))
                             ((<
                               (|INNMFACT;localNorm|
                                (PROGN
                                 (LETT #11# NIL . #23#)
                                 (SEQ (LETT |ff| NIL . #23#)
                                      (LETT #10# |lunivf| . #23#) G190
                                      (COND
                                       ((OR (ATOM #10#)
                                            (PROGN
                                             (LETT |ff| (CAR #10#) . #23#)
                                             NIL))
                                        #24#))
                                      (SEQ
                                       (EXIT
                                        (LETT #11# (CONS (QCAR |ff|) #11#)
                                              . #23#)))
                                      (LETT #10# (CDR #10#) . #23#) #25# G191
                                      (EXIT (NREVERSE0 #11#))))
                                $)
                               (|INNMFACT;localNorm| |unifact| $))
                              (COND
                               (|testp|
                                (COND
                                 ((SPADCALL
                                   (SPADCALL |lffc1| |clc| (QREFELT $ 72))
                                   (LENGTH |plist|) |leadcomp1|
                                   (QREFELT $ 110))
                                  (SEQ
                                   (LETT |unifact|
                                         (PROGN
                                          (LETT #9# NIL . #23#)
                                          (SEQ (LETT |uf| NIL . #23#)
                                               (LETT #8# |lunivf| . #23#) G190
                                               (COND
                                                ((OR (ATOM #8#)
                                                     (PROGN
                                                      (LETT |uf| (CAR #8#)
                                                            . #23#)
                                                      NIL))
                                                 #24#))
                                               (SEQ
                                                (EXIT
                                                 (LETT #9#
                                                       (CONS (QCAR |uf|) #9#)
                                                       . #23#)))
                                               (LETT #8# (CDR #8#) . #23#) #25#
                                               G191 (EXIT (NREVERSE0 #9#))))
                                         . #23#)
                                   (LETT |int| |lval| . #23#)
                                   (LETT |lffc| |lffc1| . #23#)
                                   (EXIT
                                    (COND
                                     (|testp|
                                      (LETT |leadcomp| |leadcomp1|
                                            . #23#))))))))
                               ('T
                                (SEQ
                                 (LETT |unifact|
                                       (PROGN
                                        (LETT #7# NIL . #23#)
                                        (SEQ (LETT |uf| NIL . #23#)
                                             (LETT #6# |lunivf| . #23#) G190
                                             (COND
                                              ((OR (ATOM #6#)
                                                   (PROGN
                                                    (LETT |uf| (CAR #6#)
                                                          . #23#)
                                                    NIL))
                                               #24#))
                                             (SEQ
                                              (EXIT
                                               (LETT #7# (CONS (QCAR |uf|) #7#)
                                                     . #23#)))
                                             (LETT #6# (CDR #6#) . #23#) #25#
                                             G191 (EXIT (NREVERSE0 #7#))))
                                       . #23#)
                                 (LETT |int| |lval| . #23#)
                                 (LETT |lffc| |lffc1| . #23#)
                                 (EXIT
                                  (COND
                                   (|testp|
                                    (LETT |leadcomp| |leadcomp1|
                                          . #23#)))))))))
                            (EXIT
                             (PROGN (LETT #5# "foundit" . #23#) (GO #5#)))))
                          ((< |degum| |nfatt|)
                           (SEQ
                            (LETT |unifact|
                                  (PROGN
                                   (LETT #4# NIL . #23#)
                                   (SEQ (LETT |uf| NIL . #23#)
                                        (LETT #3# |lunivf| . #23#) G190
                                        (COND
                                         ((OR (ATOM #3#)
                                              (PROGN
                                               (LETT |uf| (CAR #3#) . #23#)
                                               NIL))
                                          #24#))
                                        (SEQ
                                         (EXIT
                                          (LETT #4# (CONS (QCAR |uf|) #4#)
                                                . #23#)))
                                        (LETT #3# (CDR #3#) . #23#) #25# G191
                                        (EXIT (NREVERSE0 #4#))))
                                  . #23#)
                            (LETT |lffc| |lffc1| . #23#)
                            (COND
                             (|testp| (LETT |leadcomp| |leadcomp1| . #23#)))
                            (LETT |int| |lval| . #23#)
                            (LETT |leadtest| 'NIL . #23#)
                            (EXIT (LETT |nfatt| |nf| . #23#))))
                          ((< |nf| |nfatt|)
                           (SEQ
                            (COND
                             (|testp|
                              (LETT |leadtest|
                                    (COND
                                     ((SPADCALL
                                       (SPADCALL |lffc| |clc| (QREFELT $ 72))
                                       (LENGTH |plist|) |leadcomp|
                                       (QREFELT $ 110))
                                      'NIL)
                                     ('T 'T))
                                    . #23#))
                             ('T (LETT |leadtest| 'NIL . #23#)))
                            (COND
                             ((NULL |leadtest|)
                              (SEQ
                               (LETT |unifact|
                                     (PROGN
                                      (LETT #2# NIL . #23#)
                                      (SEQ (LETT |uf| NIL . #23#)
                                           (LETT #1# |lunivf| . #23#) G190
                                           (COND
                                            ((OR (ATOM #1#)
                                                 (PROGN
                                                  (LETT |uf| (CAR #1#) . #23#)
                                                  NIL))
                                             #24#))
                                           (SEQ
                                            (EXIT
                                             (LETT #2# (CONS (QCAR |uf|) #2#)
                                                   . #23#)))
                                           (LETT #1# (CDR #1#) . #23#) #25#
                                           G191 (EXIT (NREVERSE0 #2#))))
                                     . #23#)
                               (LETT |lffc| |lffc1| . #23#)
                               (COND
                                (|testp| (LETT |leadcomp| |leadcomp1| . #23#)))
                               (EXIT (LETT |int| |lval| . #23#)))))
                            (EXIT (LETT |nfatt| |nf| . #23#)))))))))))
               NIL #25# G191 (EXIT NIL)))
         #5# (EXIT #5#))
        (EXIT
         (CONS 0 (VECTOR (CONS |int| |ltry|) |unifact| |lffc| |leadcomp|)))))
      #22# (EXIT #22#))))) 

(DEFUN |INNMFACT;simplify| (|m| |lvar| |lmdeg| |ufactor| $)
  (PROG (|flead| #1=#:G2038 |factorlist| |pol1| |i| #2=#:G2043 |x|)
    (RETURN
     (SEQ (LETT |factorlist| NIL . #3=(|INNMFACT;simplify|))
          (LETT |pol1| (|spadConstant| $ 51) . #3#)
          (SEQ (LETT |x| NIL . #3#) (LETT #2# |lvar| . #3#) G190
               (COND
                ((OR (ATOM #2#) (PROGN (LETT |x| (CAR #2#) . #3#) NIL))
                 (GO G191)))
               (SEQ
                (LETT |i|
                      (SPADCALL |lmdeg| (SPADCALL |x| |lvar| (QREFELT $ 114))
                                (QREFELT $ 115))
                      . #3#)
                (EXIT
                 (COND ((EQL |i| 0) "next value")
                       ('T
                        (SEQ
                         (LETT |pol1|
                               (SPADCALL |pol1|
                                         (SPADCALL (|spadConstant| $ 51) |x|
                                                   |i| (QREFELT $ 116))
                                         (QREFELT $ 117))
                               . #3#)
                         (EXIT
                          (LETT |factorlist|
                                (CONS (CONS (SPADCALL |x| (QREFELT $ 118)) |i|)
                                      |factorlist|)
                                . #3#)))))))
               (LETT #2# (CDR #2#) . #3#) (GO G190) G191 (EXIT NIL))
          (LETT |m|
                (PROG2
                    (LETT #1# (SPADCALL |m| |pol1| (QREFELT $ 119)) . #3#)
                    (QCDR #1#)
                  (|check-union| (QEQCAR #1# 0) (QREFELT $ 9) #1#))
                . #3#)
          (EXIT
           (COND
            ((SPADCALL |m| (QREFELT $ 69))
             (CONS (SPADCALL |m| (QREFELT $ 103)) |factorlist|))
            ('T
             (SEQ (LETT |flead| (|INNMFACT;mFactor| |m| |ufactor| $) . #3#)
                  (PROGN
                   (RPLACD |flead| (APPEND |factorlist| (QCDR |flead|)))
                   (QCDR |flead|))
                  (EXIT |flead|))))))))) 

(DEFUN |INNMFACT;intfact| (|um| |lvar| |ldeg| |tleadpol| |ltry| |ufactor| $)
  (PROG (|factfin| #1=#:G2259 |ff| #2=#:G2258 |ffin| |umd| #3=#:G2241 |unifact|
         #4=#:G2257 |unif| #5=#:G2256 |dd| |lpol| |dist| #6=#:G2253 |distf|
         |leadval| |lval| |nfact| |vfchoo| #7=#:G1948 |check| |leadpol|
         #8=#:G2255 #9=#:G2254 |polcase|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |polcase| (COND ((NULL (QCDR |tleadpol|)) 'NIL) (#10='T 'T))
              . #11=(|INNMFACT;intfact|))
        (LETT |vfchoo|
              (COND
               (|polcase|
                (SEQ
                 (LETT |leadpol|
                       (PROGN
                        (LETT #9# NIL . #11#)
                        (SEQ (LETT |ff| NIL . #11#)
                             (LETT #8# (QCDR |tleadpol|) . #11#) G190
                             (COND
                              ((OR (ATOM #8#)
                                   (PROGN (LETT |ff| (CAR #8#) . #11#) NIL))
                               #12=(GO G191)))
                             (SEQ
                              (EXIT (LETT #9# (CONS (QCAR |ff|) #9#) . #11#)))
                             (LETT #8# (CDR #8#) . #11#) #13=(GO G190) G191
                             (EXIT (NREVERSE0 #9#))))
                       . #11#)
                 (LETT |check|
                       (|INNMFACT;intChoose| |um| |lvar| (QCAR |tleadpol|)
                        |leadpol| |ltry| |ufactor| $)
                       . #11#)
                 (EXIT
                  (COND
                   ((QEQCAR |check| 1)
                    (PROGN
                     (LETT #6#
                           (|INNMFACT;monicMfpol| |um| |lvar| |ldeg| |ufactor|
                            $)
                           . #11#)
                     (GO #6#)))
                   (#10# (QCDR |check|))))))
               (#10#
                (PROG2
                    (LETT #7#
                          (|INNMFACT;intChoose| |um| |lvar|
                           (|spadConstant| $ 50) NIL NIL |ufactor| $)
                          . #11#)
                    (QCDR #7#)
                  (|check-union| (QEQCAR #7# 0)
                                 (|Record|
                                  (|:| |inval| (|List| (|List| (QREFELT $ 8))))
                                  (|:| |unvfact|
                                       (|List|
                                        (|SparseUnivariatePolynomial|
                                         (QREFELT $ 8))))
                                  (|:| |lu| (QREFELT $ 8))
                                  (|:| |complead| (|List| (QREFELT $ 8))))
                                 #7#))))
              . #11#)
        (LETT |unifact| (QVELT |vfchoo| 1) . #11#)
        (LETT |nfact| (LENGTH |unifact|) . #11#)
        (EXIT
         (COND ((EQL |nfact| 1) (LIST |um|))
               (#10#
                (SEQ (LETT |ltry| (QVELT |vfchoo| 0) . #11#)
                     (LETT |lval| (|SPADfirst| |ltry|) . #11#)
                     (LETT |dd| (QVELT |vfchoo| 2) . #11#)
                     (LETT |leadval| NIL . #11#) (LETT |lpol| NIL . #11#)
                     (COND
                      (|polcase|
                       (SEQ (LETT |leadval| (QVELT |vfchoo| 3) . #11#)
                            (LETT |distf|
                                  (SPADCALL (QVELT |vfchoo| 2) |unifact|
                                            |tleadpol| |leadval| |lvar| |lval|
                                            (QREFELT $ 125))
                                  . #11#)
                            (EXIT
                             (COND
                              ((QEQCAR |distf| 1)
                               (PROGN
                                (LETT #6#
                                      (|INNMFACT;intfact| |um| |lvar| |ldeg|
                                       |tleadpol| |ltry| |ufactor| $)
                                      . #11#)
                                (GO #6#)))
                              (#10#
                               (SEQ (LETT |dist| (QCDR |distf|) . #11#)
                                    (LETT |lpol| (QVELT |dist| 0) . #11#)
                                    (LETT |dd| (QVELT |dist| 1) . #11#)
                                    (EXIT
                                     (LETT |unifact| (QVELT |dist| 2)
                                           . #11#)))))))))
                     (COND
                      ((SPADCALL |dd| (|spadConstant| $ 50) (QREFELT $ 94))
                       (LETT |umd| |um| . #11#))
                      (#10#
                       (SEQ
                        (LETT |unifact|
                              (PROGN
                               (LETT #5# NIL . #11#)
                               (SEQ (LETT |unif| NIL . #11#)
                                    (LETT #4# |unifact| . #11#) G190
                                    (COND
                                     ((OR (ATOM #4#)
                                          (PROGN
                                           (LETT |unif| (CAR #4#) . #11#)
                                           NIL))
                                      #12#))
                                    (SEQ
                                     (EXIT
                                      (LETT #5#
                                            (CONS
                                             (SPADCALL |dd| |unif|
                                                       (QREFELT $ 126))
                                             #5#)
                                            . #11#)))
                                    (LETT #4# (CDR #4#) . #11#) #13# G191
                                    (EXIT (NREVERSE0 #5#))))
                              . #11#)
                        (EXIT
                         (LETT |umd|
                               (SPADCALL
                                (SPADCALL
                                 (QVELT (SPADCALL |dd| (QREFELT $ 127)) 0)
                                 (SPADCALL
                                  (SPADCALL |dd|
                                            (PROG1
                                                (LETT #3# (- |nfact| 1) . #11#)
                                              (|check-subtype| (>= #3# 0)
                                                               '(|NonNegativeInteger|)
                                                               #3#))
                                            (QREFELT $ 71))
                                  (QREFELT $ 38))
                                 (QREFELT $ 66))
                                |um| (QREFELT $ 128))
                               . #11#)))))
                     (LETT |ffin|
                           (SPADCALL |umd| |lvar| |unifact| |lval| |lpol|
                                     |ldeg| (QREFELT $ 16) (QREFELT $ 131))
                           . #11#)
                     (EXIT
                      (COND
                       ((QEQCAR |ffin| 1)
                        (|INNMFACT;intfact| |um| |lvar| |ldeg| |tleadpol|
                         |ltry| |ufactor| $))
                       (#10#
                        (SEQ (LETT |factfin| (QCDR |ffin|) . #11#)
                             (COND
                              ((NULL
                                (SPADCALL |dd| (|spadConstant| $ 50)
                                          (QREFELT $ 94)))
                               (LETT |factfin|
                                     (PROGN
                                      (LETT #2# NIL . #11#)
                                      (SEQ (LETT |ff| NIL . #11#)
                                           (LETT #1# |factfin| . #11#) G190
                                           (COND
                                            ((OR (ATOM #1#)
                                                 (PROGN
                                                  (LETT |ff| (CAR #1#) . #11#)
                                                  NIL))
                                             #12#))
                                           (SEQ
                                            (EXIT
                                             (LETT #2#
                                                   (CONS
                                                    (SPADCALL |ff|
                                                              (QREFELT $ 132))
                                                    #2#)
                                                   . #11#)))
                                           (LETT #1# (CDR #1#) . #11#) #13#
                                           G191 (EXIT (NREVERSE0 #2#))))
                                     . #11#)))
                             (EXIT |factfin|)))))))))))
      #6# (EXIT #6#))))) 

(DEFUN |INNMFACT;mfconst| (|um| |lvar| |ldeg| |ufactor| $)
  (PROG (#1=#:G2267 |uf| #2=#:G2266 |lum| |factfin|)
    (RETURN
     (SEQ (LETT |factfin| NIL . #3=(|INNMFACT;mfconst|))
          (EXIT
           (COND
            ((NULL |lvar|)
             (SEQ
              (LETT |lum|
                    (SPADCALL
                     (SPADCALL (SPADCALL (ELT $ 27) |um| (QREFELT $ 31))
                               |ufactor|)
                     (QREFELT $ 37))
                    . #3#)
              (EXIT
               (PROGN
                (LETT #2# NIL . #3#)
                (SEQ (LETT |uf| NIL . #3#) (LETT #1# |lum| . #3#) G190
                     (COND
                      ((OR (ATOM #1#) (PROGN (LETT |uf| (CAR #1#) . #3#) NIL))
                       (GO G191)))
                     (SEQ
                      (EXIT
                       (LETT #2#
                             (CONS
                              (SPADCALL (ELT $ 38) (QCAR |uf|) (QREFELT $ 41))
                              #2#)
                             . #3#)))
                     (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                     (EXIT (NREVERSE0 #2#)))))))
            ('T
             (|INNMFACT;intfact| |um| |lvar| |ldeg|
              (CONS (|spadConstant| $ 43) NIL) NIL |ufactor| $)))))))) 

(DEFUN |INNMFACT;monicize| (|um| |c| $)
  (PROG (|ans| |prod| #1=#:G2271 |n| |lc| |i| #2=#:G2268)
    (RETURN
     (SEQ (LETT |n| (SPADCALL |um| (QREFELT $ 55)) . #3=(|INNMFACT;monicize|))
          (LETT |ans| (SPADCALL (|spadConstant| $ 51) |n| (QREFELT $ 52))
                . #3#)
          (LETT |n|
                (PROG1 (LETT #2# (- |n| 1) . #3#)
                  (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                . #3#)
          (LETT |prod| (|spadConstant| $ 51) . #3#)
          (SEQ G190
               (COND
                ((NULL
                  (SEQ (LETT |um| (SPADCALL |um| (QREFELT $ 83)) . #3#)
                       (EXIT
                        (COND
                         ((SPADCALL |um| (|spadConstant| $ 47) (QREFELT $ 80))
                          'NIL)
                         ('T 'T)))))
                 (GO G191)))
               (SEQ (LETT |i| (SPADCALL |um| (QREFELT $ 55)) . #3#)
                    (LETT |lc| (SPADCALL |um| (QREFELT $ 68)) . #3#)
                    (LETT |prod|
                          (SPADCALL |prod|
                                    (SPADCALL |c|
                                              (PROG1
                                                  (LETT #1#
                                                        (- |n|
                                                           (LETT |n| |i|
                                                                 . #3#))
                                                        . #3#)
                                                (|check-subtype| (>= #1# 0)
                                                                 '(|NonNegativeInteger|)
                                                                 #1#))
                                              (QREFELT $ 133))
                                    (QREFELT $ 117))
                          . #3#)
                    (EXIT
                     (LETT |ans|
                           (SPADCALL |ans|
                                     (SPADCALL
                                      (SPADCALL |prod| |lc| (QREFELT $ 117))
                                      |i| (QREFELT $ 52))
                                     (QREFELT $ 134))
                           . #3#)))
               NIL (GO G190) G191 (EXIT NIL))
          (EXIT |ans|))))) 

(DEFUN |INNMFACT;unmonicize| (|m| |c| $)
  (SPADCALL (SPADCALL |m| (SPADCALL |c| 1 (QREFELT $ 52)) (QREFELT $ 135))
            (QREFELT $ 132))) 

(DEFUN |INNMFACT;monicMfpol| (|um| |lvar| |ldeg| |ufactor| $)
  (PROG (|nldeg| |monpol| |l|)
    (RETURN
     (SEQ
      (LETT |l| (SPADCALL |um| (QREFELT $ 68)) . #1=(|INNMFACT;monicMfpol|))
      (LETT |monpol| (|INNMFACT;monicize| |um| |l| $) . #1#)
      (LETT |nldeg| (SPADCALL |monpol| |lvar| (QREFELT $ 136)) . #1#)
      (EXIT
       (SPADCALL (CONS #'|INNMFACT;monicMfpol!0| (VECTOR $ |l|))
                 (|INNMFACT;mfconst| |monpol| |lvar| |nldeg| |ufactor| $)
                 (QREFELT $ 139))))))) 

(DEFUN |INNMFACT;monicMfpol!0| (|z1| $$)
  (PROG (|l| $)
    (LETT |l| (QREFELT $$ 1) . #1=(|INNMFACT;monicMfpol|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|INNMFACT;unmonicize| |z1| |l| $))))) 

(DEFUN |INNMFACT;mfpol| (|um| |lvar| |ldeg| |ufactor| $)
  (PROG (|tleadpol|)
    (RETURN
     (SEQ
      (COND
       ((|HasCategory| (QREFELT $ 8) '(|Field|))
        (|INNMFACT;monicMfpol| |um| |lvar| |ldeg| |ufactor| $))
       ('T
        (SEQ
         (LETT |tleadpol|
               (|INNMFACT;mFactor| (SPADCALL |um| (QREFELT $ 68)) |ufactor| $)
               |INNMFACT;mfpol|)
         (EXIT
          (|INNMFACT;intfact| |um| |lvar| |ldeg| |tleadpol| NIL |ufactor|
           $))))))))) 

(DEFUN |INNMFACT;mFactor| (|m| |ufactor| $)
  (PROG (#1=#:G2313 |lcfacs| #2=#:G2308 #3=#:G2307 #4=#:G2309 #5=#:G2311
         #6=#:G2325 |f| |factorlist| |auxfl| #7=#:G2324 |lfp| #8=#:G2323 |lf|
         |um| |ldeg| #9=#:G2322 |lcterm| |ffactor| #10=#:G2298 |pc| |lvar| |x|
         |varch| #11=#:G2321 #12=#:G2291 |lcont| |ffexp| #13=#:G2320 |fact|
         |sqqfact| |flead| |sqfacs| #14=#:G2284 #15=#:G2283 #16=#:G2285
         #17=#:G2319 |n| |lmdeg|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |m| (QREFELT $ 69))
        (CONS (SPADCALL |m| (QREFELT $ 103)) NIL))
       (#18='T
        (SEQ
         (LETT |lvar| (SPADCALL |m| (QREFELT $ 25)) . #19=(|INNMFACT;mFactor|))
         (LETT |flead| (CONS (|spadConstant| $ 43) NIL) . #19#)
         (LETT |factorlist| NIL . #19#)
         (LETT |lmdeg| (SPADCALL |m| |lvar| (QREFELT $ 140)) . #19#)
         (EXIT
          (COND
           ((PROGN
             (LETT #14# NIL . #19#)
             (SEQ (LETT |n| NIL . #19#) (LETT #17# |lmdeg| . #19#) G190
                  (COND
                   ((OR (ATOM #17#) (PROGN (LETT |n| (CAR #17#) . #19#) NIL))
                    #20=(GO G191)))
                  (SEQ
                   (EXIT
                    (PROGN
                     (LETT #16# (< 0 |n|) . #19#)
                     (COND (#14# (LETT #15# (COND (#15# 'T) ('T #16#)) . #19#))
                           ('T
                            (PROGN
                             (LETT #15# #16# . #19#)
                             (LETT #14# 'T . #19#)))))))
                  (LETT #17# (CDR #17#) . #19#) #21=(GO G190) G191 (EXIT NIL))
             (COND (#14# #15#) (#18# 'NIL)))
            (|INNMFACT;simplify| |m| |lvar| |lmdeg| |ufactor| $))
           (#18#
            (SEQ (LETT |sqfacs| (SPADCALL |m| (QREFELT $ 142)) . #19#)
                 (LETT |lcont| (SPADCALL |sqfacs| (QREFELT $ 144)) . #19#)
                 (COND
                  ((SPADCALL |lcont| (QREFELT $ 69))
                   (PROGN
                    (RPLACA |flead| (SPADCALL |lcont| (QREFELT $ 103)))
                    (QCAR |flead|)))
                  (#18#
                   (LETT |flead| (|INNMFACT;mFactor| |lcont| |ufactor| $)
                         . #19#)))
                 (LETT |factorlist| (QCDR |flead|) . #19#)
                 (LETT |sqqfact| (SPADCALL |sqfacs| (QREFELT $ 147)) . #19#)
                 (SEQ (LETT |fact| NIL . #19#) (LETT #13# |sqqfact| . #19#)
                      G190
                      (COND
                       ((OR (ATOM #13#)
                            (PROGN (LETT |fact| (CAR #13#) . #19#) NIL))
                        #20#))
                      (SEQ (LETT |ffactor| (QCAR |fact|) . #19#)
                           (LETT |ffexp| (QCDR |fact|) . #19#)
                           (LETT |lvar| (SPADCALL |ffactor| (QREFELT $ 25))
                                 . #19#)
                           (LETT |x| (|SPADfirst| |lvar|) . #19#)
                           (LETT |ldeg|
                                 (SPADCALL |ffactor| |lvar| (QREFELT $ 148))
                                 . #19#)
                           (EXIT
                            (COND
                             ((SPADCALL 1 |ldeg| (QREFELT $ 153))
                              (SEQ
                               (LETT |x|
                                     (SPADCALL |lvar|
                                               (SPADCALL 1 |ldeg|
                                                         (QREFELT $ 88))
                                               (QREFELT $ 89))
                                     . #19#)
                               (LETT |lcont|
                                     (SPADCALL
                                      (SPADCALL
                                       (SPADCALL |ffactor| |x| (QREFELT $ 86))
                                       (QREFELT $ 23))
                                      (QREFELT $ 154))
                                     . #19#)
                               (LETT |ffactor|
                                     (PROG2
                                         (LETT #12#
                                               (SPADCALL |ffactor| |lcont|
                                                         (QREFELT $ 119))
                                               . #19#)
                                         (QCDR #12#)
                                       (|check-union| (QEQCAR #12# 0)
                                                      (QREFELT $ 9) #12#))
                                     . #19#)
                               (LETT |factorlist|
                                     (CONS (CONS |ffactor| |ffexp|)
                                           |factorlist|)
                                     . #19#)
                               (EXIT
                                (SEQ (LETT |lcterm| NIL . #19#)
                                     (LETT #11#
                                           (QCDR
                                            (|INNMFACT;mFactor| |lcont|
                                             |ufactor| $))
                                           . #19#)
                                     G190
                                     (COND
                                      ((OR (ATOM #11#)
                                           (PROGN
                                            (LETT |lcterm| (CAR #11#) . #19#)
                                            NIL))
                                       #20#))
                                     (SEQ
                                      (EXIT
                                       (LETT |factorlist|
                                             (CONS
                                              (CONS (QCAR |lcterm|)
                                                    (* (QCDR |lcterm|)
                                                       |ffexp|))
                                              |factorlist|)
                                             . #19#)))
                                     (LETT #11# (CDR #11#) . #19#) #21# G191
                                     (EXIT NIL)))))
                             ('T
                              (SEQ
                               (LETT |varch|
                                     (|INNMFACT;varChoose| |ffactor| |lvar|
                                      |ldeg| $)
                                     . #19#)
                               (LETT |um| (QVELT |varch| 0) . #19#)
                               (LETT |x| (|SPADfirst| |lvar|) . #19#)
                               (LETT |ldeg| (CDR |ldeg|) . #19#)
                               (LETT |lvar| (CDR |lvar|) . #19#)
                               (COND
                                ((NULL
                                  (SPADCALL (|SPADfirst| (QVELT |varch| 1)) |x|
                                            (QREFELT $ 155)))
                                 (SEQ (LETT |lvar| (QVELT |varch| 1) . #19#)
                                      (LETT |x| (|SPADfirst| |lvar|) . #19#)
                                      (EXIT
                                       (LETT |lvar| (CDR |lvar|) . #19#)))))
                               (LETT |pc|
                                     (SPADCALL (SPADCALL |um| (QREFELT $ 23))
                                               (QREFELT $ 154))
                                     . #19#)
                               (COND
                                ((NULL
                                  (SPADCALL |pc| (|spadConstant| $ 51)
                                            (QREFELT $ 156)))
                                 (SEQ
                                  (LETT |um|
                                        (PROG2
                                            (LETT #10#
                                                  (SPADCALL |um| |pc|
                                                            (QREFELT $ 157))
                                                  . #19#)
                                            (QCDR #10#)
                                          (|check-union| (QEQCAR #10# 0)
                                                         (|SparseUnivariatePolynomial|
                                                          (QREFELT $ 9))
                                                         #10#))
                                        . #19#)
                                  (LETT |ffactor|
                                        (SPADCALL |um| |x| (QREFELT $ 158))
                                        . #19#)
                                  (EXIT
                                   (SEQ (LETT |lcterm| NIL . #19#)
                                        (LETT #9#
                                              (QCDR
                                               (|INNMFACT;mFactor| |pc|
                                                |ufactor| $))
                                              . #19#)
                                        G190
                                        (COND
                                         ((OR (ATOM #9#)
                                              (PROGN
                                               (LETT |lcterm| (CAR #9#) . #19#)
                                               NIL))
                                          #20#))
                                        (SEQ
                                         (EXIT
                                          (LETT |factorlist|
                                                (CONS
                                                 (CONS (QCAR |lcterm|)
                                                       (* (QCDR |lcterm|)
                                                          |ffexp|))
                                                 |factorlist|)
                                                . #19#)))
                                        (LETT #9# (CDR #9#) . #19#) #21# G191
                                        (EXIT NIL))))))
                               (LETT |ldeg|
                                     (SPADCALL |ffactor| |lvar|
                                               (QREFELT $ 148))
                                     . #19#)
                               (LETT |um| (SPADCALL |um| (QREFELT $ 159))
                                     . #19#)
                               (COND
                                ((SPADCALL (SPADCALL |um| (QREFELT $ 68))
                                           (QREFELT $ 69))
                                 (LETT |lf|
                                       (|INNMFACT;mfconst| |um| |lvar| |ldeg|
                                        |ufactor| $)
                                       . #19#))
                                ('T
                                 (LETT |lf|
                                       (|INNMFACT;mfpol| |um| |lvar| |ldeg|
                                        |ufactor| $)
                                       . #19#)))
                               (LETT |auxfl|
                                     (PROGN
                                      (LETT #8# NIL . #19#)
                                      (SEQ (LETT |lfp| NIL . #19#)
                                           (LETT #7# |lf| . #19#) G190
                                           (COND
                                            ((OR (ATOM #7#)
                                                 (PROGN
                                                  (LETT |lfp| (CAR #7#) . #19#)
                                                  NIL))
                                             #20#))
                                           (SEQ
                                            (EXIT
                                             (LETT #8#
                                                   (CONS
                                                    (CONS
                                                     (SPADCALL
                                                      (SPADCALL |lfp| |x|
                                                                (QREFELT $
                                                                         158))
                                                      (QREFELT $ 160))
                                                     |ffexp|)
                                                    #8#)
                                                   . #19#)))
                                           (LETT #7# (CDR #7#) . #19#) #21#
                                           G191 (EXIT (NREVERSE0 #8#))))
                                     . #19#)
                               (EXIT
                                (LETT |factorlist|
                                      (APPEND |factorlist| |auxfl|)
                                      . #19#)))))))
                      (LETT #13# (CDR #13#) . #19#) #21# G191 (EXIT NIL))
                 (LETT |lcfacs|
                       (PROGN
                        (LETT #2# NIL . #19#)
                        (SEQ (LETT |f| NIL . #19#)
                             (LETT #6# |factorlist| . #19#) G190
                             (COND
                              ((OR (ATOM #6#)
                                   (PROGN (LETT |f| (CAR #6#) . #19#) NIL))
                               #20#))
                             (SEQ
                              (EXIT
                               (PROGN
                                (LETT #4#
                                      (SPADCALL
                                       (SPADCALL (QCAR |f|) (QREFELT $ 70))
                                       (PROG1 (LETT #5# (QCDR |f|) . #19#)
                                         (|check-subtype| (>= #5# 0)
                                                          '(|NonNegativeInteger|)
                                                          #5#))
                                       (QREFELT $ 71))
                                      . #19#)
                                (COND
                                 (#2#
                                  (LETT #3# (SPADCALL #3# #4# (QREFELT $ 72))
                                        . #19#))
                                 ('T
                                  (PROGN
                                   (LETT #3# #4# . #19#)
                                   (LETT #2# 'T . #19#)))))))
                             (LETT #6# (CDR #6#) . #19#) #21# G191 (EXIT NIL))
                        (COND (#2# #3#) (#18# (|spadConstant| $ 50))))
                       . #19#)
                 (EXIT
                  (CONS
                   (PROG2
                       (LETT #1#
                             (SPADCALL (SPADCALL |m| (QREFELT $ 70)) |lcfacs|
                                       (QREFELT $ 73))
                             . #19#)
                       (QCDR #1#)
                     (|check-union| (QEQCAR #1# 0) (QREFELT $ 8) #1#))
                   |factorlist|))))))))))))) 

(DEFUN |INNMFACT;factor;PMF;16| (|m| |ufactor| $)
  (PROG (#1=#:G2328 #2=#:G2327 #3=#:G2329 #4=#:G2332 |u| |flist|)
    (RETURN
     (SEQ
      (LETT |flist| (|INNMFACT;mFactor| |m| |ufactor| $)
            . #5=(|INNMFACT;factor;PMF;16|))
      (EXIT
       (SPADCALL (SPADCALL (QCAR |flist|) (QREFELT $ 38))
                 (PROGN
                  (LETT #1# NIL . #5#)
                  (SEQ (LETT |u| NIL . #5#) (LETT #4# (QCDR |flist|) . #5#)
                       G190
                       (COND
                        ((OR (ATOM #4#) (PROGN (LETT |u| (CAR #4#) . #5#) NIL))
                         (GO G191)))
                       (SEQ
                        (EXIT
                         (PROGN
                          (LETT #3#
                                (SPADCALL (QCAR |u|) (QCDR |u|)
                                          (QREFELT $ 161))
                                . #5#)
                          (COND
                           (#1#
                            (LETT #2# (SPADCALL #2# #3# (QREFELT $ 162))
                                  . #5#))
                           ('T
                            (PROGN
                             (LETT #2# #3# . #5#)
                             (LETT #1# 'T . #5#)))))))
                       (LETT #4# (CDR #4#) . #5#) (GO G190) G191 (EXIT NIL))
                  (COND (#1# #2#) ('T (|spadConstant| $ 152))))
                 (QREFELT $ 163))))))) 

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

(DEFUN |InnerMultFact;| (|#1| |#2| |#3| |#4|)
  (PROG (|pv$| $ |dv$| DV$4 DV$3 DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|InnerMultFact|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT DV$3 (|devaluate| |#3|) . #1#)
      (LETT DV$4 (|devaluate| |#4|) . #1#)
      (LETT |dv$| (LIST '|InnerMultFact| DV$1 DV$2 DV$3 DV$4) . #1#)
      (LETT $ (GETREFV 165) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|InnerMultFact|
                  (LIST DV$1 DV$2 DV$3 DV$4) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (QSETREFV $ 8 |#3|)
      (QSETREFV $ 9 |#4|)
      (QSETREFV $ 16
                (SPADCALL (SPADCALL (EXPT 2 26) (QREFELT $ 14))
                          (QREFELT $ 15)))
      $)))) 

(MAKEPROP '|InnerMultFact| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
              (|local| |#3|) (|local| |#4|) (|PositiveInteger|) (0 . ^)
              (|Integer|) (|IntegerPrimesPackage| 12) (6 . |prevPrime|)
              (11 . |coerce|) '|pmod| (|SparseUnivariatePolynomial| 9)
              (16 . |coerce|) (|Boolean|) (21 . |ground?|) (26 . |ground|)
              (|List| 9) (31 . |coefficients|) (|List| 6) (36 . |variables|)
              (41 . |setUnion|) (47 . |ground|)
              (|SparseUnivariatePolynomial| 8) (|Mapping| 8 9)
              (|UnivariatePolynomialCategoryFunctions2| 9 17 8 28) (52 . |map|)
              (|Factored| 28) (58 . |unit|) (63 . |retract|)
              (|Record| (|:| |factor| 28) (|:| |exponent| 12)) (|List| 35)
              (68 . |factors|) (73 . |coerce|) (|Mapping| 9 8)
              (|UnivariatePolynomialCategoryFunctions2| 8 28 9 17) (78 . |map|)
              (84 . |Zero|) (88 . |Zero|) (|NonNegativeInteger|)
              (92 . |minimumDegree|) (97 . |Zero|) (101 . |Zero|)
              (105 . |Zero|) (109 . |Zero|) (113 . |One|) (117 . |One|)
              (121 . |monomial|) (|Union| $ '"failed") (127 . |exquo|)
              (133 . |degree|)
              (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $))
              (138 . |unitNormal|) (|Factored| 17)
              (|MultivariateSquareFree| 7 6 8 9) (143 . |squareFree|)
              (148 . |unit|) (153 . *)
              (|Record| (|:| |factor| 17) (|:| |exponent| 12)) (|List| 63)
              (159 . |factors|) (164 . *) (170 . |degree|)
              (176 . |leadingCoefficient|) (181 . |ground?|)
              (186 . |leadingCoefficient|) (191 . ^) (197 . *) (203 . |exquo|)
              (209 . |primeFactor|) (215 . *) (221 . |One|) (225 . *)
              (|Mapping| 32 28) |INNMFACT;factor;SupMF;3| (231 . =) (237 . =)
              (243 . |degree|) (248 . |reductum|) (253 . |reductum|)
              (|SparseUnivariatePolynomial| $) (258 . |univariate|) (|List| 44)
              (264 . |position|) (270 . |elt|) (276 . |delete|)
              (282 . |delete|) (288 . |numberOfMonomials|)
              (293 . |coefficient|) (299 . =) (305 . |euclideanSize|)
              (|FactoringUtilities| 7 6 8 9) (310 . |ran|) (|List| 8)
              (|List| 98) (315 . |member?|) (321 . *) (327 . |eval|)
              (334 . |retract|) (339 . |unit?|) (344 . |completeEval|)
              (351 . |minimumDegree|) (356 . |content|) (361 . |exquo|)
              (|LeadingCoefDetermination| 6 7 8 9) (367 . |polCase|)
              (374 . |differentiate|) (|List| $) (379 . |gcd|)
              (384 . |position|) (390 . |elt|) (396 . |monomial|) (403 . *)
              (409 . |coerce|) (414 . |exquo|)
              (|Record| (|:| |polfac| 22) (|:| |correct| 8)
                        (|:| |corrfact| 122))
              (|Union| 120 '"failed") (|List| 28)
              (|Record| (|:| |irr| 9) (|:| |pow| 12))
              (|Record| (|:| |contp| 8) (|:| |factors| (|List| 123)))
              (420 . |distFact|) (430 . *) (436 . |unitNormal|) (441 . *)
              (|Union| 138 '"failed") (|MultivariateLifting| 7 6 8 9)
              (447 . |lifting|) (458 . |primitivePart|) (463 . ^) (469 . +)
              (475 . |elt|) (481 . |degree|) (|Mapping| 17 17) (|List| 17)
              (487 . |map|) (493 . |minimumDegree|) (|Factored| $)
              (499 . |squareFree|) (|Factored| 9) (504 . |unit|)
              (|Record| (|:| |factor| 9) (|:| |exponent| 12)) (|List| 145)
              (509 . |factors|) (514 . |degree|) (520 . |One|) (524 . |One|)
              (528 . |One|) (532 . |One|) (536 . |member?|) (542 . |gcd|)
              (547 . =) (553 . =) (559 . |exquo|) (565 . |multivariate|)
              (571 . |unitCanonical|) (576 . |unitCanonical|)
              (581 . |primeFactor|) (587 . *) (593 . *)
              |INNMFACT;factor;PMF;16|)
           '#(|factor| 599) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 164
                                                 '(2 10 0 0 10 11 1 13 12 12 14
                                                   1 8 0 12 15 1 17 0 9 18 1 17
                                                   19 0 20 1 17 9 0 21 1 17 22
                                                   0 23 1 9 24 0 25 2 24 0 0 0
                                                   26 1 9 8 0 27 2 30 28 29 17
                                                   31 1 32 28 0 33 1 28 8 0 34
                                                   1 32 36 0 37 1 9 0 8 38 2 40
                                                   17 39 28 41 0 7 0 42 0 8 0
                                                   43 1 17 44 0 45 0 9 0 46 0
                                                   17 0 47 0 28 0 48 0 32 0 49
                                                   0 8 0 50 0 9 0 51 2 17 0 9
                                                   44 52 2 17 53 0 0 54 1 17 44
                                                   0 55 1 17 56 0 57 1 59 58 17
                                                   60 1 58 17 0 61 2 17 0 0 0
                                                   62 1 58 64 0 65 2 9 0 8 0 66
                                                   2 9 44 0 6 67 1 17 9 0 68 1
                                                   9 19 0 69 1 9 8 0 70 2 8 0 0
                                                   44 71 2 8 0 0 0 72 2 8 53 0
                                                   0 73 2 58 0 17 12 74 2 58 0
                                                   0 0 75 0 58 0 76 2 58 0 17 0
                                                   77 2 17 19 0 0 80 2 28 19 0
                                                   0 81 1 28 44 0 82 1 17 0 0
                                                   83 1 28 0 0 84 2 9 85 0 6 86
                                                   2 87 12 44 0 88 2 24 6 0 12
                                                   89 2 87 0 0 12 90 2 24 0 0
                                                   12 91 1 28 44 0 92 2 28 8 0
                                                   44 93 2 8 19 0 0 94 1 8 44 0
                                                   95 1 96 8 12 97 2 99 19 98 0
                                                   100 2 44 0 10 0 101 3 9 0 0
                                                   24 98 102 1 9 8 0 103 1 8 19
                                                   0 104 3 96 28 17 24 98 105 1
                                                   28 44 0 106 1 28 8 0 107 2
                                                   28 53 0 8 108 3 109 19 8 44
                                                   98 110 1 28 0 0 111 1 28 0
                                                   112 113 2 24 12 6 0 114 2 87
                                                   44 0 12 115 3 9 0 0 6 44 116
                                                   2 9 0 0 0 117 1 9 0 6 118 2
                                                   9 53 0 0 119 6 109 121 8 122
                                                   124 98 24 98 125 2 28 0 8 0
                                                   126 1 8 56 0 127 2 17 0 9 0
                                                   128 7 130 129 17 24 122 98
                                                   22 87 8 131 1 17 0 0 132 2 9
                                                   0 0 44 133 2 17 0 0 0 134 2
                                                   17 0 0 0 135 2 96 87 17 24
                                                   136 2 138 0 137 0 139 2 9 87
                                                   0 24 140 1 9 141 0 142 1 143
                                                   9 0 144 1 143 146 0 147 2 9
                                                   87 0 24 148 0 17 0 149 0 28
                                                   0 150 0 32 0 151 0 143 0 152
                                                   2 87 19 44 0 153 1 9 0 112
                                                   154 2 6 19 0 0 155 2 9 19 0
                                                   0 156 2 17 53 0 9 157 2 9 0
                                                   85 6 158 1 17 0 0 159 1 9 0
                                                   0 160 2 143 0 9 12 161 2 143
                                                   0 0 0 162 2 143 0 9 0 163 2
                                                   0 58 17 78 79 2 0 143 9 78
                                                   164)))))
           '|lookupComplete|)) 
