
(/VERSIONCHECK 2) 

(DEFUN |DDFACT;ranpol| (|d| $)
  (PROG (|u| #1=#:G1814 |j| |k1|)
    (RETURN
     (SEQ (LETT |k1| 0 . #2=(|DDFACT;ranpol|))
          (SEQ G190 (COND ((NULL (EQL |k1| 0)) #3=(GO G191)))
               (SEQ (EXIT (LETT |k1| (RANDOM |d|) . #2#))) NIL #4=(GO G190)
               G191 (EXIT NIL))
          (EXIT
           (COND
            ((QREFELT $ 11)
             (SEQ (LETT |u| (|spadConstant| $ 13) . #2#)
                  (SEQ (LETT |j| 1 . #2#) G190
                       (COND ((QSGREATERP |j| |k1|) #3#))
                       (SEQ
                        (EXIT
                         (LETT |u|
                               (SPADCALL |u|
                                         (SPADCALL (SPADCALL (QREFELT $ 14))
                                                   |j| (QREFELT $ 15))
                                         (QREFELT $ 16))
                               . #2#)))
                       (LETT |j| (QSADD1 |j|) . #2#) #4# G191 (EXIT NIL))
                  (EXIT |u|)))
            ('T
             (SEQ
              (LETT |u| (SPADCALL (|spadConstant| $ 17) |k1| (QREFELT $ 15))
                    . #2#)
              (SEQ (LETT |j| 0 . #2#) (LETT #1# (- |k1| 1) . #2#) G190
                   (COND ((QSGREATERP |j| #1#) #3#))
                   (SEQ
                    (EXIT
                     (LETT |u|
                           (SPADCALL |u|
                                     (SPADCALL (SPADCALL (QREFELT $ 14)) |j|
                                               (QREFELT $ 15))
                                     (QREFELT $ 16))
                           . #2#)))
                   (LETT |j| (QSADD1 |j|) . #2#) #4# G191 (EXIT NIL))
              (EXIT |u|))))))))) 

(DEFUN |DDFACT;notSqFr| (|m| |appl| $)
  (PROG (|factlist| #1=#:G1849 |pf| #2=#:G1848 |fln| |pol| |lcp| |d1|
         #3=#:G1847 |lf| |llf| |lcm|)
    (RETURN
     (SEQ (LETT |factlist| NIL . #4=(|DDFACT;notSqFr|)) (LETT |fln| NIL . #4#)
          (SEQ (LETT |lcm| (SPADCALL |m| (QREFELT $ 19)) . #4#)
               (EXIT
                (COND
                 ((NULL (SPADCALL |lcm| (|spadConstant| $ 17) (QREFELT $ 21)))
                  (LETT |m|
                        (SPADCALL (SPADCALL |lcm| (QREFELT $ 22)) |m|
                                  (QREFELT $ 23))
                        . #4#)))))
          (LETT |llf| (SPADCALL (SPADCALL |m| (QREFELT $ 25)) (QREFELT $ 30))
                . #4#)
          (SEQ (LETT |lf| NIL . #4#) (LETT #3# |llf| . #4#) G190
               (COND
                ((OR (ATOM #3#) (PROGN (LETT |lf| (CAR #3#) . #4#) NIL))
                 #5=(GO G191)))
               (SEQ (LETT |d1| (QVELT |lf| 2) . #4#)
                    (LETT |pol| (QVELT |lf| 1) . #4#)
                    (SEQ (LETT |lcp| (SPADCALL |pol| (QREFELT $ 19)) . #4#)
                         (EXIT
                          (COND
                           ((NULL
                             (SPADCALL |lcp| (|spadConstant| $ 17)
                                       (QREFELT $ 21)))
                            (LETT |pol|
                                  (SPADCALL (SPADCALL |lcp| (QREFELT $ 22))
                                            |pol| (QREFELT $ 23))
                                  . #4#)))))
                    (EXIT
                     (COND
                      ((EQL (SPADCALL |pol| (QREFELT $ 31)) 1)
                       (LETT |factlist| (CONS (CONS |pol| |d1|) |factlist|)
                             . #4#))
                      ('T
                       (SEQ (LETT |fln| (SPADCALL |pol| |appl|) . #4#)
                            (EXIT
                             (LETT |factlist|
                                   (APPEND
                                    (PROGN
                                     (LETT #2# NIL . #4#)
                                     (SEQ (LETT |pf| NIL . #4#)
                                          (LETT #1# |fln| . #4#) G190
                                          (COND
                                           ((OR (ATOM #1#)
                                                (PROGN
                                                 (LETT |pf| (CAR #1#) . #4#)
                                                 NIL))
                                            #5#))
                                          (SEQ
                                           (EXIT
                                            (LETT #2#
                                                  (CONS (CONS |pf| |d1|) #2#)
                                                  . #4#)))
                                          (LETT #1# (CDR #1#) . #4#)
                                          #6=(GO G190) G191
                                          (EXIT (NREVERSE0 #2#))))
                                    |factlist|)
                                   . #4#)))))))
               (LETT #3# (CDR #3#) . #4#) #6# G191 (EXIT NIL))
          (EXIT |factlist|))))) 

(DEFUN |DDFACT;exptMod;FPNni2FP;3| (|u| |k| |v| $)
  (SPADCALL (SPADCALL (SPADCALL |u| (QREFELT $ 32)) |k| (QREFELT $ 33)) |v|
            (QREFELT $ 34))) 

(DEFUN |DDFACT;trace2PowMod;FPNni2FP;4| (|u| |k| |v| $)
  (PROG (|uu| |i|)
    (RETURN
     (SEQ (LETT |uu| |u| . #1=(|DDFACT;trace2PowMod;FPNni2FP;4|))
          (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |k|) (GO G191)))
               (SEQ
                (EXIT
                 (LETT |uu|
                       (SPADCALL
                        (SPADCALL |u| (SPADCALL |uu| |uu| (QREFELT $ 36))
                                  (QREFELT $ 16))
                        |v| (QREFELT $ 34))
                       . #1#)))
               (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
          (EXIT |uu|))))) 

(DEFUN |DDFACT;tracePowMod;FPNni2FP;5| (|u| |k| |v| $)
  (PROG (|uu| |i| |u1|)
    (RETURN
     (SEQ
      (LETT |u1| (SPADCALL |u| (QREFELT $ 32))
            . #1=(|DDFACT;tracePowMod;FPNni2FP;5|))
      (LETT |uu| |u1| . #1#)
      (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |k|) (GO G191)))
           (SEQ
            (EXIT
             (LETT |uu|
                   (SPADCALL |u1| (SPADCALL |uu| (QREFELT $ 38))
                             (QREFELT $ 39))
                   . #1#)))
           (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
      (EXIT (SPADCALL (SPADCALL |uu| (QREFELT $ 40)) |v| (QREFELT $ 34))))))) 

(DEFUN |DDFACT;normPowMod| (|u| |k| |v| $)
  (PROG (|uu| |i| |u1|)
    (RETURN
     (SEQ (LETT |u1| (SPADCALL |u| (QREFELT $ 32)) . #1=(|DDFACT;normPowMod|))
          (LETT |uu| |u1| . #1#)
          (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |k|) (GO G191)))
               (SEQ
                (EXIT
                 (LETT |uu|
                       (SPADCALL |u1| (SPADCALL |uu| (QREFELT $ 38))
                                 (QREFELT $ 42))
                       . #1#)))
               (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
          (EXIT
           (SPADCALL (SPADCALL |uu| (QREFELT $ 40)) |v| (QREFELT $ 34))))))) 

(DEFUN |DDFACT;ddffact1| (|m| |testirr| $)
  (PROG (#1=#:G1868 |du| |u| |ddfact| |g| |dg| |v| |k1| |mon| |p|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |p| (SPADCALL (QREFELT $ 43)) . #2=(|DDFACT;ddffact1|))
            (LETT |dg| 0 . #2#) (LETT |ddfact| NIL . #2#) (LETT |u| |m| . #2#)
            (LETT |du| (SPADCALL |u| (QREFELT $ 31)) . #2#)
            (SPADCALL |u| (QREFELT $ 44))
            (LETT |mon| (SPADCALL (|spadConstant| $ 17) 1 (QREFELT $ 15))
                  . #2#)
            (LETT |v| |mon| . #2#)
            (SEQ (LETT |k1| 1 . #2#) G190
                 (COND
                  ((NULL (COND ((< (QUOTIENT2 |du| 2) |k1|) 'NIL) ('T 'T)))
                   (GO G191)))
                 (SEQ
                  (LETT |v|
                        (SPADCALL
                         (SPADCALL (SPADCALL |v| (QREFELT $ 32))
                                   (QREFELT $ 38))
                         (QREFELT $ 40))
                        . #2#)
                  (LETT |g|
                        (SPADCALL (SPADCALL |v| |mon| (QREFELT $ 45)) |u|
                                  (QREFELT $ 46))
                        . #2#)
                  (LETT |dg| (SPADCALL |g| (QREFELT $ 31)) . #2#)
                  (EXIT
                   (COND ((EQL |dg| 0) "next k1")
                         ('T
                          (SEQ
                           (COND
                            ((NULL
                              (SPADCALL (SPADCALL |g| (QREFELT $ 19))
                                        (|spadConstant| $ 17) (QREFELT $ 21)))
                             (LETT |g|
                                   (SPADCALL
                                    (SPADCALL (SPADCALL |g| (QREFELT $ 19))
                                              (QREFELT $ 22))
                                    |g| (QREFELT $ 23))
                                   . #2#)))
                           (LETT |ddfact| (CONS (CONS |k1| |g|) |ddfact|)
                                 . #2#)
                           (EXIT
                            (COND
                             (|testirr|
                              (PROGN (LETT #1# |ddfact| . #2#) (GO #1#)))
                             ('T
                              (SEQ
                               (LETT |u| (SPADCALL |u| |g| (QREFELT $ 47))
                                     . #2#)
                               (LETT |du| (SPADCALL |u| (QREFELT $ 31)) . #2#)
                               (EXIT
                                (COND
                                 ((EQL |du| 0)
                                  (PROGN (LETT #1# |ddfact| . #2#) (GO #1#)))
                                 ('T (SPADCALL |u| (QREFELT $ 44))))))))))))))
                 (LETT |k1| (QSADD1 |k1|) . #2#) (GO G190) G191 (EXIT NIL))
            (EXIT (CONS (CONS |du| |u|) |ddfact|))))
      #1# (EXIT #1#))))) 

(DEFUN |DDFACT;irreducible?;FPB;8| (|m| $)
  (PROG (|mf|)
    (RETURN
     (SEQ
      (LETT |mf| (|SPADfirst| (|DDFACT;ddffact1| |m| 'T $))
            |DDFACT;irreducible?;FPB;8|)
      (EXIT (EQL (SPADCALL |m| (QREFELT $ 31)) (QCAR |mf|))))))) 

(DEFUN |DDFACT;separateDegrees;FPL;9| (|m| $) (|DDFACT;ddffact1| |m| 'NIL $)) 

(DEFUN |DDFACT;separateFactors;LL;10| (|distf| $)
  (PROG (|aux| |newaux| |ris| |v| |dg| |g| #1=#:G1888 |u| |t| #2=#:G1876
         #3=#:G1875 |d| |fprod| #4=#:G1887 |ffprod| |n1| |p1| |ddfact|)
    (RETURN
     (SEQ (LETT |ddfact| |distf| . #5=(|DDFACT;separateFactors;LL;10|))
          (LETT |p1| (SPADCALL (QREFELT $ 43)) . #5#)
          (COND ((QREFELT $ 11) (LETT |n1| (- (INTEGER-LENGTH |p1|) 1) . #5#)))
          (LETT |ris| NIL . #5#)
          (SEQ (LETT |ffprod| NIL . #5#) (LETT #4# |ddfact| . #5#) G190
               (COND
                ((OR (ATOM #4#) (PROGN (LETT |ffprod| (CAR #4#) . #5#) NIL))
                 #6=(GO G191)))
               (SEQ (LETT |fprod| (QCDR |ffprod|) . #5#)
                    (LETT |d| (QCAR |ffprod|) . #5#)
                    (EXIT
                     (COND
                      ((EQL (SPADCALL |fprod| (QREFELT $ 31)) |d|)
                       (LETT |ris| (CONS |fprod| |ris|) . #5#))
                      ('T
                       (SEQ (LETT |aux| (LIST |fprod|) . #5#)
                            (SPADCALL |fprod| (QREFELT $ 44))
                            (EXIT
                             (SEQ G190
                                  (COND
                                   ((NULL (COND ((NULL |aux|) 'NIL) ('T 'T)))
                                    #6#))
                                  (SEQ
                                   (LETT |t|
                                         (|DDFACT;ranpol|
                                          (SPADCALL 2 |d| (QREFELT $ 53)) $)
                                         . #5#)
                                   (COND
                                    ((QREFELT $ 11)
                                     (LETT |t|
                                           (SPADCALL |t|
                                                     (PROG1
                                                         (LETT #3#
                                                               (- (* |n1| |d|)
                                                                  1)
                                                               . #5#)
                                                       (|check-subtype|
                                                        (>= #3# 0)
                                                        '(|NonNegativeInteger|)
                                                        #3#))
                                                     |fprod| (QREFELT $ 37))
                                           . #5#))
                                    ('T
                                     (LETT |t|
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL |t|
                                                       (PROG1
                                                           (LETT #2# (- |d| 1)
                                                                 . #5#)
                                                         (|check-subtype|
                                                          (>= #2# 0)
                                                          '(|NonNegativeInteger|)
                                                          #2#))
                                                       |fprod| (QREFELT $ 41))
                                             (QUOTIENT2 |p1| 2) |fprod|
                                             (QREFELT $ 35))
                                            (|spadConstant| $ 18)
                                            (QREFELT $ 45))
                                           . #5#)))
                                   (LETT |newaux| NIL . #5#)
                                   (SEQ (LETT |u| NIL . #5#)
                                        (LETT #1# |aux| . #5#) G190
                                        (COND
                                         ((OR (ATOM #1#)
                                              (PROGN
                                               (LETT |u| (CAR #1#) . #5#)
                                               NIL))
                                          #6#))
                                        (SEQ
                                         (LETT |g|
                                               (SPADCALL |u| |t|
                                                         (QREFELT $ 46))
                                               . #5#)
                                         (LETT |dg|
                                               (SPADCALL |g| (QREFELT $ 31))
                                               . #5#)
                                         (COND
                                          ((OR (EQL |dg| 0)
                                               (EQL |dg|
                                                    (SPADCALL |u|
                                                              (QREFELT $ 31))))
                                           (EXIT
                                            (LETT |newaux| (CONS |u| |newaux|)
                                                  . #5#))))
                                         (LETT |v|
                                               (SPADCALL |u| |g|
                                                         (QREFELT $ 47))
                                               . #5#)
                                         (COND
                                          ((EQL |dg| |d|)
                                           (LETT |ris|
                                                 (CONS
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (SPADCALL |g|
                                                              (QREFELT $ 19))
                                                    (QREFELT $ 22))
                                                   |g| (QREFELT $ 23))
                                                  |ris|)
                                                 . #5#))
                                          ('T
                                           (LETT |newaux| (CONS |g| |newaux|)
                                                 . #5#)))
                                         (EXIT
                                          (COND
                                           ((EQL (SPADCALL |v| (QREFELT $ 31))
                                                 |d|)
                                            (LETT |ris|
                                                  (CONS
                                                   (SPADCALL
                                                    (SPADCALL
                                                     (SPADCALL |v|
                                                               (QREFELT $ 19))
                                                     (QREFELT $ 22))
                                                    |v| (QREFELT $ 23))
                                                   |ris|)
                                                  . #5#))
                                           ('T
                                            (LETT |newaux| (CONS |v| |newaux|)
                                                  . #5#)))))
                                        (LETT #1# (CDR #1#) . #5#) #7=(GO G190)
                                        G191 (EXIT NIL))
                                   (EXIT (LETT |aux| |newaux| . #5#)))
                                  NIL #7# G191 (EXIT NIL))))))))
               (LETT #4# (CDR #4#) . #5#) #7# G191 (EXIT NIL))
          (EXIT |ris|))))) 

(DEFUN |DDFACT;ddffact| (|m| $)
  (PROG (|ddfact|)
    (RETURN
     (SEQ (LETT |ddfact| (|DDFACT;ddffact1| |m| 'NIL $) |DDFACT;ddffact|)
          (EXIT
           (COND ((NULL |ddfact|) (LIST |m|))
                 ('T (SPADCALL |ddfact| (QREFELT $ 55))))))))) 

(DEFUN |DDFACT;distdfact;FPBR;12| (|m| |test| $)
  (PROG (|factlist| #1=#:G1905 |pol| #2=#:G1904 |fln| |d| |lcm|)
    (RETURN
     (SEQ (LETT |factlist| NIL . #3=(|DDFACT;distdfact;FPBR;12|))
          (LETT |fln| NIL . #3#)
          (SEQ (LETT |lcm| (SPADCALL |m| (QREFELT $ 19)) . #3#)
               (EXIT
                (COND
                 ((NULL (SPADCALL |lcm| (|spadConstant| $ 17) (QREFELT $ 21)))
                  (LETT |m|
                        (SPADCALL (SPADCALL |lcm| (QREFELT $ 22)) |m|
                                  (QREFELT $ 23))
                        . #3#)))))
          (SEQ (LETT |d| (SPADCALL |m| (QREFELT $ 56)) . #3#)
               (EXIT
                (COND
                 ((< 0 |d|)
                  (SEQ
                   (LETT |m|
                         (QCAR
                          (SPADCALL |m|
                                    (SPADCALL (|spadConstant| $ 17) |d|
                                              (QREFELT $ 15))
                                    (QREFELT $ 61)))
                         . #3#)
                   (EXIT
                    (LETT |factlist|
                          (LIST
                           (CONS
                            (SPADCALL (|spadConstant| $ 17) 1 (QREFELT $ 15))
                            |d|))
                          . #3#)))))))
          (LETT |d| (SPADCALL |m| (QREFELT $ 31)) . #3#)
          (EXIT
           (COND ((EQL |d| 0) (CONS |lcm| |factlist|))
                 ((EQL |d| 1) (CONS |lcm| (CONS (CONS |m| |d|) |factlist|)))
                 (|test|
                  (SEQ (LETT |fln| (|DDFACT;ddffact| |m| $) . #3#)
                       (LETT |factlist|
                             (APPEND
                              (PROGN
                               (LETT #2# NIL . #3#)
                               (SEQ (LETT |pol| NIL . #3#)
                                    (LETT #1# |fln| . #3#) G190
                                    (COND
                                     ((OR (ATOM #1#)
                                          (PROGN
                                           (LETT |pol| (CAR #1#) . #3#)
                                           NIL))
                                      (GO G191)))
                                    (SEQ
                                     (EXIT
                                      (LETT #2# (CONS (CONS |pol| 1) #2#)
                                            . #3#)))
                                    (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                                    (EXIT (NREVERSE0 #2#))))
                              |factlist|)
                             . #3#)
                       (EXIT (CONS |lcm| |factlist|))))
                 ('T
                  (SEQ
                   (LETT |factlist|
                         (APPEND
                          (|DDFACT;notSqFr| |m|
                           (CONS (|function| |DDFACT;ddffact|) $) $)
                          |factlist|)
                         . #3#)
                   (EXIT (CONS |lcm| |factlist|)))))))))) 

(DEFUN |DDFACT;factor;FPF;13| (|m| $)
  (PROG (#1=#:G1917 |u| #2=#:G1916 |flist|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |m| (|spadConstant| $ 13) (QREFELT $ 65))
        (|spadConstant| $ 66))
       ('T
        (SEQ
         (LETT |flist| (SPADCALL |m| 'NIL (QREFELT $ 64))
               . #3=(|DDFACT;factor;FPF;13|))
         (EXIT
          (SPADCALL (SPADCALL (QCAR |flist|) (QREFELT $ 67))
                    (PROGN
                     (LETT #2# NIL . #3#)
                     (SEQ (LETT |u| NIL . #3#) (LETT #1# (QCDR |flist|) . #3#)
                          G190
                          (COND
                           ((OR (ATOM #1#)
                                (PROGN (LETT |u| (CAR #1#) . #3#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #2#
                                  (CONS
                                   (VECTOR (CONS 3 "prime") (QCAR |u|)
                                           (QCDR |u|))
                                   #2#)
                                  . #3#)))
                          (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                          (EXIT (NREVERSE0 #2#))))
                    (QREFELT $ 70)))))))))) 

(DEFUN |DDFACT;factorSquareFree;FPF;14| (|m| $)
  (PROG (#1=#:G1929 |u| #2=#:G1928 |flist|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |m| (|spadConstant| $ 13) (QREFELT $ 65))
        (|spadConstant| $ 66))
       ('T
        (SEQ
         (LETT |flist| (SPADCALL |m| 'T (QREFELT $ 64))
               . #3=(|DDFACT;factorSquareFree;FPF;14|))
         (EXIT
          (SPADCALL (SPADCALL (QCAR |flist|) (QREFELT $ 67))
                    (PROGN
                     (LETT #2# NIL . #3#)
                     (SEQ (LETT |u| NIL . #3#) (LETT #1# (QCDR |flist|) . #3#)
                          G190
                          (COND
                           ((OR (ATOM #1#)
                                (PROGN (LETT |u| (CAR #1#) . #3#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #2#
                                  (CONS
                                   (VECTOR (CONS 3 "prime") (QCAR |u|)
                                           (QCDR |u|))
                                   #2#)
                                  . #3#)))
                          (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                          (EXIT (NREVERSE0 #2#))))
                    (QREFELT $ 70)))))))))) 

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

(DEFUN |DistinctDegreeFactorize;| (|#1| |#2|)
  (PROG (|pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|DistinctDegreeFactorize|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT |dv$| (LIST '|DistinctDegreeFactorize| DV$1 DV$2) . #1#)
      (LETT $ (GETREFV 73) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|DistinctDegreeFactorize|
                  (LIST DV$1 DV$2) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (QSETREFV $ 8 (|ModMonic| |#1| |#2|))
      (QSETREFV $ 11 (EQL (SPADCALL (QREFELT $ 10)) 2))
      $)))) 

(MAKEPROP '|DistinctDegreeFactorize| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) 'D
              (|NonNegativeInteger|) (0 . |characteristic|) '|charF|
              (4 . |Zero|) (8 . |Zero|) (12 . |random|) (16 . |monomial|)
              (22 . +) (28 . |One|) (32 . |One|) (36 . |leadingCoefficient|)
              (|Boolean|) (41 . =) (47 . |inv|) (52 . *) (|Factored| $)
              (58 . |squareFree|) (|Union| '"nil" '"sqfr" '"irred" '"prime")
              (|Record| (|:| |flg| 26) (|:| |fctr| 7) (|:| |xpnt| (|Integer|)))
              (|List| 27) (|Factored| 7) (63 . |factorList|) (68 . |degree|)
              (73 . |reduce|) (78 . ^) (84 . |rem|) |DDFACT;exptMod;FPNni2FP;3|
              (90 . *) |DDFACT;trace2PowMod;FPNni2FP;4| (96 . |frobenius|)
              (101 . +) (107 . |lift|) |DDFACT;tracePowMod;FPNni2FP;5|
              (112 . *) (118 . |size|) (122 . |setPoly|) (127 . -)
              (133 . |gcd|) (139 . |quo|) |DDFACT;irreducible?;FPB;8|
              (|Record| (|:| |deg| 9) (|:| |prod| 7)) (|List| 49)
              |DDFACT;separateDegrees;FPL;9| (|PositiveInteger|) (145 . *)
              (|List| 7) |DDFACT;separateFactors;LL;10| (151 . |minimumDegree|)
              (156 . |Zero|) (|Fraction| (|Integer|)) (160 . |Zero|)
              (|Record| (|:| |quotient| $) (|:| |remainder| $))
              (164 . |monicDivide|)
              (|Record| (|:| |irr| 7) (|:| |pow| (|Integer|)))
              (|Record| (|:| |cont| 6) (|:| |factors| (|List| 62)))
              |DDFACT;distdfact;FPBR;12| (170 . =) (176 . |Zero|)
              (180 . |coerce|) (|PrimitiveArray| $) (185 . |pow|)
              (189 . |makeFR|) |DDFACT;factor;FPF;13|
              |DDFACT;factorSquareFree;FPF;14|)
           '#(|tracePowMod| 195 |trace2PowMod| 202 |separateFactors| 209
              |separateDegrees| 214 |irreducible?| 219 |factorSquareFree| 224
              |factor| 229 |exptMod| 234 |distdfact| 241)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 72
                                                 '(0 6 9 10 0 6 0 12 0 7 0 13 0
                                                   6 0 14 2 7 0 6 9 15 2 7 0 0
                                                   0 16 0 6 0 17 0 7 0 18 1 7 6
                                                   0 19 2 6 20 0 0 21 1 6 0 0
                                                   22 2 7 0 6 0 23 1 7 24 0 25
                                                   1 29 28 0 30 1 7 9 0 31 1 8
                                                   0 7 32 2 8 0 0 9 33 2 7 0 0
                                                   0 34 2 7 0 0 0 36 1 8 0 0 38
                                                   2 8 0 0 0 39 1 8 7 0 40 2 8
                                                   0 0 0 42 0 6 9 43 1 8 7 7 44
                                                   2 7 0 0 0 45 2 7 0 0 0 46 2
                                                   7 0 0 0 47 2 9 0 52 0 53 1 7
                                                   9 0 56 0 8 0 57 0 58 0 59 2
                                                   7 60 0 0 61 2 7 20 0 0 65 0
                                                   29 0 66 1 7 0 6 67 0 8 68 69
                                                   2 29 0 7 28 70 3 0 7 7 9 7
                                                   41 3 0 7 7 9 7 37 1 0 54 50
                                                   55 1 0 50 7 51 1 0 20 7 48 1
                                                   0 29 7 72 1 0 29 7 71 3 0 7
                                                   7 9 7 35 2 0 63 7 20 64)))))
           '|lookupComplete|)) 
