
(/VERSIONCHECK 2) 

(DEFUN |INBFF;inv;2V;1| (|a| $)
  (PROG (#0=#:G1835 |b| |erg|)
    (RETURN
      (SEQ (LETT |b|
                 (SPADCALL
                     (SPADCALL |a|
                         (SPADCALL
                             (PROG1 (LETT #0# (- (QVSIZE |a|) 1)
                                     . #1=(|INBFF;inv;2V;1|))
                               (|check-subtype| (>= #0# 0)
                                   '(|NonNegativeInteger|) #0#))
                             (QREFELT $ 19))
                         1 (QREFELT $ 23))
                     1 (QREFELT $ 24)) . #1#)
           (EXIT (LETT |erg|
                       (SPADCALL
                           (SPADCALL
                               (SPADCALL
                                   (SPADCALL
                                    (SPADCALL |a| |b| (QREFELT $ 25)) 1
                                    (QREFELT $ 26))
                                   (QREFELT $ 16) (QREFELT $ 27))
                               (QREFELT $ 28))
                           |b| (QREFELT $ 29)) . #1#)))))) 

(DEFUN |INBFF;**;VIV;2| (|a| |ex| $)
  (PROG (#0=#:G1843 #1=#:G1844 |e| |e1| |q1| |logqe| |expT| |k| |mult|)
    (RETURN
      (SEQ (LETT |e|
                 (PROG1 (LETT #1#
                              (SPADCALL |ex|
                                  (- (SPADCALL (QREFELT $ 9)
                                      (PROG1
                                       (LETT #0# (QVSIZE |a|)
                                        . #2=(|INBFF;**;VIV;2|))
                                        (|check-subtype| (> #0# 0)
                                         '(|PositiveInteger|) #0#))
                                      (QREFELT $ 32))
                                     1)
                                  (QREFELT $ 33)) . #2#)
                   (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|)
                       #1#)) . #2#)
           (EXIT (COND
                   ((ZEROP |e|)
                    (SPADCALL (QVSIZE |a|) (QREFELT $ 16)
                        (QREFELT $ 34)))
                   ((EQL |e| 1) (SPADCALL |a| (QREFELT $ 35)))
                   ('T
                    (SEQ (LETT |e1|
                               (SPADCALL (INTEGER-LENGTH |e|)
                                   (QREFELT $ 19)) . #2#)
                         (EXIT (COND
                                 ((< 11 (QREFELT $ 9))
                                  (SEQ (LETT |q1|
                                        (SPADCALL
                                         (INTEGER-LENGTH (QREFELT $ 9))
                                         (QREFELT $ 19)) . #2#)
                                       (LETT |logqe|
                                        (QSPLUS (QSQUOTIENT |e1| |q1|)
                                         1) . #2#)
                                       (EXIT
                                        (COND
                                          ((< (QSTIMES 15 |e1|)
                                            (* 10
                                             (-
                                              (+ |logqe| (QREFELT $ 9))
                                              2)))
                                           (SPADCALL |a| |e|
                                            (QREFELT $ 36)))
                                          ('T
                                           (SPADCALL |a| |e| 1
                                            (QREFELT $ 37)))))))
                                 ('T
                                  (SEQ (LETT |logqe|
                                        (QSPLUS
                                         (QSQUOTIENT (QSTIMES 10 |e1|)
                                          (SPADCALL (QREFELT $ 20)
                                           (QREFELT $ 9)
                                           (QREFELT $ 39)))
                                         1) . #2#)
                                       (LETT |k| 1 . #2#)
                                       (LETT |expT|
                                        (SPADCALL (QREFELT $ 21)
                                         (QREFELT $ 9) (QREFELT $ 41)) . #2#)
                                       (SEQ G190
                                        (COND
                                          ((NULL
                                            (COND
                                              ((OR
                                                (QSLESSP |logqe|
                                                 (SPADCALL |expT| |k|
                                                  (QREFELT $ 39)))
                                                (QSZEROP
                                                 (SPADCALL |expT| |k|
                                                  (QREFELT $ 39))))
                                               'NIL)
                                              ('T 'T)))
                                           (GO G191)))
                                        (SEQ
                                         (EXIT
                                          (LETT |k|
                                           (QSPLUS |k| 1) . #2#)))
                                        NIL (GO G190) G191 (EXIT NIL))
                                       (LETT |mult|
                                        (-
                                         (+
                                          (* (- (QREFELT $ 9) 1)
                                           (EXPT (QREFELT $ 9)
                                            (QSDIFFERENCE |k| 1)))
                                          (QSQUOTIENT
                                           (QSDIFFERENCE
                                            (QSPLUS |logqe| |k|) 1)
                                           |k|))
                                         2) . #2#)
                                       (COND
                                         ((NULL
                                           (<
                                            (SPADCALL 10 |mult|
                                             (QREFELT $ 42))
                                            (SPADCALL 15 |e1|
                                             (QREFELT $ 42))))
                                          (EXIT
                                           (SPADCALL |a| |e|
                                            (QREFELT $ 36)))))
                                       (EXIT
                                        (SPADCALL |a| |e| |k|
                                         (QREFELT $ 37))))))))))))))) 

(DEFUN |INBFF;repSq;VNniV;3| (|b| |e| $)
  (PROG (|a|)
    (RETURN
      (SEQ (LETT |a| (SPADCALL |b| (QREFELT $ 35))
                 |INBFF;repSq;VNniV;3|)
           (EXIT (COND
                   ((EQL |e| 1) |a|)
                   ((ODDP |e|)
                    (SPADCALL |a|
                        (SPADCALL (SPADCALL |a| |a| (QREFELT $ 25))
                            (QUOTIENT2 |e| 2) (QREFELT $ 36))
                        (QREFELT $ 25)))
                   ('T
                    (SPADCALL (SPADCALL |a| |a| (QREFELT $ 25))
                        (QUOTIENT2 |e| 2) (QREFELT $ 36))))))))) 

(DEFUN |INBFF;dAndcExp;VNniSiV;4| (|a| |e| |k| $)
  (PROG (|qk| #0=#:G1867 |b| |plist| |l| |ex| |j| #1=#:G1868 |erg| |i|)
    (RETURN
      (SEQ (LETT |plist| (LIST (SPADCALL |a| (QREFELT $ 35)))
                 . #2=(|INBFF;dAndcExp;VNniSiV;4|))
           (LETT |qk| (EXPT (QREFELT $ 9) |k|) . #2#)
           (SEQ (LETT |j| 2 . #2#) (LETT #0# (- |qk| 1) . #2#) G190
                (COND ((QSGREATERP |j| #0#) #3=(GO G191)))
                (SEQ (COND
                       ((EQL (SPADCALL |j| (QREFELT $ 9)
                                 (QREFELT $ 33))
                             0)
                        (LETT |b|
                              (SPADCALL
                                  (SPADCALL |plist|
                                      (QUOTIENT2 |j| (QREFELT $ 9))
                                      (QREFELT $ 45))
                                  1 (QREFELT $ 24)) . #2#))
                       ('T
                        (LETT |b|
                              (SPADCALL |a|
                                  (SPADCALL |plist| (QREFELT $ 46))
                                  (QREFELT $ 25)) . #2#)))
                     (EXIT (LETT |plist|
                                 (SPADCALL |plist| |b| (QREFELT $ 47)) . #2#)))
                (LETT |j| (QSADD1 |j|) . #2#) #4=(GO G190) G191
                (EXIT NIL))
           (LETT |l| NIL . #2#) (LETT |ex| |e| . #2#)
           (SEQ G190
                (COND ((NULL (COND ((EQL |ex| 0) 'NIL) ('T 'T))) #3#))
                (SEQ (LETT |l|
                           (SPADCALL |l|
                               (SPADCALL |ex| |qk| (QREFELT $ 33))
                               (QREFELT $ 50)) . #2#)
                     (EXIT (LETT |ex| (QUOTIENT2 |ex| |qk|) . #2#)))
                NIL #4# G191 (EXIT NIL))
           (COND
             ((EQL (|SPADfirst| |l|) 0)
              (LETT |erg|
                    (SPADCALL (QVSIZE |a|) (QREFELT $ 16)
                        (QREFELT $ 34)) . #2#))
             ('T
              (LETT |erg|
                    (SPADCALL |plist| (|SPADfirst| |l|) (QREFELT $ 45)) . #2#)))
           (LETT |i| |k| . #2#)
           (SEQ (LETT |j| NIL . #2#) (LETT #1# (CDR |l|) . #2#) G190
                (COND
                  ((OR (ATOM #1#)
                       (PROGN (LETT |j| (CAR #1#) . #2#) NIL))
                   #3#))
                (SEQ (COND
                       ((NULL (EQL |j| 0))
                        (LETT |erg|
                              (SPADCALL |erg|
                                  (SPADCALL
                                      (SPADCALL |plist| |j|
                                       (QREFELT $ 45))
                                      |i| (QREFELT $ 24))
                                  (QREFELT $ 25)) . #2#)))
                     (EXIT (LETT |i| (QSPLUS |i| |k|) . #2#)))
                (LETT #1# (CDR #1#) . #2#) #4# G191 (EXIT NIL))
           (EXIT |erg|))))) 

(DEFUN |INBFF;*;3V;5| (|a| |b| $)
  (PROG (|e| |erg| #0=#:G1878 |i| #1=#:G1879 |j| |t| #2=#:G1880 |y| |x|
             |k|)
    (RETURN
      (SEQ (LETT |e| (SPADCALL (QVSIZE |a|) (QREFELT $ 19))
                 . #3=(|INBFF;*;3V;5|))
           (LETT |erg| (SPADCALL (QVSIZE |a|) (QREFELT $ 51)) . #3#)
           (SEQ (LETT |t| NIL . #3#)
                (LETT #0#
                      (SPADCALL (QREFELT $ 15) 1 (QREFELT $ 52)) . #3#)
                G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |t| (CAR #0#) . #3#) NIL))
                   #4=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #3#) G190
                                (COND ((QSGREATERP |j| |e|) #4#))
                                (SEQ (LETT |y| (QCAR |t|) . #3#)
                                     (LETT |x| (QCDR |t|) . #3#)
                                     (LETT |k|
                                      (QSPLUS
                                       (QSADDMOD |x|
                                        (SPADCALL |j| (QREFELT $ 19))
                                        |e|)
                                       1) . #3#)
                                     (EXIT
                                      (SPADCALL |erg| |k|
                                       (SPADCALL
                                        (SPADCALL |erg| |k|
                                         (QREFELT $ 26))
                                        (SPADCALL
                                         (SPADCALL
                                          (SPADCALL |a| |j|
                                           (QREFELT $ 26))
                                          (SPADCALL |b| |j|
                                           (QREFELT $ 26))
                                          (QREFELT $ 27))
                                         |y| (QREFELT $ 27))
                                        (QREFELT $ 53))
                                       (QREFELT $ 54))))
                                (LETT |j| (QSADD1 |j|) . #3#)
                                #5=(GO G190) G191 (EXIT NIL))))
                (LETT #0# (CDR #0#) . #3#) #5# G191 (EXIT NIL))
           (SEQ (LETT |i| 1 . #3#)
                (LETT #1# (QSDIFFERENCE |e| 1) . #3#) G190
                (COND ((QSGREATERP |i| #1#) #4#))
                (SEQ (EXIT (SEQ (LETT |j| (+ |i| 1) . #3#) G190
                                (COND ((> |j| |e|) #4#))
                                (SEQ (EXIT
                                      (SEQ (LETT |t| NIL . #3#)
                                       (LETT #2#
                                        (SPADCALL (QREFELT $ 15)
                                         (+ (- |j| |i|) 1)
                                         (QREFELT $ 52)) . #3#)
                                       G190
                                       (COND
                                         ((OR (ATOM #2#)
                                           (PROGN
                                             (LETT |t| (CAR #2#) . #3#)
                                             NIL))
                                          #4#))
                                       (SEQ (LETT |y| (QCAR |t|) . #3#)
                                        (LETT |x| (QCDR |t|) . #3#)
                                        (LETT |k|
                                         (QSPLUS
                                          (QSADDMOD |x|
                                           (SPADCALL |i|
                                            (QREFELT $ 19))
                                           |e|)
                                          1) . #3#)
                                        (EXIT
                                         (SPADCALL |erg| |k|
                                          (SPADCALL
                                           (SPADCALL |erg| |k|
                                            (QREFELT $ 26))
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL |a| |i|
                                               (QREFELT $ 26))
                                              (SPADCALL |b| |j|
                                               (QREFELT $ 26))
                                              (QREFELT $ 27))
                                             (SPADCALL
                                              (SPADCALL |a| |j|
                                               (QREFELT $ 26))
                                              (SPADCALL |b| |i|
                                               (QREFELT $ 26))
                                              (QREFELT $ 27))
                                             (QREFELT $ 53))
                                            |y| (QREFELT $ 27))
                                           (QREFELT $ 53))
                                          (QREFELT $ 54))))
                                       (LETT #2# (CDR #2#) . #3#) #5#
                                       G191 (EXIT NIL))))
                                (LETT |j| (+ |j| 1) . #3#) #5# G191
                                (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #3#) #5# G191 (EXIT NIL))
           (EXIT |erg|))))) 

(DEFUN |INBFF;lookup;VPi;6| (|x| $)
  (PROG (|j| |erg| #0=#:G1882 #1=#:G1883)
    (RETURN
      (SEQ (LETT |erg| 0 . #2=(|INBFF;lookup;VPi;6|))
           (SEQ (LETT |j| (QVSIZE |x|) . #2#) G190
                (COND ((< |j| 1) (GO G191)))
                (SEQ (EXIT (LETT |erg|
                                 (+ (* |erg| (QREFELT $ 9))
                                    (REMAINDER2
                                     (SPADCALL
                                      (SPADCALL |x| |j| (QREFELT $ 26))
                                      (QREFELT $ 55))
                                     (QREFELT $ 9))) . #2#)))
                (LETT |j| (+ |j| -1) . #2#) (GO G190) G191 (EXIT NIL))
           (EXIT (COND
                   ((EQL |erg| 0)
                    (PROG1 (LETT #0#
                                 (EXPT (QREFELT $ 9) (QVSIZE |x|)) . #2#)
                      (|check-subtype| (> #0# 0) '(|PositiveInteger|)
                          #0#)))
                   ('T
                    (PROG1 (LETT #1# |erg| . #2#)
                      (|check-subtype| (> #1# 0) '(|PositiveInteger|)
                          #1#))))))))) 

(DEFUN |INBFF;norm;VPiV;7| (|a| |d| $)
  (PROG (|dSI| |r|)
    (RETURN
      (SEQ (LETT |dSI| (SPADCALL |d| (QREFELT $ 19))
                 . #0=(|INBFF;norm;VPiV;7|))
           (LETT |r|
                 (SPADCALL (SPADCALL (QVSIZE |a|) (QREFELT $ 19)) |dSI|
                     (QREFELT $ 58)) . #0#)
           (COND
             ((NULL (EQL (QCDR |r|) 0))
              (EXIT (|error| "norm: 2.arg must divide extdeg"))))
           (EXIT (SPADCALL |a| (QCAR |r|) |dSI| (QREFELT $ 23))))))) 

(DEFUN |INBFF;expPot;V2SiV;8| (|a| |e| |d| $)
  (PROG (|deg| |k| #0=#:G1900 |y| |k2| |erg| |qpot|)
    (RETURN
      (SEQ (LETT |deg| (SPADCALL (QVSIZE |a|) (QREFELT $ 19))
                 . #1=(|INBFF;expPot;V2SiV;8|))
           (EXIT (COND
                   ((EQL |e| 1) (SPADCALL |a| (QREFELT $ 35)))
                   ('T
                    (SEQ (LETT |k2| |d| . #1#)
                         (LETT |y| (SPADCALL |a| (QREFELT $ 35)) . #1#)
                         (COND
                           ((SPADCALL |e| 0 (QREFELT $ 61))
                            (SEQ (LETT |erg|
                                       (SPADCALL |y| (QREFELT $ 35)) . #1#)
                                 (EXIT (LETT |qpot| |k2| . #1#))))
                           ('T
                            (SEQ (LETT |erg|
                                       (SPADCALL (QVSIZE |a|)
                                        (SPADCALL (QREFELT $ 16)
                                         (QREFELT $ 28))
                                        (QREFELT $ 34)) . #1#)
                                 (EXIT (LETT |qpot| 0 . #1#)))))
                         (SEQ (LETT |k| 1 . #1#)
                              (LETT #0# (INTEGER-LENGTH |e|) . #1#)
                              G190
                              (COND ((QSGREATERP |k| #0#) (GO G191)))
                              (SEQ (LETT |y|
                                    (SPADCALL |y|
                                     (SPADCALL |y| |k2| (QREFELT $ 24))
                                     (QREFELT $ 25)) . #1#)
                                   (LETT |k2|
                                    (QSADDMOD |k2| |k2| |deg|) . #1#)
                                   (EXIT
                                    (COND
                                      ((SPADCALL |e| |k|
                                        (QREFELT $ 62))
                                       (SEQ
                                        (LETT |erg|
                                         (SPADCALL |erg|
                                          (SPADCALL |y| |qpot|
                                           (QREFELT $ 24))
                                          (QREFELT $ 25)) . #1#)
                                        (EXIT
                                         (LETT |qpot|
                                          (QSADDMOD |qpot| |k2| |deg|) . #1#)))))))
                              (LETT |k| (QSADD1 |k|) . #1#) (GO G190)
                              G191 (EXIT NIL))
                         (EXIT |erg|))))))))) 

(DEFUN |INBFF;qPot;VIV;9| (|e| |n| $)
  (PROG (|ei| |m| |e1| |i|)
    (RETURN
      (SEQ (LETT |ei| (SPADCALL (QVSIZE |e|) (QREFELT $ 19))
                 . #0=(|INBFF;qPot;VIV;9|))
           (LETT |m|
                 (SPADCALL (SPADCALL |n| (QREFELT $ 19)) |ei|
                     (QREFELT $ 63)) . #0#)
           (EXIT (COND
                   ((QSZEROP |m|) |e|)
                   ('T
                    (SEQ (LETT |e1|
                               (SPADCALL (QVSIZE |e|) (QREFELT $ 51)) . #0#)
                         (SEQ (LETT |i| (QSPLUS |m| 1) . #0#) G190
                              (COND
                                ((QSGREATERP |i| |ei|) #1=(GO G191)))
                              (SEQ (EXIT
                                    (SPADCALL |e1| |i|
                                     (SPADCALL |e|
                                      (QSDIFFERENCE |i| |m|)
                                      (QREFELT $ 26))
                                     (QREFELT $ 54))))
                              (LETT |i| (QSADD1 |i|) . #0#)
                              #2=(GO G190) G191 (EXIT NIL))
                         (SEQ (LETT |i| 1 . #0#) G190
                              (COND ((QSGREATERP |i| |m|) #1#))
                              (SEQ (EXIT
                                    (SPADCALL |e1| |i|
                                     (SPADCALL |e| (- (+ |ei| |i|) |m|)
                                      (QREFELT $ 26))
                                     (QREFELT $ 54))))
                              (LETT |i| (QSADD1 |i|) . #0#) #2# G191
                              (EXIT NIL))
                         (EXIT |e1|))))))))) 

(DEFUN |INBFF;trace;VPiV;10| (|a| |d| $)
  (PROG (|dSI| |r| |v| |sSI| |i| |j| #0=#:G1912)
    (RETURN
      (SEQ (LETT |dSI| (SPADCALL |d| (QREFELT $ 19))
                 . #1=(|INBFF;trace;VPiV;10|))
           (LETT |r|
                 (SPADCALL (SPADCALL (QVSIZE |a|) (QREFELT $ 19)) |dSI|
                     (QREFELT $ 58)) . #1#)
           (COND
             ((NULL (EQL (QCDR |r|) 0))
              (EXIT (|error| "trace: 2.arg must divide extdeg"))))
           (LETT |v|
                 (SPADCALL
                     (SPADCALL |a| (SPADCALL 1 |dSI| (QREFELT $ 65))
                         (QREFELT $ 66))
                     (QREFELT $ 35)) . #1#)
           (LETT |sSI| (QCAR |r|) . #1#)
           (SEQ (LETT |i| 1 . #1#) G190
                (COND ((QSGREATERP |i| |dSI|) #2=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #1#)
                                (LETT #0# (QSDIFFERENCE |sSI| 1) . #1#)
                                G190 (COND ((QSGREATERP |j| #0#) #2#))
                                (SEQ (EXIT
                                      (SPADCALL |v| |i|
                                       (SPADCALL
                                        (SPADCALL |v| |i|
                                         (QREFELT $ 26))
                                        (SPADCALL |a|
                                         (+ |i|
                                          (QSTIMES
                                           (SPADCALL |j|
                                            (QREFELT $ 19))
                                           |dSI|))
                                         (QREFELT $ 26))
                                        (QREFELT $ 53))
                                       (QREFELT $ 54))))
                                (LETT |j| (QSADD1 |j|) . #1#)
                                #3=(GO G190) G191 (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #1#) #3# G191 (EXIT NIL))
           (EXIT |v|))))) 

(DEFUN |INBFF;random;PiV;11| (|n| $)
  (PROG (|v| |i|)
    (RETURN
      (SEQ (LETT |v| (SPADCALL |n| (QREFELT $ 51))
                 . #0=(|INBFF;random;PiV;11|))
           (SEQ (LETT |i| 1 . #0#) G190
                (COND ((QSGREATERP |i| |n|) (GO G191)))
                (SEQ (EXIT (SPADCALL |v| |i| (SPADCALL (QREFELT $ 68))
                               (QREFELT $ 54))))
                (LETT |i| (QSADD1 |i|) . #0#) (GO G190) G191
                (EXIT NIL))
           (EXIT |v|))))) 

(DEFUN |INBFF;xn;NniSup;12| (|m| $)
  (SPADCALL (SPADCALL (|spadConstant| $ 10) |m| (QREFELT $ 71))
      (|spadConstant| $ 72) (QREFELT $ 73))) 

(DEFUN |INBFF;normal?;VB;13| (|x| $)
  (COND
    ((SPADCALL
         (SPADCALL (SPADCALL (QVSIZE |x|) (QREFELT $ 74))
             (SPADCALL |x| (QREFELT $ 75)) (QREFELT $ 76))
         (|spadConstant| $ 72) (QREFELT $ 77))
     'T)
    ('T 'NIL))) 

(DEFUN |INBFF;/;3V;14| (|x| |y| $)
  (SPADCALL |x| (SPADCALL |y| (QREFELT $ 30)) (QREFELT $ 25))) 

(DEFUN |INBFF;setFieldInfo;VGFV;15| (|m| |n| $)
  (SEQ (SETELT $ 15 |m|) (SETELT $ 16 |n|)
       (EXIT (SPADCALL (QREFELT $ 81))))) 

(DEFUN |INBFF;minimalPolynomial;VSup;16| (|x| $)
  (PROG (|dx| |m| |i| #0=#:G1928 |dy| |j| |k| #1=#:G1929 |y| |v|)
    (RETURN
      (SEQ (LETT |dx| (QVSIZE |x|)
                 . #2=(|INBFF;minimalPolynomial;VSup;16|))
           (LETT |y|
                 (SPADCALL (QVSIZE |x|)
                     (SPADCALL (QREFELT $ 16) (QREFELT $ 28))
                     (QREFELT $ 34)) . #2#)
           (LETT |m| (SPADCALL |dx| (+ |dx| 1) (QREFELT $ 84)) . #2#)
           (SEQ (LETT |i| 1 . #2#) (LETT #0# (+ |dx| 1) . #2#) G190
                (COND ((QSGREATERP |i| #0#) #3=(GO G191)))
                (SEQ (LETT |dy| (QVSIZE |y|) . #2#)
                     (SEQ (LETT |j| 1 . #2#) G190
                          (COND ((QSGREATERP |j| |dy|) #3#))
                          (SEQ (EXIT (SEQ (LETT |k| 0 . #2#)
                                      (LETT #1#
                                       (- (QUOTIENT2 |dx| |dy|) 1) . #2#)
                                      G190
                                      (COND
                                        ((QSGREATERP |k| #1#) #3#))
                                      (SEQ
                                       (EXIT
                                        (SPADCALL |m|
                                         (+ |j| (* |k| |dy|)) |i|
                                         (SPADCALL |y| |j|
                                          (QREFELT $ 26))
                                         (QREFELT $ 85))))
                                      (LETT |k| (QSADD1 |k|) . #2#)
                                      #4=(GO G190) G191 (EXIT NIL))))
                          (LETT |j| (QSADD1 |j|) . #2#) #4# G191
                          (EXIT NIL))
                     (EXIT (LETT |y|
                                 (SPADCALL |y| |x| (QREFELT $ 25)) . #2#)))
                (LETT |i| (QSADD1 |i|) . #2#) #4# G191 (EXIT NIL))
           (LETT |v| (|SPADfirst| (SPADCALL |m| (QREFELT $ 86))) . #2#)
           (EXIT (SPADCALL |v| (QREFELT $ 75))))))) 

(DEFUN |INBFF;basis;PiV;17| (|n| $)
  (PROG (|bas| |i| |uniti|)
    (RETURN
      (SEQ (LETT |bas|
                 (SPADCALL |n| (SPADCALL |n| (QREFELT $ 51))
                     (QREFELT $ 89))
                 . #0=(|INBFF;basis;PiV;17|))
           (SEQ (LETT |i| 1 . #0#) G190
                (COND ((QSGREATERP |i| |n|) (GO G191)))
                (SEQ (LETT |uniti| (SPADCALL |n| (QREFELT $ 51)) . #0#)
                     (SPADCALL |uniti| |i| (|spadConstant| $ 10)
                         (QREFELT $ 90))
                     (EXIT (SPADCALL |bas| |i| |uniti| (QREFELT $ 91))))
                (LETT |i| (QSADD1 |i|) . #0#) (GO G190) G191
                (EXIT NIL))
           (EXIT |bas|))))) 

(DEFUN |INBFF;normalElement;PiV;18| (|n| $)
  (PROG (|v|)
    (RETURN
      (SEQ (LETT |v| (SPADCALL |n| (QREFELT $ 51))
                 |INBFF;normalElement;PiV;18|)
           (SPADCALL |v| 1 (|spadConstant| $ 10) (QREFELT $ 90))
           (EXIT |v|))))) 

(DEFUN |INBFF;index;2PiV;19| (|degm| |n| $)
  (PROG (|erg| |j| |m|)
    (RETURN
      (SEQ (LETT |m|
                 (REMAINDER2 |n|
                     (SPADCALL (QREFELT $ 9) |degm| (QREFELT $ 32)))
                 . #0=(|INBFF;index;2PiV;19|))
           (LETT |erg| (SPADCALL |degm| (QREFELT $ 51)) . #0#)
           (SEQ (LETT |j| 1 . #0#) G190
                (COND ((QSGREATERP |j| |degm|) (GO G191)))
                (SEQ (SPADCALL |erg| |j|
                         (SPADCALL
                             (+ (QREFELT $ 9)
                                (REMAINDER2 |m| (QREFELT $ 9)))
                             (QREFELT $ 94))
                         (QREFELT $ 54))
                     (EXIT (LETT |m|
                                 (QUOTIENT2 |m| (QREFELT $ 9)) . #0#)))
                (LETT |j| (QSADD1 |j|) . #0#) (GO G190) G191
                (EXIT NIL))
           (EXIT |erg|))))) 

(DEFUN |INBFF;pol;VSup;20| (|x| $)
  (PROG (|i| #0=#:G1945 #1=#:G1943 #2=#:G1942 #3=#:G1940 #4=#:G1941)
    (RETURN
      (SEQ (PROGN
             (LETT #4# NIL . #5=(|INBFF;pol;VSup;20|))
             (SEQ (LETT |i| 1 . #5#) (LETT #0# (QVSIZE |x|) . #5#) G190
                  (COND ((QSGREATERP |i| #0#) (GO G191)))
                  (SEQ (EXIT (PROGN
                               (LETT #2#
                                     (SPADCALL
                                      (SPADCALL |x| |i| (QREFELT $ 26))
                                      (PROG1 (LETT #1# (- |i| 1) . #5#)
                                        (|check-subtype| (>= #1# 0)
                                         '(|NonNegativeInteger|) #1#))
                                      (QREFELT $ 71)) . #5#)
                               (COND
                                 (#4# (LETT #3#
                                       (SPADCALL #3# #2#
                                        (QREFELT $ 96)) . #5#))
                                 ('T
                                  (PROGN
                                    (LETT #3# #2# . #5#)
                                    (LETT #4# 'T . #5#)))))))
                  (LETT |i| (QSADD1 |i|) . #5#) (GO G190) G191
                  (EXIT NIL))
             (COND (#4# #3#) ('T (|spadConstant| $ 97)))))))) 

(DEFUN |InnerNormalBasisFieldFunctions| (#0=#:G1946)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1947)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                       (HGET |$ConstructorCache|
                             '|InnerNormalBasisFieldFunctions|)
                       '|domainEqualList|)
                   . #2=(|InnerNormalBasisFieldFunctions|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (|InnerNormalBasisFieldFunctions;| #0#)
                 (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|InnerNormalBasisFieldFunctions|))))))))))) 

(DEFUN |InnerNormalBasisFieldFunctions;| (|#1|)
  (PROG (DV$1 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|InnerNormalBasisFieldFunctions|))
        (LETT |dv$|
              (LIST '|InnerNormalBasisFieldFunctions| DV$1) . #0#)
        (LETT $ (GETREFV 98) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache|
            '|InnerNormalBasisFieldFunctions| (LIST DV$1) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 9 (SPADCALL (QREFELT $ 8)))
        (QSETREFV $ 15 (SPADCALL 1 NIL (QREFELT $ 14)))
        (QSETREFV $ 16 (|spadConstant| $ 10))
        (QSETREFV $ 20
            (LIST 0 (SPADCALL 10 (QREFELT $ 19))
                  (SPADCALL 16 (QREFELT $ 19))
                  (SPADCALL 20 (QREFELT $ 19))
                  (SPADCALL 23 (QREFELT $ 19)) 0
                  (SPADCALL 28 (QREFELT $ 19))
                  (SPADCALL 30 (QREFELT $ 19))
                  (SPADCALL 32 (QREFELT $ 19)) 0
                  (SPADCALL 35 (QREFELT $ 19))))
        (QSETREFV $ 21
            (LIST NIL
                  (LIST (SPADCALL 4 (QREFELT $ 19))
                        (SPADCALL 12 (QREFELT $ 19))
                        (SPADCALL 48 (QREFELT $ 19))
                        (SPADCALL 160 (QREFELT $ 19))
                        (SPADCALL 480 (QREFELT $ 19)) 0)
                  (LIST (SPADCALL 8 (QREFELT $ 19))
                        (SPADCALL 72 (QREFELT $ 19))
                        (SPADCALL 432 (QREFELT $ 19)) 0)
                  (LIST (SPADCALL 18 (QREFELT $ 19))
                        (SPADCALL 216 (QREFELT $ 19)) 0)
                  (LIST (SPADCALL 32 (QREFELT $ 19))
                        (SPADCALL 480 (QREFELT $ 19)) 0)
                  NIL (LIST (SPADCALL 72 (QREFELT $ 19)) 0)
                  (LIST (SPADCALL 98 (QREFELT $ 19)) 0)
                  (LIST (SPADCALL 128 (QREFELT $ 19)) 0) NIL
                  (LIST (SPADCALL 200 (QREFELT $ 19)) 0)))
        $)))) 

(MAKEPROP '|InnerNormalBasisFieldFunctions| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|)
             (|NonNegativeInteger|) (0 . |size|) '|sizeGF| (4 . |One|)
             (|Record| (|:| |value| 6) (|:| |index| 18)) (|List| 11)
             (|Vector| 12) (8 . |new|) '|multTable| '|trGen|
             (|Integer|) (|SingleInteger|) (14 . |coerce|) '|logq|
             '|expTable| (|Vector| 6) |INBFF;expPot;V2SiV;8|
             |INBFF;qPot;VIV;9| |INBFF;*;3V;5| (19 . |elt|) (25 . *)
             (31 . |inv|) (36 . *) |INBFF;inv;2V;1| (|PositiveInteger|)
             (42 . **) (48 . |positiveRemainder|) (54 . |new|)
             (60 . |copy|) |INBFF;repSq;VNniV;3|
             |INBFF;dAndcExp;VNniSiV;4| (|List| 18) (65 . |elt|)
             (|List| 38) (71 . |elt|) (77 . *) |INBFF;**;VIV;2|
             (|List| 22) (83 . |elt|) (89 . |last|) (94 . |concat|)
             (100 . |Zero|) (|List| 7) (104 . |concat|) (110 . |zero|)
             (115 . |elt|) (121 . +) (127 . |setelt|) (134 . |lookup|)
             |INBFF;lookup;VPi;6|
             (|Record| (|:| |quotient| $) (|:| |remainder| $))
             (139 . |divide|) |INBFF;norm;VPiV;7| (|Boolean|)
             (145 . |bit?|) (151 . |bit?|) (157 . |positiveRemainder|)
             (|UniversalSegment| 17) (163 . SEGMENT) (169 . |elt|)
             |INBFF;trace;VPiV;10| (175 . |random|)
             |INBFF;random;PiV;11| (|SparseUnivariatePolynomial| 6)
             (179 . |monomial|) (185 . |One|) (189 . -)
             |INBFF;xn;NniSup;12| |INBFF;pol;VSup;20| (195 . |gcd|)
             (201 . =) |INBFF;normal?;VB;13| |INBFF;/;3V;14| (|Void|)
             (207 . |void|) |INBFF;setFieldInfo;VGFV;15| (|Matrix| 6)
             (211 . |zero|) (217 . |qsetelt!|) (225 . |nullSpace|)
             |INBFF;minimalPolynomial;VSup;16| (|Vector| 22)
             (230 . |new|) (236 . |qsetelt!|) (243 . |qsetelt!|)
             |INBFF;basis;PiV;17| |INBFF;normalElement;PiV;18|
             (250 . |index|) |INBFF;index;2PiV;19| (255 . +)
             (261 . |Zero|))
          '#(|xn| 265 |trace| 270 |setFieldInfo| 276 |repSq| 282
             |random| 288 |qPot| 293 |pol| 299 |normalElement| 304
             |normal?| 309 |norm| 314 |minimalPolynomial| 320 |lookup|
             325 |inv| 330 |index| 335 |expPot| 341 |dAndcExp| 348
             |basis| 355 / 360 ** 366 * 372)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 97
                                '(0 6 7 8 0 6 0 10 2 13 0 7 12 14 1 18
                                  0 17 19 2 22 6 0 17 26 2 6 0 0 0 27 1
                                  6 0 0 28 2 22 0 6 0 29 2 7 0 0 31 32
                                  2 17 0 0 0 33 2 22 0 7 6 34 1 22 0 0
                                  35 2 38 18 0 17 39 2 40 38 0 17 41 2
                                  17 0 31 0 42 2 44 22 0 17 45 1 44 22
                                  0 46 2 44 0 0 22 47 0 6 0 48 2 49 0 0
                                  7 50 1 22 0 7 51 2 13 12 0 17 52 2 6
                                  0 0 0 53 3 22 6 0 17 6 54 1 6 31 0 55
                                  2 18 57 0 0 58 2 18 60 0 0 61 2 17 60
                                  0 0 62 2 18 0 0 0 63 2 64 0 17 17 65
                                  2 22 0 0 64 66 0 6 0 68 2 70 0 6 7 71
                                  0 70 0 72 2 70 0 0 0 73 2 70 0 0 0 76
                                  2 70 60 0 0 77 0 80 0 81 2 83 0 7 7
                                  84 4 83 6 0 17 17 6 85 1 83 44 0 86 2
                                  88 0 7 22 89 3 22 6 0 17 6 90 3 88 22
                                  0 17 22 91 1 6 0 31 94 2 70 0 0 0 96
                                  0 70 0 97 1 0 70 7 74 2 0 22 22 31 67
                                  2 0 80 13 6 82 2 0 22 22 7 36 1 0 22
                                  31 69 2 0 22 22 17 24 1 0 70 22 75 1
                                  0 22 31 93 1 0 60 22 78 2 0 22 22 31
                                  59 1 0 70 22 87 1 0 31 22 56 1 0 22
                                  22 30 2 0 22 31 31 95 3 0 22 22 18 18
                                  23 3 0 22 22 7 18 37 1 0 88 31 92 2 0
                                  22 22 22 79 2 0 22 22 17 43 2 0 22 22
                                  22 25)))))
          '|lookupComplete|)) 
