
(/VERSIONCHECK 2) 

(DEFUN |FFP;generator;$;1| ($)
  (SPADCALL (SPADCALL (|spadConstant| $ 32) 1 (QREFELT $ 33)) (QREFELT $ 34))) 

(DEFUN |FFP;norm;$GF;2| (|x| $)
  (SPADCALL (QREFELT $ 7) (SPADCALL |x| (QREFELT $ 36)) (QREFELT $ 37))) 

(DEFUN |FFP;basis;PiV;3| (|n| $)
  (PROG (#1=#:G1829 |i| #2=#:G1828 |a|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL (REMAINDER2 (QREFELT $ 12) |n|) 0 (QREFELT $ 40))
        (|error| "argument must divide extension degree"))
       ('T
        (SEQ
         (LETT |a| (SPADCALL (SPADCALL (QREFELT $ 41)) |n| (QREFELT $ 42))
               . #3=(|FFP;basis;PiV;3|))
         (EXIT
          (SPADCALL
           (PROGN
            (LETT #2# NIL . #3#)
            (SEQ (LETT |i| 0 . #3#) (LETT #1# (- |n| 1) . #3#) G190
                 (COND ((QSGREATERP |i| #1#) (GO G191)))
                 (SEQ
                  (EXIT
                   (LETT #2# (CONS (SPADCALL |a| |i| (QREFELT $ 43)) #2#)
                         . #3#)))
                 (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191
                 (EXIT (NREVERSE #2#))))
           (QREFELT $ 46)))))))))) 

(DEFUN |FFP;degree;$Pi;4| (|x| $)
  (PROG (#1=#:G1833 |y| #2=#:G1836 |i| |m|)
    (RETURN
     (SEQ (LETT |y| (|spadConstant| $ 31) . #3=(|FFP;degree;$Pi;4|))
          (LETT |m|
                (SPADCALL (QREFELT $ 12) (+ (QREFELT $ 12) 1) (QREFELT $ 50))
                . #3#)
          (SEQ (LETT |i| 1 . #3#) (LETT #2# (+ (QREFELT $ 12) 1) . #3#) G190
               (COND ((QSGREATERP |i| #2#) (GO G191)))
               (SEQ
                (SPADCALL |m| |i| (SPADCALL |y| (QREFELT $ 52)) (QREFELT $ 54))
                (EXIT (LETT |y| (SPADCALL |y| |x| (QREFELT $ 55)) . #3#)))
               (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191 (EXIT NIL))
          (EXIT
           (PROG1 (LETT #1# (SPADCALL |m| (QREFELT $ 57)) . #3#)
             (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))))))) 

(DEFUN |FFP;minimalPolynomial;$Sup;5| (|x| $)
  (PROG (#1=#:G1840 #2=#:G1839 #3=#:G1841 #4=#:G1845 |i| |v| |y| #5=#:G1844
         |m|)
    (RETURN
     (SEQ
      (LETT |y| (|spadConstant| $ 31) . #6=(|FFP;minimalPolynomial;$Sup;5|))
      (LETT |m| (SPADCALL (QREFELT $ 12) (+ (QREFELT $ 12) 1) (QREFELT $ 50))
            . #6#)
      (SEQ (LETT |i| 1 . #6#) (LETT #5# (+ (QREFELT $ 12) 1) . #6#) G190
           (COND ((QSGREATERP |i| #5#) (GO G191)))
           (SEQ (SPADCALL |m| |i| (SPADCALL |y| (QREFELT $ 52)) (QREFELT $ 54))
                (EXIT (LETT |y| (SPADCALL |y| |x| (QREFELT $ 55)) . #6#)))
           (LETT |i| (QSADD1 |i|) . #6#) (GO G190) G191 (EXIT NIL))
      (LETT |v| (|SPADfirst| (SPADCALL |m| (QREFELT $ 60))) . #6#)
      (EXIT
       (PROGN
        (LETT #1# NIL . #6#)
        (SEQ (LETT |i| 0 . #6#) (LETT #4# (QREFELT $ 12) . #6#) G190
             (COND ((QSGREATERP |i| #4#) (GO G191)))
             (SEQ
              (EXIT
               (PROGN
                (LETT #3#
                      (SPADCALL (SPADCALL |v| (+ |i| 1) (QREFELT $ 61)) |i|
                                (QREFELT $ 33))
                      . #6#)
                (COND (#1# (LETT #2# (SPADCALL #2# #3# (QREFELT $ 62)) . #6#))
                      ('T (PROGN (LETT #2# #3# . #6#) (LETT #1# 'T . #6#)))))))
             (LETT |i| (QSADD1 |i|) . #6#) (GO G190) G191 (EXIT NIL))
        (COND (#1# #2#) ('T (|spadConstant| $ 63))))))))) 

(DEFUN |FFP;normal?;$B;6| (|x| $)
  (PROG (|l| |a| #1=#:G1858 |i|)
    (RETURN
     (SEQ
      (LETT |l| (LIST (SPADCALL (SPADCALL |x| (QREFELT $ 52)) (QREFELT $ 66)))
            . #2=(|FFP;normal?;$B;6|))
      (LETT |a| |x| . #2#)
      (SEQ (LETT |i| 2 . #2#) (LETT #1# (QREFELT $ 12) . #2#) G190
           (COND ((QSGREATERP |i| #1#) (GO G191)))
           (SEQ (LETT |a| (SPADCALL |a| (QREFELT $ 67)) . #2#)
                (EXIT
                 (LETT |l|
                       (SPADCALL |l|
                                 (SPADCALL (SPADCALL |a| (QREFELT $ 52))
                                           (QREFELT $ 66))
                                 (QREFELT $ 69))
                       . #2#)))
           (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191 (EXIT NIL))
      (EXIT
       (COND
        ((EQL (SPADCALL (SPADCALL |l| (QREFELT $ 70)) (QREFELT $ 57))
              (QREFELT $ 12))
         'T)
        ('T 'NIL))))))) 

(DEFUN |FFP;*;GF2$;7| (|a| |x| $) (SPADCALL |a| |x| (QREFELT $ 74))) 

(DEFUN |FFP;*;I2$;8| (|n| |x| $) (SPADCALL |n| |x| (QREFELT $ 76))) 

(DEFUN |FFP;-;2$;9| (|x| $) (SPADCALL |x| (QREFELT $ 78))) 

(DEFUN |FFP;random;$;10| ($) (SPADCALL (QREFELT $ 80))) 

(DEFUN |FFP;coordinates;$V;11| (|x| $) (SPADCALL |x| (QREFELT $ 82))) 

(DEFUN |FFP;represents;V$;12| (|v| $) (SPADCALL |v| (QREFELT $ 83))) 

(DEFUN |FFP;coerce;GF$;13| (|x| $) (SPADCALL |x| (QREFELT $ 85))) 

(DEFUN |FFP;definingPolynomial;Sup;14| ($) (QREFELT $ 7)) 

(DEFUN |FFP;retract;$GF;15| (|x| $) (SPADCALL |x| (QREFELT $ 88))) 

(DEFUN |FFP;retractIfCan;$U;16| (|x| $) (SPADCALL |x| (QREFELT $ 91))) 

(DEFUN |FFP;index;Pi$;17| (|x| $) (SPADCALL |x| (QREFELT $ 93))) 

(DEFUN |FFP;lookup;$Pi;18| (|x| $) (SPADCALL |x| (QREFELT $ 95))) 

(DEFUN |FFP;/;3$;19| (|x| |y| $) (SPADCALL |x| |y| (QREFELT $ 97))) 

(DEFUN |FFP;/;$GF$;20| (|x| |a| $)
  (SPADCALL |x| (SPADCALL |a| (QREFELT $ 86)) (QREFELT $ 98))) 

(DEFUN |FFP;*;3$;21| (|x| |y| $) (SPADCALL |x| |y| (QREFELT $ 100))) 

(DEFUN |FFP;+;3$;22| (|x| |y| $) (SPADCALL |x| |y| (QREFELT $ 101))) 

(DEFUN |FFP;-;3$;23| (|x| |y| $) (SPADCALL |x| |y| (QREFELT $ 103))) 

(DEFUN |FFP;=;2$B;24| (|x| |y| $) (SPADCALL |x| |y| (QREFELT $ 105))) 

(DEFUN |FFP;basis;V;25| ($) (SPADCALL (QREFELT $ 107))) 

(DEFUN |FFP;Zero;$;26| ($) (|spadConstant| $ 109)) 

(DEFUN |FFP;One;$;27| ($) (|spadConstant| $ 111)) 

(DEFUN |FFP;factorsOfCyclicGroupSize;L;28| ($)
  (SEQ (COND ((NULL (QREFELT $ 22)) (|FFP;initializeElt| $)))
       (EXIT (QREFELT $ 22)))) 

(PUT '|FFP;representationType;U;29| '|SPADreplace|
     '(XLAM NIL (CONS 1 "polynomial"))) 

(DEFUN |FFP;representationType;U;29| ($) (CONS 1 "polynomial")) 

(DEFUN |FFP;tableForDiscreteLogarithm;IT;30| (|fac| $)
  (PROG (|tbl| #1=#:G1900)
    (RETURN
     (SEQ (COND ((QREFELT $ 25) (|FFP;initializeLog| $)))
          (LETT |tbl|
                (SPADCALL
                 (PROG1
                     (LETT #1# |fac|
                           . #2=(|FFP;tableForDiscreteLogarithm;IT;30|))
                   (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))
                 (QREFELT $ 29) (QREFELT $ 118))
                . #2#)
          (EXIT
           (COND
            ((QEQCAR |tbl| 1)
             (|error|
              "tableForDiscreteLogarithm: argument must be prime divisor of the order of the multiplicative group"))
            ('T (QCDR |tbl|)))))))) 

(DEFUN |FFP;primitiveElement;$;31| ($)
  (SEQ (COND ((QREFELT $ 26) (|FFP;initializeElt| $)))
       (EXIT (SPADCALL (QREFELT $ 24) (QREFELT $ 94))))) 

(DEFUN |FFP;normalElement;$;32| ($)
  (SEQ (COND ((QREFELT $ 26) (|FFP;initializeElt| $)))
       (EXIT (SPADCALL (QREFELT $ 23) (QREFELT $ 94))))) 

(DEFUN |FFP;initializeElt| ($)
  (PROG (|nElt| |pE|)
    (RETURN
     (SEQ
      (SETELT $ 22
              (SPADCALL (SPADCALL (QREFELT $ 21) (QREFELT $ 123))
                        (QREFELT $ 125)))
      (LETT |pE| (SPADCALL (QREFELT $ 126)) . #1=(|FFP;initializeElt|))
      (SETELT $ 24 (SPADCALL |pE| (QREFELT $ 96)))
      (LETT |nElt| (SPADCALL (QREFELT $ 35)) . #1#)
      (SEQ G190
           (COND
            ((NULL (COND ((SPADCALL |nElt| (QREFELT $ 73)) 'NIL) ('T 'T)))
             (GO G191)))
           (SEQ
            (EXIT (LETT |nElt| (SPADCALL |nElt| |pE| (QREFELT $ 55)) . #1#)))
           NIL (GO G190) G191 (EXIT NIL))
      (SETELT $ 23 (SPADCALL |nElt| (QREFELT $ 96))) (SETELT $ 26 'NIL)
      (EXIT (SPADCALL (QREFELT $ 128))))))) 

(DEFUN |FFP;initializeLog| ($)
  (PROG (#1=#:G1931 |a| #2=#:G1937 #3=#:G1925 |i| |tbl| |n| |d| |l| |base|
         |fac| #4=#:G1936 |f| |limit|)
    (RETURN
     (SEQ (COND ((QREFELT $ 26) (|FFP;initializeElt| $)))
          (LETT |limit| 30 . #5=(|FFP;initializeLog|))
          (SEQ (LETT |f| NIL . #5#) (LETT #4# (QREFELT $ 22) . #5#) G190
               (COND
                ((OR (ATOM #4#) (PROGN (LETT |f| (CAR #4#) . #5#) NIL))
                 (GO G191)))
               (SEQ (LETT |fac| (QCAR |f|) . #5#)
                    (LETT |base|
                          (SPADCALL (SPADCALL (QREFELT $ 41))
                                    (QUOTIENT2 (QREFELT $ 21) |fac|)
                                    (QREFELT $ 129))
                          . #5#)
                    (LETT |l| (INTEGER-LENGTH |fac|) . #5#) (LETT |n| 0 . #5#)
                    (COND
                     ((ODDP |l|)
                      (LETT |n| (ASH |fac| (- (QUOTIENT2 |l| 2))) . #5#))
                     ('T (LETT |n| (ASH 1 (QUOTIENT2 |l| 2)) . #5#)))
                    (COND
                     ((< |n| |limit|)
                      (SEQ
                       (LETT |d| (+ (QUOTIENT2 (- |fac| 1) |limit|) 1) . #5#)
                       (EXIT
                        (LETT |n| (+ (QUOTIENT2 (- |fac| 1) |d|) 1) . #5#)))))
                    (LETT |tbl| (SPADCALL (QREFELT $ 130)) . #5#)
                    (LETT |a| (|spadConstant| $ 31) . #5#)
                    (SEQ (LETT |i| 0 . #5#)
                         (LETT #2#
                               (PROG1 (LETT #3# (- |n| 1) . #5#)
                                 (|check-subtype| (>= #3# 0)
                                                  '(|NonNegativeInteger|) #3#))
                               . #5#)
                         G190 (COND ((QSGREATERP |i| #2#) (GO G191)))
                         (SEQ
                          (SPADCALL (CONS (SPADCALL |a| (QREFELT $ 96)) |i|)
                                    |tbl| (QREFELT $ 132))
                          (EXIT
                           (LETT |a| (SPADCALL |a| |base| (QREFELT $ 55))
                                 . #5#)))
                         (LETT |i| (QSADD1 |i|) . #5#) (GO G190) G191
                         (EXIT NIL))
                    (EXIT
                     (SPADCALL
                      (CONS
                       (PROG1 (LETT #1# |fac| . #5#)
                         (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))
                       (SPADCALL |tbl| (QREFELT $ 133)))
                      (QREFELT $ 29) (QREFELT $ 135))))
               (LETT #4# (CDR #4#) . #5#) (GO G190) G191 (EXIT NIL))
          (SETELT $ 25 'NIL) (EXIT (SPADCALL (QREFELT $ 128))))))) 

(DEFUN |FFP;coerce;$Of;35| (|e| $)
  (SPADCALL (SPADCALL |e| (QREFELT $ 36)) (QREFELT $ 17) (QREFELT $ 136))) 

(DEFUN |FFP;extensionDegree;Pi;36| ($) (QREFELT $ 12)) 

(DEFUN |FFP;size;Nni;37| ($) (+ (QREFELT $ 21) 1)) 

(DEFUN |FFP;inGroundField?;$B;38| (|x| $)
  (COND
   ((SPADCALL (SPADCALL |x| (QREFELT $ 92)) (CONS 1 "failed") (QREFELT $ 140))
    'NIL)
   ('T 'T))) 

(DEFUN |FFP;characteristic;Nni;39| ($) (SPADCALL (QREFELT $ 142))) 

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

(DEFUN |FiniteFieldExtensionByPolynomial;| (|#1| |#2|)
  (PROG (|pv$| #1=#:G1974 $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #2=(|FiniteFieldExtensionByPolynomial|))
      (LETT DV$2 (|devaluate| |#2|) . #2#)
      (LETT |dv$| (LIST '|FiniteFieldExtensionByPolynomial| DV$1 DV$2) . #2#)
      (LETT $ (GETREFV 164) . #2#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (|HasCategory| |#1|
                                                         '(|CharacteristicZero|))
                                          (LETT #1#
                                                (|HasCategory| |#1|
                                                               '(|Finite|))
                                                . #2#)
                                          (OR
                                           (|HasCategory| |#1|
                                                          '(|CharacteristicNonZero|))
                                           #1#)))
                      . #2#))
      (|haddProp| |$ConstructorCache| '|FiniteFieldExtensionByPolynomial|
                  (LIST DV$1 DV$2) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (SETF |pv$| (QREFELT $ 3))
      (QSETREFV $ 8
                (|SimpleAlgebraicExtension| |#1|
                                            (|SparseUnivariatePolynomial| |#1|)
                                            |#2|))
      (QSETREFV $ 12 (SPADCALL |#2| (QREFELT $ 11)))
      (QSETREFV $ 17 (SPADCALL (SPADCALL (QREFELT $ 14)) (QREFELT $ 16)))
      (QSETREFV $ 21
                (-
                 (SPADCALL (SPADCALL (QREFELT $ 18)) (QREFELT $ 12)
                           (QREFELT $ 20))
                 1))
      (QSETREFV $ 22 NIL)
      (QSETREFV $ 23 1)
      (QSETREFV $ 24 1)
      (QSETREFV $ 25 'T)
      (QSETREFV $ 26 'T)
      (QSETREFV $ 29 (SPADCALL (QREFELT $ 28)))
      $)))) 

(MAKEPROP '|FiniteFieldExtensionByPolynomial| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) '|Rep|
              (|NonNegativeInteger|) (|SparseUnivariatePolynomial| 6)
              (0 . |degree|) '|extdeg| (|Symbol|) (5 . |new|) (|OutputForm|)
              (9 . |coerce|) '|alpha| (14 . |size|) (|PositiveInteger|)
              (18 . ^) '|sizeCG| '|facOfGroupSize| '|normalElt| '|primitiveElt|
              '|initlog?| '|initelt?| (|Table| 19 119) (24 . |table|)
              '|discLogTable| (28 . |One|)
              (CONS IDENTITY (FUNCALL (|dispatchFunction| |FFP;One;$;27|) $))
              (32 . |One|) (36 . |monomial|) (42 . |reduce|)
              |FFP;generator;$;1| (47 . |lift|) (52 . |resultant|)
              |FFP;norm;$GF;2| (|Boolean|) (58 . ~=)
              |FFP;primitiveElement;$;31| (64 . |norm|) (70 . ^) (|List| $$)
              (|Vector| $$) (76 . |vector|) (|Vector| $) |FFP;basis;PiV;3|
              (|Matrix| 6) (81 . |zero|) (|Vector| 6) |FFP;coordinates;$V;11|
              (|Integer|) (87 . |setColumn!|) |FFP;*;3$;21| (94 . |rank|)
              (98 . |rank|) |FFP;degree;$Pi;4| (|List| 51) (103 . |nullSpace|)
              (108 . |elt|) (114 . +) (120 . |Zero|)
              |FFP;minimalPolynomial;$Sup;5| (|List| 6) (124 . |entries|)
              (129 . |Frobenius|) (|List| 65) (134 . |concat|) (140 . |matrix|)
              (|SimpleAlgebraicExtension| 6 10 7) (145 . |rank|)
              |FFP;normal?;$B;6| (149 . *) |FFP;*;GF2$;7| (155 . *)
              |FFP;*;I2$;8| (161 . -) |FFP;-;2$;9| (166 . |random|)
              |FFP;random;$;10| (170 . |coordinates|) (175 . |represents|)
              |FFP;represents;V$;12| (180 . |coerce|) |FFP;coerce;GF$;13|
              |FFP;definingPolynomial;Sup;14| (185 . |retract|)
              |FFP;retract;$GF;15| (|Union| 6 '"failed") (190 . |retractIfCan|)
              |FFP;retractIfCan;$U;16| (195 . |index|) |FFP;index;Pi$;17|
              (200 . |lookup|) |FFP;lookup;$Pi;18| (205 . /) |FFP;/;3$;19|
              |FFP;/;$GF$;20| (211 . *) (217 . +) |FFP;+;3$;22| (223 . -)
              |FFP;-;3$;23| (229 . =) |FFP;=;2$B;24| (235 . |basis|)
              |FFP;basis;V;25| (239 . |Zero|)
              (CONS IDENTITY (FUNCALL (|dispatchFunction| |FFP;Zero;$;26|) $))
              (243 . |One|) (|Record| (|:| |factor| 53) (|:| |exponent| 53))
              (|List| 112) |FFP;factorsOfCyclicGroupSize;L;28|
              (|Union| '"prime" '"polynomial" '"normal" '"cyclic")
              |FFP;representationType;U;29| (|Union| 119 '"failed")
              (247 . |search|) (|Table| 19 9)
              |FFP;tableForDiscreteLogarithm;IT;30| |FFP;normalElement;$;32|
              (|Factored| $) (253 . |factor|) (|Factored| 53) (258 . |factors|)
              (263 . |createPrimitiveElement|) (|Void|) (267 . |void|)
              (271 . ^) (277 . |table|)
              (|Record| (|:| |key| 19) (|:| |entry| 9)) (281 . |insert!|)
              (287 . |copy|) (|Record| (|:| |key| 19) (|:| |entry| 119))
              (292 . |insert!|) (298 . |outputForm|) |FFP;coerce;$Of;35|
              |FFP;extensionDegree;Pi;36| |FFP;size;Nni;37| (304 . =)
              |FFP;inGroundField?;$B;38| (310 . |characteristic|)
              |FFP;characteristic;Nni;39| (|Union| $ '"failed")
              (|Union| 9 '"failed") (|OnePointCompletion| 19) (|List| $)
              (|InputForm|) (|Union| 47 '"failed") (|Matrix| $)
              (|Union| 10 '"failed") (|SparseUnivariatePolynomial| $)
              (|CardinalNumber|) (|Fraction| 53)
              (|Record| (|:| |coef1| $) (|:| |coef2| $))
              (|Union| 155 '#1="failed") (|Union| 147 '#1#)
              (|Record| (|:| |coef1| $) (|:| |coef2| $) (|:| |generator| $))
              (|Record| (|:| |quotient| $) (|:| |remainder| $))
              (|Record| (|:| |coef| 147) (|:| |generator| $))
              (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $))
              (|String|) (|SingleInteger|))
           '#(~= 314 |zero?| 320 |unitNormal| 325 |unitCanonical| 330 |unit?|
              335 |transcendent?| 340 |transcendenceDegree| 345 |trace| 349
              |tableForDiscreteLogarithm| 360 |subtractIfCan| 365
              |squareFreePart| 371 |squareFree| 376 |sizeLess?| 381 |size| 387
              |sample| 391 |retractIfCan| 395 |retract| 400 |represents| 405
              |representationType| 410 |rem| 414 |recip| 420 |random| 425 |quo|
              429 |principalIdeal| 435 |primitiveElement| 440 |primitive?| 444
              |primeFrobenius| 449 |prime?| 460 |order| 465 |one?| 475
              |normalElement| 480 |normal?| 484 |norm| 489 |nextItem| 500
              |multiEuclidean| 505 |minimalPolynomial| 511 |lookup| 522
              |linearAssociatedOrder| 527 |linearAssociatedLog| 532
              |linearAssociatedExp| 543 |lcm| 549 |latex| 560 |inv| 565 |init|
              570 |index| 574 |inGroundField?| 579 |hash| 584 |generator| 589
              |gcdPolynomial| 593 |gcd| 599 |factorsOfCyclicGroupSize| 610
              |factor| 614 |extensionDegree| 619 |extendedEuclidean| 627
              |exquo| 640 |expressIdealMember| 646 |euclideanSize| 652
              |enumerate| 657 |divide| 661 |discreteLog| 667 |dimension| 678
              |differentiate| 682 |degree| 693 |definingPolynomial| 703
              |createPrimitiveElement| 707 |createNormalElement| 711
              |coordinates| 715 |convert| 725 |conditionP| 730 |coerce| 735
              |charthRoot| 760 |characteristic| 770 |basis| 774 |associates?|
              783 |algebraic?| 789 ^ 794 |Zero| 812 |One| 816 |Frobenius| 820 D
              831 = 842 / 848 - 860 + 871 * 877)
           'NIL
           (CONS
            (|makeByteWordVec2| 3
                                '(0 0 2 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 1 2 0
                                  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 0 0 0
                                  0 0 0 0 0 0 2))
            (CONS
             '#(|FiniteAlgebraicExtensionField&| |ExtensionField&|
                |FiniteFieldCategory&| |FieldOfPrimeCharacteristic&| |Field&|
                |EuclideanDomain&| NIL |UniqueFactorizationDomain&|
                |GcdDomain&| |DivisionRing&| |IntegralDomain&| |VectorSpace&|
                |Algebra&| |Algebra&| |Module&| |Module&| NIL NIL |Module&| NIL
                NIL |DifferentialRing&| NIL NIL NIL |Ring&| NIL NIL NIL NIL NIL
                NIL NIL |AbelianGroup&| NIL NIL |AbelianMonoid&| |Monoid&| NIL
                |SemiGroup&| |AbelianSemiGroup&| |Finite&| NIL |SetCategory&|
                |RetractableTo&| NIL NIL NIL NIL NIL |BasicType&| NIL NIL)
             (CONS
              '#((|FiniteAlgebraicExtensionField| 6) (|ExtensionField| 6)
                 (|FiniteFieldCategory|) (|FieldOfPrimeCharacteristic|)
                 (|Field|) (|EuclideanDomain|) (|PrincipalIdealDomain|)
                 (|UniqueFactorizationDomain|) (|GcdDomain|) (|DivisionRing|)
                 (|IntegralDomain|) (|VectorSpace| 6) (|Algebra| 154)
                 (|Algebra| $$) (|Module| 6) (|Module| 154) (|EntireRing|)
                 (|CommutativeRing|) (|Module| $$) (|CharacteristicNonZero|)
                 (|CharacteristicZero|) (|DifferentialRing|) (|BiModule| 6 6)
                 (|BiModule| 154 154) (|BiModule| $$ $$) (|Ring|)
                 (|RightModule| 6) (|LeftModule| 6) (|RightModule| 154)
                 (|LeftModule| 154) (|LeftModule| $$) (|Rng|)
                 (|RightModule| $$) (|AbelianGroup|)
                 (|CancellationAbelianMonoid|) (|SemiRing|) (|AbelianMonoid|)
                 (|Monoid|) (|SemiRng|) (|SemiGroup|) (|AbelianSemiGroup|)
                 (|Finite|) (|StepThrough|) (|SetCategory|) (|RetractableTo| 6)
                 (|canonicalsClosed|) (|canonicalUnitNormal|)
                 (|noZeroDivisors|) (|CommutativeStar|) (|unitsKnown|)
                 (|BasicType|) (|CoercibleTo| 15) (|ConvertibleTo| 148))
              (|makeByteWordVec2| 163
                                  '(1 10 9 0 11 0 13 0 14 1 13 15 0 16 0 6 9 18
                                    2 9 0 0 19 20 0 27 0 28 0 10 0 30 0 6 0 32
                                    2 10 0 6 9 33 1 8 0 10 34 1 8 10 0 36 2 10
                                    6 0 0 37 2 9 39 0 0 40 2 0 0 0 19 42 2 0 0
                                    0 9 43 1 45 0 44 46 2 49 0 9 9 50 3 49 0 0
                                    53 51 54 0 8 19 56 1 49 9 0 57 1 49 59 0 60
                                    2 51 6 0 53 61 2 10 0 0 0 62 0 10 0 63 1 51
                                    65 0 66 1 0 0 0 67 2 68 0 0 65 69 1 49 0 68
                                    70 0 71 19 72 2 8 0 6 0 74 2 8 0 53 0 76 1
                                    8 0 0 78 0 8 0 80 1 8 51 0 82 1 8 0 51 83 1
                                    8 0 6 85 1 8 6 0 88 1 8 90 0 91 1 8 0 19 93
                                    1 8 19 0 95 2 8 0 0 0 97 2 8 0 0 0 100 2 8
                                    0 0 0 101 2 8 0 0 0 103 2 8 39 0 0 105 0 8
                                    47 107 0 8 0 109 0 8 0 111 2 27 117 19 0
                                    118 1 53 122 0 123 1 124 113 0 125 0 0 0
                                    126 0 127 0 128 2 0 0 0 53 129 0 119 0 130
                                    2 119 0 131 0 132 1 119 0 0 133 2 27 0 134
                                    0 135 2 10 15 0 15 136 2 90 39 0 0 140 0 6
                                    9 142 2 0 39 0 0 1 1 0 39 0 1 1 0 161 0 1 1
                                    0 0 0 1 1 0 39 0 1 1 0 39 0 1 0 0 9 1 2 2 0
                                    0 19 1 1 0 6 0 1 1 2 119 53 120 2 0 144 0 0
                                    1 1 0 0 0 1 1 0 122 0 1 2 0 39 0 0 1 0 2 9
                                    139 0 0 0 1 1 0 90 0 92 1 0 6 0 89 1 0 0 51
                                    84 0 2 115 116 2 0 0 0 0 1 1 0 144 0 1 0 2
                                    0 81 2 0 0 0 0 1 1 0 160 147 1 0 2 0 41 1 2
                                    39 0 1 2 3 0 0 9 1 1 3 0 0 1 1 0 39 0 1 1 3
                                    146 0 1 1 2 19 0 1 1 0 39 0 1 0 2 0 121 1 2
                                    39 0 73 2 2 0 0 19 42 1 0 6 0 38 1 2 144 0
                                    1 2 0 157 147 0 1 2 2 152 0 19 1 1 0 10 0
                                    64 1 2 19 0 96 1 2 10 0 1 1 2 10 0 1 2 2
                                    151 0 0 1 2 2 0 0 10 1 1 0 0 147 1 2 0 0 0
                                    0 1 1 0 162 0 1 1 0 0 0 1 0 2 0 1 1 2 0 19
                                    94 1 0 39 0 141 1 0 163 0 1 0 2 0 35 2 0
                                    152 152 152 1 1 0 0 147 1 2 0 0 0 0 1 0 2
                                    113 114 1 0 122 0 1 0 0 19 138 0 0 146 1 3
                                    0 156 0 0 0 1 2 0 158 0 0 1 2 0 144 0 0 1 2
                                    0 157 147 0 1 1 0 9 0 1 0 2 147 1 2 0 159 0
                                    0 1 2 3 145 0 0 1 1 2 9 0 1 0 0 153 1 2 2 0
                                    0 9 1 1 2 0 0 1 1 0 19 0 58 1 0 146 0 1 0 0
                                    10 87 0 2 0 126 0 2 0 1 1 0 51 0 52 1 0 49
                                    47 1 1 2 148 0 1 1 2 149 150 1 1 0 0 6 86 1
                                    0 0 154 1 1 0 0 0 1 1 0 0 53 1 1 0 15 0 137
                                    1 3 144 0 1 1 2 0 0 1 0 0 9 143 0 0 47 108
                                    1 0 47 19 48 2 0 39 0 0 1 1 0 39 0 1 2 0 0
                                    0 53 129 2 0 0 0 9 43 2 0 0 0 19 1 0 0 0
                                    110 0 0 0 31 1 2 0 0 67 2 2 0 0 9 1 2 2 0 0
                                    9 1 1 2 0 0 1 2 0 39 0 0 106 2 0 0 0 6 99 2
                                    0 0 0 0 98 1 0 0 0 79 2 0 0 0 0 104 2 0 0 0
                                    0 102 2 0 0 0 6 1 2 0 0 6 0 75 2 0 0 154 0
                                    1 2 0 0 0 154 1 2 0 0 0 0 55 2 0 0 53 0 77
                                    2 0 0 9 0 1 2 0 0 19 0 1)))))
           '|lookupComplete|)) 
