
(/VERSIONCHECK 2) 

(DEFUN |COMPCAT-;characteristicPolynomial;SSup;1| (|x| $)
  (PROG (|v|)
    (RETURN
     (SEQ
      (LETT |v| (SPADCALL (|spadConstant| $ 9) 1 (QREFELT $ 12))
            |COMPCAT-;characteristicPolynomial;SSup;1|)
      (EXIT
       (SPADCALL
        (SPADCALL (SPADCALL |v| 2 (QREFELT $ 14))
                  (SPADCALL (SPADCALL |x| (QREFELT $ 15))
                            (SPADCALL |v| 1 (QREFELT $ 16)) (QREFELT $ 17))
                  (QREFELT $ 18))
        (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (SPADCALL |v| 0 (QREFELT $ 16))
                  (QREFELT $ 17))
        (QREFELT $ 22))))))) 

(DEFUN |COMPCAT-;myNextPrime| (|x| |n| $)
  (PROG (|xr|)
    (RETURN
     (SEQ
      (LETT |xr|
            (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (SPADCALL 4 (QREFELT $ 26))
                      (QREFELT $ 27))
            . #1=(|COMPCAT-;myNextPrime|))
      (SEQ G190
           (COND
            ((NULL (COND ((SPADCALL |xr| (QREFELT $ 29)) 'NIL) ('T 'T)))
             (GO G191)))
           (SEQ
            (EXIT
             (LETT |xr|
                   (SPADCALL |xr| (SPADCALL 4 (QREFELT $ 26)) (QREFELT $ 27))
                   . #1#)))
           NIL (GO G190) G191 (EXIT NIL))
      (EXIT (SPADCALL |xr| (|spadConstant| $ 21) (QREFELT $ 30))))))) 

(DEFUN |COMPCAT-;solveLinearPolynomialEquation;LSupU;3| (|lp| |p| $)
  (SPADCALL |lp| |p| (QREFELT $ 35))) 

(DEFUN |COMPCAT-;normPolynomial| (|pp| $)
  (SPADCALL (ELT $ 40)
            (SPADCALL |pp| (SPADCALL (ELT $ 41) |pp| (QREFELT $ 43))
                      (QREFELT $ 44))
            (QREFELT $ 47))) 

(DEFUN |COMPCAT-;factorPolynomial;SupF;5| (|pp| $)
  (SPADCALL (SPADCALL |pp| (QREFELT $ 49)) (ELT $ 51) (QREFELT $ 55))) 

(DEFUN |COMPCAT-;factorSquareFreePolynomial;SupF;6| (|pp| $)
  (PROG (#1=#:G1928 |lF| |p2| |p1| #2=#:G1935 |u| |fR| |pnorm| |k|)
    (RETURN
     (SEQ
      (LETT |pnorm| (|COMPCAT-;normPolynomial| |pp| $)
            . #3=(|COMPCAT-;factorSquareFreePolynomial;SupF;6|))
      (LETT |k| (|spadConstant| $ 21) . #3#)
      (SEQ G190
           (COND
            ((NULL
              (< 0
                 (SPADCALL
                  (SPADCALL |pnorm| (SPADCALL |pnorm| (QREFELT $ 60))
                            (QREFELT $ 61))
                  (QREFELT $ 62))))
             #4=(GO G191)))
           (SEQ
            (LETT |k| (SPADCALL |k| (|spadConstant| $ 9) (QREFELT $ 63)) . #3#)
            (EXIT
             (LETT |pnorm|
                   (|COMPCAT-;normPolynomial|
                    (SPADCALL |pp|
                              (SPADCALL
                               (SPADCALL (|spadConstant| $ 8) 1 (QREFELT $ 64))
                               (SPADCALL
                                (SPADCALL (|spadConstant| $ 21) |k|
                                          (QREFELT $ 30))
                                0 (QREFELT $ 64))
                               (QREFELT $ 65))
                              (QREFELT $ 66))
                    $)
                   . #3#)))
           NIL #5=(GO G190) G191 (EXIT NIL))
      (LETT |fR| (SPADCALL |pnorm| (QREFELT $ 67)) . #3#)
      (EXIT
       (COND
        ((EQL (SPADCALL |fR| (QREFELT $ 69)) 1)
         (SPADCALL (|spadConstant| $ 70)
                   (LIST (VECTOR (CONS 2 "irred") |pp| 1)) (QREFELT $ 74)))
        ('T
         (SEQ (LETT |lF| NIL . #3#)
              (SEQ (LETT |u| NIL . #3#)
                   (LETT #2# (SPADCALL |fR| (QREFELT $ 77)) . #3#) G190
                   (COND
                    ((OR (ATOM #2#) (PROGN (LETT |u| (CAR #2#) . #3#) NIL))
                     #4#))
                   (SEQ
                    (LETT |p1|
                          (SPADCALL (ELT $ 78) (QVELT |u| 1) (QREFELT $ 81))
                          . #3#)
                    (COND
                     ((NULL (SPADCALL |k| (QREFELT $ 82)))
                      (LETT |p1|
                            (SPADCALL |p1|
                                      (SPADCALL
                                       (SPADCALL (|spadConstant| $ 8) 1
                                                 (QREFELT $ 64))
                                       (SPADCALL
                                        (SPADCALL (|spadConstant| $ 21) |k|
                                                  (QREFELT $ 30))
                                        0 (QREFELT $ 64))
                                       (QREFELT $ 83))
                                      (QREFELT $ 66))
                            . #3#)))
                    (LETT |p2| (SPADCALL |p1| |pp| (QREFELT $ 84)) . #3#)
                    (LETT |lF| (CONS (VECTOR (CONS 2 "irred") |p2| 1) |lF|)
                          . #3#)
                    (EXIT
                     (LETT |pp|
                           (PROG2
                               (LETT #1# (SPADCALL |pp| |p2| (QREFELT $ 86))
                                     . #3#)
                               (QCDR #1#)
                             (|check-union| (QEQCAR #1# 0)
                                            (|SparseUnivariatePolynomial|
                                             (QREFELT $ 6))
                                            #1#))
                           . #3#)))
                   (LETT #2# (CDR #2#) . #3#) #5# G191 (EXIT NIL))
              (EXIT (SPADCALL |pp| |lF| (QREFELT $ 74))))))))))) 

(DEFUN |COMPCAT-;factor;SF;7| (|x| $)
  (PROG (|z| |y|)
    (RETURN
     (SEQ
      (LETT |y|
            (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 88))
                      (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 88))
                      (QREFELT $ 91))
            . #1=(|COMPCAT-;factor;SF;7|))
      (LETT |z| (SPADCALL |y| (QREFELT $ 94)) . #1#)
      (EXIT
       (SPADCALL (CONS #'|COMPCAT-;factor;SF;7!0| $) |z| (QREFELT $ 100))))))) 

(DEFUN |COMPCAT-;factor;SF;7!0| (|f| $)
  (SPADCALL (SPADCALL (SPADCALL |f| (QREFELT $ 95)) (QREFELT $ 26))
            (SPADCALL (SPADCALL |f| (QREFELT $ 96)) (QREFELT $ 26))
            (QREFELT $ 30))) 

(DEFUN |COMPCAT-;squareFree;SF;8| (|x| $) (SPADCALL |x| (QREFELT $ 102))) 

(DEFUN |COMPCAT-;prime?;SB;9| (|x| $)
  (PROG (|y|)
    (RETURN
     (SEQ
      (LETT |y|
            (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 88))
                      (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 88))
                      (QREFELT $ 91))
            |COMPCAT-;prime?;SB;9|)
      (EXIT (SPADCALL |y| (QREFELT $ 104))))))) 

(PUT '|COMPCAT-;rank;Pi;10| '|SPADreplace| '(XLAM NIL 2)) 

(DEFUN |COMPCAT-;rank;Pi;10| ($) 2) 

(DEFUN |COMPCAT-;discriminant;R;11| ($)
  (SPADCALL (SPADCALL 4 (QREFELT $ 26)) (QREFELT $ 107))) 

(DEFUN |COMPCAT-;norm;SR;12| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) 2 (QREFELT $ 109))
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) 2 (QREFELT $ 109))
            (QREFELT $ 63))) 

(DEFUN |COMPCAT-;trace;SR;13| (|x| $)
  (SPADCALL 2 (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 111))) 

(DEFUN |COMPCAT-;imaginary;S;14| ($)
  (SPADCALL (|spadConstant| $ 21) (|spadConstant| $ 9) (QREFELT $ 30))) 

(DEFUN |COMPCAT-;conjugate;2S;15| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 24))
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 107))
            (QREFELT $ 30))) 

(DEFUN |COMPCAT-;characteristic;Nni;16| ($) (SPADCALL (QREFELT $ 115))) 

(DEFUN |COMPCAT-;map;M2S;17| (|fn| |x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |fn|)
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) |fn|) (QREFELT $ 30))) 

(DEFUN |COMPCAT-;=;2SB;18| (|x| |y| $)
  (COND
   ((SPADCALL (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |y| (QREFELT $ 24))
              (QREFELT $ 119))
    (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (SPADCALL |y| (QREFELT $ 89))
              (QREFELT $ 119)))
   ('T 'NIL))) 

(DEFUN |COMPCAT-;+;3S;19| (|x| |y| $)
  (SPADCALL
   (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |y| (QREFELT $ 24))
             (QREFELT $ 63))
   (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (SPADCALL |y| (QREFELT $ 89))
             (QREFELT $ 63))
   (QREFELT $ 30))) 

(DEFUN |COMPCAT-;-;2S;20| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 107))
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 107))
            (QREFELT $ 30))) 

(DEFUN |COMPCAT-;*;R2S;21| (|r| |x| $)
  (SPADCALL (SPADCALL |r| (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 123))
            (SPADCALL |r| (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 123))
            (QREFELT $ 30))) 

(DEFUN |COMPCAT-;coordinates;SV;22| (|x| $)
  (VECTOR (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |x| (QREFELT $ 89)))) 

(DEFUN |COMPCAT-;*;I2S;23| (|n| |x| $)
  (SPADCALL (SPADCALL |n| (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 127))
            (SPADCALL |n| (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 127))
            (QREFELT $ 30))) 

(DEFUN |COMPCAT-;differentiate;SMS;24| (|x| |d| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |d|)
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) |d|) (QREFELT $ 30))) 

(DEFUN |COMPCAT-;definingPolynomial;Sup;25| ($)
  (SPADCALL (SPADCALL (|spadConstant| $ 9) 2 (QREFELT $ 12))
            (SPADCALL (|spadConstant| $ 9) 0 (QREFELT $ 12)) (QREFELT $ 22))) 

(DEFUN |COMPCAT-;reduce;SupS;26| (|pol| $)
  (PROG (|part|)
    (RETURN
     (SEQ
      (LETT |part|
            (QCDR (SPADCALL |pol| (SPADCALL (QREFELT $ 131)) (QREFELT $ 133)))
            |COMPCAT-;reduce;SupS;26|)
      (EXIT
       (SPADCALL (SPADCALL |part| 0 (QREFELT $ 134))
                 (SPADCALL |part| 1 (QREFELT $ 134)) (QREFELT $ 30))))))) 

(DEFUN |COMPCAT-;lift;SSup;27| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) 0 (QREFELT $ 12))
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) 1 (QREFELT $ 12))
            (QREFELT $ 22))) 

(DEFUN |COMPCAT-;minimalPolynomial;SSup;28| (|x| $)
  (COND
   ((SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82))
    (SPADCALL (SPADCALL (|spadConstant| $ 9) 1 (QREFELT $ 12))
              (SPADCALL (SPADCALL |x| (QREFELT $ 24)) 0 (QREFELT $ 12))
              (QREFELT $ 18)))
   ('T
    (SPADCALL
     (SPADCALL (SPADCALL (|spadConstant| $ 9) 2 (QREFELT $ 12))
               (SPADCALL (SPADCALL |x| (QREFELT $ 15)) 1 (QREFELT $ 12))
               (QREFELT $ 18))
     (SPADCALL (SPADCALL |x| (QREFELT $ 19)) 0 (QREFELT $ 12))
     (QREFELT $ 22))))) 

(DEFUN |COMPCAT-;coordinates;SVV;29| (|x| |v| $)
  (PROG (|ix| |rx| #1=#:G1982 |d| |ia| |ib| |rb| |b| |ra| |a|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |ra|
              (SPADCALL
               (LETT |a|
                     (SPADCALL |v| (SPADCALL |v| (QREFELT $ 139))
                               (QREFELT $ 140))
                     . #2=(|COMPCAT-;coordinates;SVV;29|))
               (QREFELT $ 24))
              . #2#)
        (LETT |rb|
              (SPADCALL
               (LETT |b| (SPADCALL |v| (QVSIZE |v|) (QREFELT $ 140)) . #2#)
               (QREFELT $ 24))
              . #2#)
        (COND
         ((EQL (QVSIZE |v|) 2)
          (SEQ
           (LETT |d|
                 (SPADCALL
                  (SPADCALL
                   (SPADCALL |ra|
                             (LETT |ib| (SPADCALL |b| (QREFELT $ 89)) . #2#)
                             (QREFELT $ 123))
                   (SPADCALL (LETT |ia| (SPADCALL |a| (QREFELT $ 89)) . #2#)
                             |rb| (QREFELT $ 123))
                   (QREFELT $ 27))
                  (QREFELT $ 141))
                 . #2#)
           (EXIT
            (COND
             ((QEQCAR |d| 1)
              (PROGN
               (LETT #1# (|error| #3="coordinates: vector is not a basis")
                     . #2#)
               (GO #1#)))))))
         ('T (EXIT (|error| #3#))))
        (LETT |rx| (SPADCALL |x| (QREFELT $ 24)) . #2#)
        (LETT |ix| (SPADCALL |x| (QREFELT $ 89)) . #2#)
        (EXIT
         (VECTOR
          (SPADCALL (QCDR |d|)
                    (SPADCALL (SPADCALL |rx| |ib| (QREFELT $ 123))
                              (SPADCALL |ix| |rb| (QREFELT $ 123))
                              (QREFELT $ 27))
                    (QREFELT $ 123))
          (SPADCALL (QCDR |d|)
                    (SPADCALL (SPADCALL |ra| |ix| (QREFELT $ 123))
                              (SPADCALL |ia| |rx| (QREFELT $ 123))
                              (QREFELT $ 27))
                    (QREFELT $ 123))))))
      #1# (EXIT #1#))))) 

(DEFUN |COMPCAT-;coerce;SOf;30| (|x| $)
  (PROG (|ip| |outi| |ie| |i| |re| |r|)
    (RETURN
     (SEQ
      (LETT |re|
            (SPADCALL
             (LETT |r| (SPADCALL |x| (QREFELT $ 24))
                   . #1=(|COMPCAT-;coerce;SOf;30|))
             (QREFELT $ 145))
            . #1#)
      (LETT |ie|
            (SPADCALL (LETT |i| (SPADCALL |x| (QREFELT $ 89)) . #1#)
                      (QREFELT $ 145))
            . #1#)
      (EXIT
       (COND ((SPADCALL |i| (QREFELT $ 82)) |re|)
             (#2='T
              (SEQ (LETT |outi| (SPADCALL '|%i| (QREFELT $ 147)) . #1#)
                   (LETT |ip|
                         (COND
                          ((SPADCALL |i| (|spadConstant| $ 9) (QREFELT $ 119))
                           |outi|)
                          ((SPADCALL (SPADCALL |i| (QREFELT $ 107))
                                     (|spadConstant| $ 9) (QREFELT $ 119))
                           (SPADCALL |outi| (QREFELT $ 148)))
                          (#2# (SPADCALL |ie| |outi| (QREFELT $ 149))))
                         . #1#)
                   (EXIT
                    (COND ((SPADCALL |r| (QREFELT $ 82)) |ip|)
                          (#2# (SPADCALL |re| |ip| (QREFELT $ 150))))))))))))) 

(DEFUN |COMPCAT-;retract;SR;31| (|x| $)
  (COND
   ((NULL (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82)))
    (|error| "Imaginary part is nonzero. Cannot retract."))
   ('T (SPADCALL |x| (QREFELT $ 24))))) 

(DEFUN |COMPCAT-;retractIfCan;SU;32| (|x| $)
  (COND
   ((NULL (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82)))
    (CONS 1 "failed"))
   ('T (CONS 0 (SPADCALL |x| (QREFELT $ 24)))))) 

(DEFUN |COMPCAT-;*;3S;33| (|x| |y| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |y| (QREFELT $ 24))
              (QREFELT $ 123))
    (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (SPADCALL |y| (QREFELT $ 89))
              (QREFELT $ 123))
    (QREFELT $ 27))
   (SPADCALL
    (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (SPADCALL |y| (QREFELT $ 24))
              (QREFELT $ 123))
    (SPADCALL (SPADCALL |y| (QREFELT $ 89)) (SPADCALL |x| (QREFELT $ 24))
              (QREFELT $ 123))
    (QREFELT $ 63))
   (QREFELT $ 30))) 

(DEFUN |COMPCAT-;reducedSystem;MM;34| (|m| $)
  (SPADCALL (SPADCALL (ELT $ 24) |m| (QREFELT $ 159))
            (SPADCALL (ELT $ 89) |m| (QREFELT $ 159)) (QREFELT $ 160))) 

(DEFUN |COMPCAT-;reducedSystem;MVR;35| (|m| |v| $)
  (PROG (|rh|)
    (RETURN
     (SEQ
      (LETT |rh| (SPADCALL (SPADCALL |v| (QREFELT $ 163)) (QREFELT $ 164))
            |COMPCAT-;reducedSystem;MVR;35|)
      (EXIT
       (CONS (SPADCALL |m| (QREFELT $ 164))
             (SPADCALL |rh| 1 (QREFELT $ 165)))))))) 

(DEFUN |COMPCAT-;abs;2S;36| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 168))
            (QREFELT $ 78))) 

(DEFUN |COMPCAT-;convert;SC;37| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 171))
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 171))
            (QREFELT $ 173))) 

(DEFUN |COMPCAT-;convert;SC;38| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 176))
            (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 176))
            (QREFELT $ 178))) 

(DEFUN |COMPCAT-;convert;SIf;39| (|x| $)
  (SPADCALL
   (LIST (SPADCALL '|complex| (QREFELT $ 181))
         (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 182))
         (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 182)))
   (QREFELT $ 184))) 

(DEFUN |COMPCAT-;convert;SP;40| (|x| $) (SPADCALL |x| (QREFELT $ 188))) 

(DEFUN |COMPCAT-;convert;SP;41| (|x| $) (SPADCALL |x| (QREFELT $ 192))) 

(DEFUN |COMPCAT-;patternMatch;SP2Pmr;42| (|x| |p| |l| $)
  (SPADCALL |x| |p| |l| (QREFELT $ 196))) 

(DEFUN |COMPCAT-;patternMatch;SP2Pmr;43| (|x| |p| |l| $)
  (SPADCALL |x| |p| |l| (QREFELT $ 201))) 

(DEFUN |COMPCAT-;smaller?;2SB;44| (|x| |y| $)
  (COND
   ((SPADCALL (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |y| (QREFELT $ 24))
              (QREFELT $ 119))
    (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (SPADCALL |y| (QREFELT $ 89))
              (QREFELT $ 204)))
   ('T
    (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |y| (QREFELT $ 24))
              (QREFELT $ 204))))) 

(DEFUN |COMPCAT-;rational?;SB;45| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82))) 

(DEFUN |COMPCAT-;rational;SF;46| (|x| $)
  (COND
   ((SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82))
    (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 208)))
   ('T (|error| "Not a rational number")))) 

(DEFUN |COMPCAT-;rationalIfCan;SU;47| (|x| $)
  (COND
   ((SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82))
    (CONS 0 (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 208))))
   ('T (CONS 1 "failed")))) 

(DEFUN |COMPCAT-;inv;2S;48| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82))
        (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 212))
                  (QREFELT $ 78)))
       ('T
        (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 19)) |COMPCAT-;inv;2S;48|)
             (EXIT
              (SPADCALL
               (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |r| (QREFELT $ 213))
               (SPADCALL
                (SPADCALL (SPADCALL |x| (QREFELT $ 89)) |r| (QREFELT $ 213))
                (QREFELT $ 107))
               (QREFELT $ 30)))))))))) 

(DEFUN |COMPCAT-;exquo;SRU;49| (|x| |r| $)
  (PROG (|r2| |r1|)
    (RETURN
     (SEQ
      (COND ((SPADCALL |r| (|spadConstant| $ 9) (QREFELT $ 119)) (CONS 0 |x|))
            (#1='T
             (SEQ
              (LETT |r1|
                    (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |r|
                              (QREFELT $ 215))
                    . #2=(|COMPCAT-;exquo;SRU;49|))
              (EXIT
               (COND ((QEQCAR |r1| 1) (CONS 1 "failed"))
                     (#1#
                      (SEQ
                       (LETT |r2|
                             (SPADCALL (SPADCALL |x| (QREFELT $ 89)) |r|
                                       (QREFELT $ 215))
                             . #2#)
                       (EXIT
                        (COND ((QEQCAR |r2| 1) (CONS 1 "failed"))
                              (#1#
                               (CONS 0
                                     (SPADCALL (QCDR |r1|) (QCDR |r2|)
                                               (QREFELT $ 30))))))))))))))))) 

(DEFUN |COMPCAT-;exquo;2SU;50| (|x| |y| $)
  (COND
   ((SPADCALL (SPADCALL |y| (QREFELT $ 89)) (QREFELT $ 82))
    (SPADCALL |x| (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 217)))
   ('T
    (SPADCALL (SPADCALL |x| (SPADCALL |y| (QREFELT $ 41)) (QREFELT $ 218))
              (SPADCALL |y| (QREFELT $ 19)) (QREFELT $ 217))))) 

(DEFUN |COMPCAT-;recip;SU;51| (|x| $)
  (SPADCALL (|spadConstant| $ 8) |x| (QREFELT $ 220))) 

(DEFUN |COMPCAT-;unitNormal;SR;52| (|x| $)
  (PROG (|c| |u|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |x| (QREFELT $ 222))
        (VECTOR (|spadConstant| $ 8) |x| (|spadConstant| $ 8)))
       (#1='T
        (SEQ
         (LETT |u| (SPADCALL |x| (QREFELT $ 223))
               . #2=(|COMPCAT-;unitNormal;SR;52|))
         (EXIT
          (COND ((QEQCAR |u| 0) (VECTOR |x| (|spadConstant| $ 8) (QCDR |u|)))
                ((SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 82))
                 (SEQ
                  (LETT |c|
                        (SPADCALL (SPADCALL |x| (QREFELT $ 89))
                                  (QREFELT $ 225))
                        . #2#)
                  (EXIT
                   (VECTOR
                    (SPADCALL (|spadConstant| $ 21) (QVELT |c| 0)
                              (QREFELT $ 30))
                    (SPADCALL
                     (SPADCALL (QVELT |c| 2) (SPADCALL |x| (QREFELT $ 89))
                               (QREFELT $ 123))
                     (QREFELT $ 78))
                    (SPADCALL (|spadConstant| $ 21)
                              (SPADCALL (QVELT |c| 2) (QREFELT $ 107))
                              (QREFELT $ 30))))))
                (#1#
                 (SEQ
                  (LETT |c|
                        (SPADCALL (SPADCALL |x| (QREFELT $ 24))
                                  (QREFELT $ 225))
                        . #2#)
                  (LETT |x| (SPADCALL (QVELT |c| 2) |x| (QREFELT $ 226)) . #2#)
                  (EXIT
                   (COND
                    ((SPADCALL (SPADCALL |x| (QREFELT $ 89))
                               (|spadConstant| $ 21) (QREFELT $ 227))
                     (SEQ
                      (LETT |x|
                            (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 89))
                                       (QREFELT $ 107))
                             (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 30))
                            . #2#)
                      (EXIT
                       (VECTOR
                        (SPADCALL
                         (SPADCALL (QVELT |c| 0) (SPADCALL (QREFELT $ 228))
                                   (QREFELT $ 226))
                         (QREFELT $ 229))
                        |x|
                        (SPADCALL (QVELT |c| 2) (SPADCALL (QREFELT $ 228))
                                  (QREFELT $ 226))))))
                    (#1#
                     (VECTOR (SPADCALL (QVELT |c| 0) (QREFELT $ 78)) |x|
                             (SPADCALL (QVELT |c| 2)
                                       (QREFELT $ 78))))))))))))))))) 

(DEFUN |COMPCAT-;unitNormal;SR;53| (|x| $)
  (PROG (|c| |u|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |x| (QREFELT $ 222))
        (VECTOR (|spadConstant| $ 8) |x| (|spadConstant| $ 8)))
       (#1='T
        (SEQ
         (LETT |u| (SPADCALL |x| (QREFELT $ 223))
               . #2=(|COMPCAT-;unitNormal;SR;53|))
         (EXIT
          (COND ((QEQCAR |u| 0) (VECTOR |x| (|spadConstant| $ 8) (QCDR |u|)))
                ((SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 82))
                 (SEQ
                  (LETT |c|
                        (SPADCALL (SPADCALL |x| (QREFELT $ 89))
                                  (QREFELT $ 225))
                        . #2#)
                  (EXIT
                   (VECTOR
                    (SPADCALL (|spadConstant| $ 21) (QVELT |c| 0)
                              (QREFELT $ 30))
                    (SPADCALL
                     (SPADCALL (QVELT |c| 2) (SPADCALL |x| (QREFELT $ 89))
                               (QREFELT $ 123))
                     (QREFELT $ 78))
                    (SPADCALL (|spadConstant| $ 21)
                              (SPADCALL (QVELT |c| 2) (QREFELT $ 107))
                              (QREFELT $ 30))))))
                (#1#
                 (SEQ
                  (LETT |c|
                        (SPADCALL (SPADCALL |x| (QREFELT $ 24))
                                  (QREFELT $ 225))
                        . #2#)
                  (LETT |x| (SPADCALL (QVELT |c| 2) |x| (QREFELT $ 226)) . #2#)
                  (EXIT
                   (VECTOR (SPADCALL (QVELT |c| 0) (QREFELT $ 78)) |x|
                           (SPADCALL (QVELT |c| 2) (QREFELT $ 78))))))))))))))) 

(DEFUN |COMPCAT-;euclideanSize;SNni;54| (|x| $)
  (MAX (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 231))
       (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 231)))) 

(DEFUN |COMPCAT-;euclideanSize;SNni;55| (|x| $)
  (SPADCALL
   (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) 2 (QREFELT $ 109))
             (SPADCALL (SPADCALL |x| (QREFELT $ 89)) 2 (QREFELT $ 109))
             (QREFELT $ 63))
   (QREFELT $ 231))) 

(DEFUN |COMPCAT-;rem;3S;56| (|x| |y| $)
  (PROG (|yr|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL (SPADCALL |y| (QREFELT $ 89)) (QREFELT $ 82))
        (SEQ (LETT |yr| (SPADCALL |y| (QREFELT $ 24)) |COMPCAT-;rem;3S;56|)
             (EXIT
              (SPADCALL
               (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |yr| (QREFELT $ 233))
               (SPADCALL (SPADCALL |x| (QREFELT $ 89)) |yr| (QREFELT $ 233))
               (QREFELT $ 30)))))
       ('T (QCDR (SPADCALL |x| |y| (QREFELT $ 234))))))))) 

(DEFUN |COMPCAT-;quo;3S;57| (|x| |y| $)
  (PROG (|xi| |xr| |yr|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL (SPADCALL |y| (QREFELT $ 89)) (QREFELT $ 82))
        (SEQ
         (LETT |yr| (SPADCALL |y| (QREFELT $ 24)) . #1=(|COMPCAT-;quo;3S;57|))
         (LETT |xr| (SPADCALL |x| (QREFELT $ 24)) . #1#)
         (LETT |xi| (SPADCALL |x| (QREFELT $ 89)) . #1#)
         (EXIT
          (SPADCALL
           (SPADCALL
            (SPADCALL |xr| (SPADCALL |xr| |yr| (QREFELT $ 233)) (QREFELT $ 27))
            |yr| (QREFELT $ 236))
           (SPADCALL
            (SPADCALL |xi| (SPADCALL |xi| |yr| (QREFELT $ 233)) (QREFELT $ 27))
            |yr| (QREFELT $ 236))
           (QREFELT $ 30)))))
       ('T (QCAR (SPADCALL |x| |y| (QREFELT $ 234))))))))) 

(DEFUN |COMPCAT-;rem;3S;58| (|x| |y| $)
  (PROG (|yr|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL (SPADCALL |y| (QREFELT $ 89)) (QREFELT $ 82))
        (SEQ (LETT |yr| (SPADCALL |y| (QREFELT $ 24)) |COMPCAT-;rem;3S;58|)
             (EXIT
              (SPADCALL
               (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |yr| (QREFELT $ 238))
               (SPADCALL (SPADCALL |x| (QREFELT $ 89)) |yr| (QREFELT $ 238))
               (QREFELT $ 30)))))
       ('T (QCDR (SPADCALL |x| |y| (QREFELT $ 234))))))))) 

(DEFUN |COMPCAT-;quo;3S;59| (|x| |y| $)
  (COND
   ((SPADCALL (SPADCALL |y| (QREFELT $ 89)) (QREFELT $ 82))
    (SPADCALL
     (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |y| (QREFELT $ 24))
               (QREFELT $ 236))
     (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (SPADCALL |y| (QREFELT $ 24))
               (QREFELT $ 236))
     (QREFELT $ 30)))
   ('T (QCAR (SPADCALL |x| |y| (QREFELT $ 234)))))) 

(DEFUN |COMPCAT-;divide;2SR;60| (|x| |y| $)
  (PROG (#1=#:G2113 |y1| |b| |x2| |a| |x1| |xx| |r|)
    (RETURN
     (SEQ
      (LETT |r| (SPADCALL |y| (QREFELT $ 19)) . #2=(|COMPCAT-;divide;2SR;60|))
      (LETT |y1| (SPADCALL |y| (QREFELT $ 41)) . #2#)
      (LETT |xx| (SPADCALL |x| |y1| (QREFELT $ 218)) . #2#)
      (LETT |x1| (SPADCALL (SPADCALL |xx| (QREFELT $ 24)) |r| (QREFELT $ 238))
            . #2#)
      (LETT |a| |x1| . #2#)
      (COND
       ((NULL (SPADCALL |x1| (|spadConstant| $ 21) (QREFELT $ 119)))
        (COND
         ((SPADCALL |r| (SPADCALL 2 |x1| (QREFELT $ 111)) (QREFELT $ 239))
          (SEQ (LETT |a| (SPADCALL |x1| |r| (QREFELT $ 27)) . #2#)
               (EXIT
                (COND
                 ((SPADCALL |x1| |a| (QREFELT $ 239))
                  (LETT |a| (SPADCALL |x1| |r| (QREFELT $ 63)) . #2#)))))))))
      (LETT |x2| (SPADCALL (SPADCALL |xx| (QREFELT $ 89)) |r| (QREFELT $ 238))
            . #2#)
      (LETT |b| |x2| . #2#)
      (COND
       ((NULL (SPADCALL |x2| (|spadConstant| $ 21) (QREFELT $ 119)))
        (COND
         ((SPADCALL |r| (SPADCALL 2 |x2| (QREFELT $ 111)) (QREFELT $ 239))
          (SEQ (LETT |b| (SPADCALL |x2| |r| (QREFELT $ 27)) . #2#)
               (EXIT
                (COND
                 ((SPADCALL |x2| |b| (QREFELT $ 239))
                  (LETT |b| (SPADCALL |x2| |r| (QREFELT $ 63)) . #2#)))))))))
      (LETT |y1|
            (PROG2
                (LETT #1#
                      (SPADCALL (SPADCALL |a| |b| (QREFELT $ 30)) |y1|
                                (QREFELT $ 220))
                      . #2#)
                (QCDR #1#)
              (|check-union| (QEQCAR #1# 0) (QREFELT $ 6) #1#))
            . #2#)
      (EXIT
       (CONS
        (PROG2
            (LETT #1#
                  (SPADCALL (SPADCALL |x| |y1| (QREFELT $ 240)) |y|
                            (QREFELT $ 220))
                  . #2#)
            (QCDR #1#)
          (|check-union| (QEQCAR #1# 0) (QREFELT $ 6) #1#))
        |y1|)))))) 

(DEFUN |COMPCAT-;atan2loc| (|y| |x| $)
  (PROG (|theta| #1=#:G2118 |pi2| |pi1|)
    (RETURN
     (SEQ (LETT |pi1| (SPADCALL (QREFELT $ 243)) . #2=(|COMPCAT-;atan2loc|))
          (LETT |pi2| (SPADCALL |pi1| (QREFELT $ 242) (QREFELT $ 123)) . #2#)
          (EXIT
           (COND
            ((SPADCALL |x| (|spadConstant| $ 21) (QREFELT $ 119))
             (COND
              ((SPADCALL |y| (|spadConstant| $ 21) (QREFELT $ 227))
               (SPADCALL |pi2| (QREFELT $ 107)))
              (#3='T |pi2|)))
            (#3#
             (SEQ
              (LETT |theta|
                    (SPADCALL
                     (SPADCALL |y|
                               (PROG2
                                   (LETT #1# (SPADCALL |x| (QREFELT $ 141))
                                         . #2#)
                                   (QCDR #1#)
                                 (|check-union| (QEQCAR #1# 0) (QREFELT $ 7)
                                                #1#))
                               (QREFELT $ 123))
                     (QREFELT $ 244))
                    . #2#)
              (SEQ G190
                   (COND
                    ((NULL
                      (COND
                       ((SPADCALL (SPADCALL |pi2| (QREFELT $ 107)) |theta|
                                  (QREFELT $ 227))
                        'NIL)
                       ('T 'T)))
                     #4=(GO G191)))
                   (SEQ
                    (EXIT
                     (LETT |theta| (SPADCALL |theta| |pi1| (QREFELT $ 63))
                           . #2#)))
                   NIL #5=(GO G190) G191 (EXIT NIL))
              (SEQ G190
                   (COND ((NULL (SPADCALL |pi2| |theta| (QREFELT $ 227))) #4#))
                   (SEQ
                    (EXIT
                     (LETT |theta| (SPADCALL |theta| |pi1| (QREFELT $ 27))
                           . #2#)))
                   NIL #5# G191 (EXIT NIL))
              (EXIT
               (COND
                ((SPADCALL |x| (|spadConstant| $ 21) (QREFELT $ 227))
                 (COND
                  ((SPADCALL |y| (|spadConstant| $ 21) (QREFELT $ 227))
                   (SPADCALL |theta| |pi1| (QREFELT $ 27)))
                  (#3# (SPADCALL |theta| |pi1| (QREFELT $ 63)))))
                (#3# |theta|))))))))))) 

(DEFUN |COMPCAT-;argument;SR;62| (|x| $)
  (|COMPCAT-;atan2loc| (SPADCALL |x| (QREFELT $ 89))
   (SPADCALL |x| (QREFELT $ 24)) $)) 

(DEFUN |COMPCAT-;argument;SR;63| (|x| $)
  (PROG (#1=#:G2118 |x1| |n1|)
    (RETURN
     (SEQ
      (LETT |n1| (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 168))
            . #2=(|COMPCAT-;argument;SR;63|))
      (LETT |x1| (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |n1| (QREFELT $ 63))
            . #2#)
      (EXIT
       (SPADCALL (SPADCALL 2 (QREFELT $ 26))
                 (SPADCALL
                  (SPADCALL (SPADCALL |x| (QREFELT $ 89))
                            (PROG2
                                (LETT #1# (SPADCALL |x1| (QREFELT $ 141))
                                      . #2#)
                                (QCDR #1#)
                              (|check-union| (QEQCAR #1# 0) (QREFELT $ 7) #1#))
                            (QREFELT $ 123))
                  (QREFELT $ 244))
                 (QREFELT $ 123))))))) 

(DEFUN |COMPCAT-;argument;SR;64| (|x| $)
  (PROG (#1=#:G2118 |x1| |n1|)
    (RETURN
     (SEQ
      (LETT |n1|
            (SPADCALL
             (SPADCALL (QREFELT $ 242)
                       (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 246))
                       (QREFELT $ 123))
             (QREFELT $ 247))
            . #2=(|COMPCAT-;argument;SR;64|))
      (LETT |x1| (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |n1| (QREFELT $ 63))
            . #2#)
      (EXIT
       (SPADCALL (SPADCALL 2 (QREFELT $ 26))
                 (SPADCALL
                  (SPADCALL (SPADCALL |x| (QREFELT $ 89))
                            (PROG2
                                (LETT #1# (SPADCALL |x1| (QREFELT $ 141))
                                      . #2#)
                                (QCDR #1#)
                              (|check-union| (QEQCAR #1# 0) (QREFELT $ 7) #1#))
                            (QREFELT $ 123))
                  (QREFELT $ 244))
                 (QREFELT $ 123))))))) 

(DEFUN |COMPCAT-;pi;S;65| ($)
  (SPADCALL (SPADCALL (QREFELT $ 243)) (QREFELT $ 78))) 

(DEFUN |COMPCAT-;exp;2S;66| (|x| $) (C-TO-S (EXP (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;log;2S;67| (|x| $) (C-TO-S (LOG (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;sin;2S;68| (|x| $) (C-TO-S (SIN (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;cos;2S;69| (|x| $) (C-TO-S (COS (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;tan;2S;70| (|x| $) (C-TO-S (TAN (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;asin;2S;71| (|x| $) (C-TO-S (ASIN (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;acos;2S;72| (|x| $) (C-TO-S (ACOS (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;atan;2S;73| (|x| $) (C-TO-S (ATAN (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;sinh;2S;74| (|x| $) (C-TO-S (SINH (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;cosh;2S;75| (|x| $) (C-TO-S (COSH (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;tanh;2S;76| (|x| $) (C-TO-S (TANH (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;asinh;2S;77| (|x| $) (C-TO-S (ASINH (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;acosh;2S;78| (|x| $) (C-TO-S (ACOSH (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;atanh;2S;79| (|x| $) (C-TO-S (ATANH (S-TO-C |x|)))) 

(DEFUN |COMPCAT-;atan;2S;80| (|x| $)
  (PROG (|ix|)
    (RETURN
     (SEQ
      (LETT |ix| (SPADCALL (SPADCALL (QREFELT $ 228)) |x| (QREFELT $ 218))
            |COMPCAT-;atan;2S;80|)
      (EXIT
       (SPADCALL
        (SPADCALL
         (SPADCALL (SPADCALL (QREFELT $ 228)) (QREFELT $ 242) (QREFELT $ 264))
         (SPADCALL
          (SPADCALL (SPADCALL (|spadConstant| $ 8) |ix| (QREFELT $ 265))
                    (QREFELT $ 266))
          (SPADCALL (SPADCALL (|spadConstant| $ 8) |ix| (QREFELT $ 240))
                    (QREFELT $ 266))
          (QREFELT $ 240))
         (QREFELT $ 218))
        (QREFELT $ 229))))))) 

(DEFUN |COMPCAT-;log;2S;81| (|x| $)
  (SPADCALL
   (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 246))
             (QREFELT $ 242) (QREFELT $ 123))
   (SPADCALL |x| (QREFELT $ 267)) (QREFELT $ 30))) 

(DEFUN |COMPCAT-;exp;2S;82| (|x| $)
  (PROG (|e|)
    (RETURN
     (SEQ
      (LETT |e| (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 247))
            |COMPCAT-;exp;2S;82|)
      (EXIT
       (SPADCALL
        (SPADCALL |e| (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 268))
                  (QREFELT $ 123))
        (SPADCALL |e| (SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 269))
                  (QREFELT $ 123))
        (QREFELT $ 30))))))) 

(DEFUN |COMPCAT-;cos;2S;83| (|x| $)
  (PROG (#1=#:G2152 |e|)
    (RETURN
     (SEQ
      (LETT |e|
            (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 228)) |x| (QREFELT $ 218))
                      (QREFELT $ 270))
            . #2=(|COMPCAT-;cos;2S;83|))
      (EXIT
       (SPADCALL (QREFELT $ 242)
                 (SPADCALL |e|
                           (PROG2
                               (LETT #1# (SPADCALL |e| (QREFELT $ 223)) . #2#)
                               (QCDR #1#)
                             (|check-union| (QEQCAR #1# 0) (QREFELT $ 6) #1#))
                           (QREFELT $ 265))
                 (QREFELT $ 226))))))) 

(DEFUN |COMPCAT-;sin;2S;84| (|x| $)
  (PROG (#1=#:G2157 |e|)
    (RETURN
     (SEQ
      (LETT |e|
            (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 228)) |x| (QREFELT $ 218))
                      (QREFELT $ 270))
            . #2=(|COMPCAT-;sin;2S;84|))
      (EXIT
       (SPADCALL
        (SPADCALL
         (SPADCALL (SPADCALL (QREFELT $ 228)) (QREFELT $ 242) (QREFELT $ 264))
         (SPADCALL |e|
                   (PROG2
                       (LETT #1# (SPADCALL |e| (QREFELT $ 223)) . #2#)
                       (QCDR #1#)
                     (|check-union| (QEQCAR #1# 0) (QREFELT $ 6) #1#))
                   (QREFELT $ 240))
         (QREFELT $ 218))
        (QREFELT $ 229))))))) 

(DEFUN |COMPCAT-;polarCoordinates;SR;85| (|x| $)
  (PROG (|t|)
    (RETURN
     (CONS (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 168))
           (COND
            ((SPADCALL
              (LETT |t| (SPADCALL |x| (QREFELT $ 267))
                    |COMPCAT-;polarCoordinates;SR;85|)
              (QREFELT $ 271))
             (SPADCALL |t|
                       (SPADCALL 2 (SPADCALL (QREFELT $ 243)) (QREFELT $ 111))
                       (QREFELT $ 63)))
            ('T |t|)))))) 

(DEFUN |COMPCAT-;^;SFS;86| (|x| |q| $)
  (PROG (|tx| |ax| |rx|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |q| (QREFELT $ 274))
        (COND ((SPADCALL |x| (QREFELT $ 222)) (|error| "0 ^ 0 is undefined"))
              (#1='T (|spadConstant| $ 8))))
       ((SPADCALL |x| (QREFELT $ 222)) (|spadConstant| $ 20))
       (#1#
        (SEQ
         (LETT |rx| (SPADCALL |x| (QREFELT $ 24)) . #2=(|COMPCAT-;^;SFS;86|))
         (COND
          ((SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82))
           (COND
            ((SPADCALL |rx| (QREFELT $ 275))
             (EXIT
              (SPADCALL (SPADCALL |rx| |q| (QREFELT $ 276))
                        (QREFELT $ 78)))))))
         (COND
          ((SPADCALL (SPADCALL |x| (QREFELT $ 89)) (QREFELT $ 82))
           (COND
            ((EQL (SPADCALL |q| (QREFELT $ 277)) 2)
             (EXIT
              (SPADCALL (|spadConstant| $ 21)
                        (SPADCALL (SPADCALL |rx| (QREFELT $ 107)) |q|
                                  (QREFELT $ 276))
                        (QREFELT $ 30)))))))
         (LETT |ax|
               (SPADCALL
                (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 168)) |q|
                (QREFELT $ 276))
               . #2#)
         (LETT |tx|
               (SPADCALL (SPADCALL |q| (QREFELT $ 278))
                         (SPADCALL |x| (QREFELT $ 267)) (QREFELT $ 123))
               . #2#)
         (EXIT
          (SPADCALL
           (SPADCALL |ax| (SPADCALL |tx| (QREFELT $ 268)) (QREFELT $ 123))
           (SPADCALL |ax| (SPADCALL |tx| (QREFELT $ 269)) (QREFELT $ 123))
           (QREFELT $ 30)))))))))) 

(DEFUN |COMPCAT-;^;SFS;87| (|x| |q| $)
  (PROG (|e| |t| #1=#:G2118 |i| |r|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |q| (QREFELT $ 274))
        (COND ((SPADCALL |x| (QREFELT $ 222)) (|error| "0 ^ 0 is undefined"))
              (#2='T (|spadConstant| $ 8))))
       (#2#
        (SEQ
         (LETT |r| (SPADCALL |x| (QREFELT $ 24)) . #3=(|COMPCAT-;^;SFS;87|))
         (EXIT
          (COND
           ((SPADCALL (LETT |i| (SPADCALL |x| (QREFELT $ 89)) . #3#)
                      (QREFELT $ 82))
            (SPADCALL (SPADCALL |r| |q| (QREFELT $ 276)) (QREFELT $ 78)))
           (#2#
            (SEQ
             (LETT |t|
                   (SPADCALL
                    (SPADCALL (SPADCALL |q| (QREFELT $ 280))
                              (PROG2
                                  (LETT #1#
                                        (SPADCALL
                                         (SPADCALL
                                          (SPADCALL |q| (QREFELT $ 277))
                                          (QREFELT $ 26))
                                         (QREFELT $ 141))
                                        . #3#)
                                  (QCDR #1#)
                                (|check-union| (QEQCAR #1# 0) (QREFELT $ 7)
                                               #1#))
                              (QREFELT $ 127))
                    (SPADCALL |x| (QREFELT $ 267)) (QREFELT $ 123))
                   . #3#)
             (LETT |e|
                   (COND
                    ((SPADCALL |r| (QREFELT $ 82))
                     (SPADCALL |i| |q| (QREFELT $ 276)))
                    (#2#
                     (SPADCALL (SPADCALL |x| (QREFELT $ 19))
                               (SPADCALL |q| (SPADCALL 2 (QREFELT $ 281))
                                         (QREFELT $ 282))
                               (QREFELT $ 276))))
                   . #3#)
             (EXIT
              (SPADCALL
               (SPADCALL |e| (SPADCALL |t| (QREFELT $ 268)) (QREFELT $ 123))
               (SPADCALL |e| (SPADCALL |t| (QREFELT $ 269)) (QREFELT $ 123))
               (QREFELT $ 30)))))))))))))) 

(DEFUN |ComplexCategory&| (|#1| |#2|)
  (PROG (#1=#:G2118 |pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #2=(|ComplexCategory&|))
      (LETT DV$2 (|devaluate| |#2|) . #2#)
      (LETT |dv$| (LIST '|ComplexCategory&| DV$1 DV$2) . #2#)
      (LETT $ (GETREFV 289) . #2#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (|HasCategory| |#2|
                                                         '(|PolynomialFactorizationExplicit|))
                                          (|HasCategory| |#2|
                                                         '(|IntegerNumberSystem|))
                                          (|HasCategory| |#2|
                                                         '(|RadicalCategory|))
                                          (|HasCategory| |#2|
                                                         '(|TranscendentalFunctionCategory|))
                                          (|HasCategory| |#2|
                                                         '(|RealNumberSystem|))
                                          (|HasCategory| |#2|
                                                         '(|RealConstant|))
                                          (|HasCategory| |#2|
                                                         '(|CharacteristicNonZero|))
                                          (|HasCategory| |#2|
                                                         '(|CharacteristicZero|))
                                          (|HasCategory| |#2|
                                                         '(|ConvertibleTo|
                                                           (|InputForm|)))
                                          (|HasCategory| |#2| '(|Field|))
                                          (|HasCategory| |#2|
                                                         '(|additiveValuation|))
                                          (|HasCategory| |#2|
                                                         '(|multiplicativeValuation|))
                                          (|HasCategory| |#2|
                                                         '(|EuclideanDomain|))
                                          (|HasCategory| |#2|
                                                         '(|IntegralDomain|))
                                          (|HasCategory| |#2|
                                                         '(|Comparable|))))
                      . #2#))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (COND
       ((|testBitVector| |pv$| 1)
        (COND
         ((|testBitVector| |pv$| 13)
          (PROGN
           (COND
            ((|testBitVector| |pv$| 2)
             (PROGN
              (QSETREFV $ 39
                        (CONS
                         (|dispatchFunction|
                          |COMPCAT-;solveLinearPolynomialEquation;LSupU;3|)
                         $)))))
           NIL
           (QSETREFV $ 56
                     (CONS
                      (|dispatchFunction| |COMPCAT-;factorPolynomial;SupF;5|)
                      $))
           (QSETREFV $ 87
                     (CONS
                      (|dispatchFunction|
                       |COMPCAT-;factorSquareFreePolynomial;SupF;6|)
                      $)))))))
      (COND
       ((|testBitVector| |pv$| 2)
        (PROGN
         (QSETREFV $ 101 (CONS (|dispatchFunction| |COMPCAT-;factor;SF;7|) $))
         (QSETREFV $ 103
                   (CONS (|dispatchFunction| |COMPCAT-;squareFree;SF;8|) $))
         (QSETREFV $ 105
                   (CONS (|dispatchFunction| |COMPCAT-;prime?;SB;9|) $)))))
      (COND
       ((|testBitVector| |pv$| 5)
        (QSETREFV $ 169 (CONS (|dispatchFunction| |COMPCAT-;abs;2S;36|) $))))
      (COND
       ((|testBitVector| |pv$| 6)
        (PROGN
         (QSETREFV $ 174
                   (CONS (|dispatchFunction| |COMPCAT-;convert;SC;37|) $))
         (QSETREFV $ 179
                   (CONS (|dispatchFunction| |COMPCAT-;convert;SC;38|) $)))))
      (COND
       ((|testBitVector| |pv$| 9)
        (QSETREFV $ 185
                  (CONS (|dispatchFunction| |COMPCAT-;convert;SIf;39|) $))))
      (COND
       ((|HasCategory| |#2| '(|ConvertibleTo| (|Pattern| (|Integer|))))
        (QSETREFV $ 189
                  (CONS (|dispatchFunction| |COMPCAT-;convert;SP;40|) $))))
      (COND
       ((|HasCategory| |#2| '(|ConvertibleTo| (|Pattern| (|Float|))))
        (QSETREFV $ 193
                  (CONS (|dispatchFunction| |COMPCAT-;convert;SP;41|) $))))
      (COND
       ((|HasCategory| |#2| '(|PatternMatchable| (|Integer|)))
        (QSETREFV $ 198
                  (CONS (|dispatchFunction| |COMPCAT-;patternMatch;SP2Pmr;42|)
                        $))))
      (COND
       ((|HasCategory| |#2| '(|PatternMatchable| (|Float|)))
        (QSETREFV $ 203
                  (CONS (|dispatchFunction| |COMPCAT-;patternMatch;SP2Pmr;43|)
                        $))))
      (COND
       ((|testBitVector| |pv$| 15)
        (QSETREFV $ 205
                  (CONS (|dispatchFunction| |COMPCAT-;smaller?;2SB;44|) $))))
      (COND
       ((|testBitVector| |pv$| 2)
        (PROGN
         (QSETREFV $ 206
                   (CONS (|dispatchFunction| |COMPCAT-;rational?;SB;45|) $))
         (QSETREFV $ 209
                   (CONS (|dispatchFunction| |COMPCAT-;rational;SF;46|) $))
         (QSETREFV $ 211
                   (CONS (|dispatchFunction| |COMPCAT-;rationalIfCan;SU;47|)
                         $)))))
      (COND
       ((|testBitVector| |pv$| 10)
        (QSETREFV $ 214 (CONS (|dispatchFunction| |COMPCAT-;inv;2S;48|) $))))
      (COND
       ((|testBitVector| |pv$| 14)
        (PROGN
         (QSETREFV $ 216 (CONS (|dispatchFunction| |COMPCAT-;exquo;SRU;49|) $))
         (QSETREFV $ 219 (CONS (|dispatchFunction| |COMPCAT-;exquo;2SU;50|) $))
         (QSETREFV $ 221 (CONS (|dispatchFunction| |COMPCAT-;recip;SU;51|) $))
         (COND
          ((|HasCategory| |#2| '(|OrderedRing|))
           (QSETREFV $ 230
                     (CONS (|dispatchFunction| |COMPCAT-;unitNormal;SR;52|)
                           $)))
          ('T
           (QSETREFV $ 230
                     (CONS (|dispatchFunction| |COMPCAT-;unitNormal;SR;53|)
                           $)))))))
      (COND
       ((|testBitVector| |pv$| 13)
        (PROGN
         (COND
          ((|testBitVector| |pv$| 11)
           (QSETREFV $ 232
                     (CONS
                      (|dispatchFunction| |COMPCAT-;euclideanSize;SNni;54|)
                      $)))
          ('T
           (QSETREFV $ 232
                     (CONS
                      (|dispatchFunction| |COMPCAT-;euclideanSize;SNni;55|)
                      $))))
         (COND
          ((|testBitVector| |pv$| 2)
           (PROGN
            (QSETREFV $ 235 (CONS (|dispatchFunction| |COMPCAT-;rem;3S;56|) $))
            (QSETREFV $ 237
                      (CONS (|dispatchFunction| |COMPCAT-;quo;3S;57|) $))))
          ('T
           (PROGN
            (QSETREFV $ 235 (CONS (|dispatchFunction| |COMPCAT-;rem;3S;58|) $))
            (QSETREFV $ 237
                      (CONS (|dispatchFunction| |COMPCAT-;quo;3S;59|) $)))))
         (QSETREFV $ 241
                   (CONS (|dispatchFunction| |COMPCAT-;divide;2SR;60|) $)))))
      (COND
       ((|testBitVector| |pv$| 4)
        (PROGN
         (QSETREFV $ 242
                   (PROG2
                       (LETT #1#
                             (SPADCALL (SPADCALL 2 (QREFELT $ 26))
                                       (QREFELT $ 141))
                             . #2#)
                       (QCDR #1#)
                     (|check-union| (QEQCAR #1# 0) |#2| #1#)))
         (COND
          ((|testBitVector| |pv$| 5)
           (PROGN
            (QSETREFV $ 245
                      (CONS (|dispatchFunction| |COMPCAT-;argument;SR;62|)
                            $))))
          ((|testBitVector| |pv$| 3)
           (QSETREFV $ 245
                     (CONS (|dispatchFunction| |COMPCAT-;argument;SR;63|) $)))
          ('T
           (QSETREFV $ 245
                     (CONS (|dispatchFunction| |COMPCAT-;argument;SR;64|) $))))
         (QSETREFV $ 248 (CONS (|dispatchFunction| |COMPCAT-;pi;S;65|) $))
         (COND
          ((|domainEqual| |#2| (|DoubleFloat|))
           (PROGN
            (QSETREFV $ 249 (CONS (|dispatchFunction| |COMPCAT-;exp;2S;66|) $))
            (QSETREFV $ 250 (CONS (|dispatchFunction| |COMPCAT-;log;2S;67|) $))
            (QSETREFV $ 251 (CONS (|dispatchFunction| |COMPCAT-;sin;2S;68|) $))
            (QSETREFV $ 252 (CONS (|dispatchFunction| |COMPCAT-;cos;2S;69|) $))
            (QSETREFV $ 253 (CONS (|dispatchFunction| |COMPCAT-;tan;2S;70|) $))
            (QSETREFV $ 254
                      (CONS (|dispatchFunction| |COMPCAT-;asin;2S;71|) $))
            (QSETREFV $ 255
                      (CONS (|dispatchFunction| |COMPCAT-;acos;2S;72|) $))
            (QSETREFV $ 256
                      (CONS (|dispatchFunction| |COMPCAT-;atan;2S;73|) $))
            (QSETREFV $ 257
                      (CONS (|dispatchFunction| |COMPCAT-;sinh;2S;74|) $))
            (QSETREFV $ 258
                      (CONS (|dispatchFunction| |COMPCAT-;cosh;2S;75|) $))
            (QSETREFV $ 259
                      (CONS (|dispatchFunction| |COMPCAT-;tanh;2S;76|) $))
            (QSETREFV $ 260
                      (CONS (|dispatchFunction| |COMPCAT-;asinh;2S;77|) $))
            (QSETREFV $ 261
                      (CONS (|dispatchFunction| |COMPCAT-;acosh;2S;78|) $))
            (QSETREFV $ 262
                      (CONS (|dispatchFunction| |COMPCAT-;atanh;2S;79|) $))))
          ('T
           (PROGN
            (QSETREFV $ 256
                      (CONS (|dispatchFunction| |COMPCAT-;atan;2S;80|) $))
            (QSETREFV $ 250 (CONS (|dispatchFunction| |COMPCAT-;log;2S;81|) $))
            (QSETREFV $ 249 (CONS (|dispatchFunction| |COMPCAT-;exp;2S;82|) $))
            (QSETREFV $ 252 (CONS (|dispatchFunction| |COMPCAT-;cos;2S;83|) $))
            (QSETREFV $ 251
                      (CONS (|dispatchFunction| |COMPCAT-;sin;2S;84|) $)))))
         (COND
          ((|testBitVector| |pv$| 5)
           (PROGN
            (QSETREFV $ 273
                      (CONS
                       (|dispatchFunction| |COMPCAT-;polarCoordinates;SR;85|)
                       $))
            (QSETREFV $ 279
                      (CONS (|dispatchFunction| |COMPCAT-;^;SFS;86|) $))))
          ((|testBitVector| |pv$| 3)
           (QSETREFV $ 279
                     (CONS (|dispatchFunction| |COMPCAT-;^;SFS;87|) $)))))))
      $)))) 

(MAKEPROP '|ComplexCategory&| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) (0 . |One|)
              (4 . |One|) (|NonNegativeInteger|)
              (|SparseUnivariatePolynomial| 7) (8 . |monomial|)
              (|PositiveInteger|) (14 . ^) (20 . |trace|) (25 . ^) (31 . *)
              (37 . -) (43 . |norm|) (48 . |Zero|) (52 . |Zero|) (56 . +)
              |COMPCAT-;characteristicPolynomial;SSup;1| (62 . |real|)
              (|Integer|) (67 . |coerce|) (72 . -) (|Boolean|) (78 . |prime?|)
              (83 . |complex|) (|Union| 32 '"failed") (|List| 33)
              (|SparseUnivariatePolynomial| 6)
              (|ComplexIntegerSolveLinearPolynomialEquation| 7 6)
              (89 . |solveLinearPolynomialEquation|) (|Union| 37 '"failed")
              (|List| 38) (|SparseUnivariatePolynomial| $)
              (95 . |solveLinearPolynomialEquation|) (101 . |retract|)
              (106 . |conjugate|) (|Mapping| 6 6) (111 . |map|) (117 . *)
              (|Mapping| 7 6)
              (|UnivariatePolynomialCategoryFunctions2| 6 33 7 11)
              (123 . |map|) (|Factored| $) (129 . |squareFree|) (|Factored| 38)
              (134 . |factorSquareFreePolynomial|) (|Factored| 33)
              (|Mapping| 52 33) (|FactoredFunctionUtilities| 33)
              (139 . |refine|) (145 . |factorPolynomial|) (150 . |Zero|)
              (154 . |Zero|) (158 . |Zero|) (162 . |differentiate|)
              (167 . |gcd|) (173 . |degree|) (178 . +) (184 . |monomial|)
              (190 . -) (196 . |elt|) (202 . |factorSquareFreePolynomial|)
              (|Factored| 11) (207 . |numberOfFactors|) (212 . |One|)
              (|Union| '"nil" '"sqfr" '"irred" '"prime")
              (|Record| (|:| |flg| 71) (|:| |fctr| 33) (|:| |xpnt| 25))
              (|List| 72) (216 . |makeFR|)
              (|Record| (|:| |flg| 71) (|:| |fctr| 11) (|:| |xpnt| 25))
              (|List| 75) (222 . |factorList|) (227 . |coerce|) (|Mapping| 6 7)
              (|UnivariatePolynomialCategoryFunctions2| 7 11 6 33)
              (232 . |map|) (238 . |zero?|) (243 . +) (249 . |gcd|)
              (|Union| $ '"failed") (255 . |exquo|)
              (261 . |factorSquareFreePolynomial|) (266 . |convert|)
              (271 . |imag|) (|Complex| 25) (276 . |complex|) (|Factored| 90)
              (|GaussianFactorizationPackage|) (282 . |factor|) (287 . |real|)
              (292 . |imag|) (|Factored| 6) (|Mapping| 6 90)
              (|FactoredFunctions2| 90 6) (297 . |map|) (303 . |factor|)
              (308 . |factor|) (313 . |squareFree|) (318 . |prime?|)
              (323 . |prime?|) |COMPCAT-;rank;Pi;10| (328 . -)
              |COMPCAT-;discriminant;R;11| (333 . ^) |COMPCAT-;norm;SR;12|
              (339 . *) |COMPCAT-;trace;SR;13| |COMPCAT-;imaginary;S;14|
              |COMPCAT-;conjugate;2S;15| (345 . |characteristic|)
              |COMPCAT-;characteristic;Nni;16| (|Mapping| 7 7)
              |COMPCAT-;map;M2S;17| (349 . =) |COMPCAT-;=;2SB;18|
              |COMPCAT-;+;3S;19| |COMPCAT-;-;2S;20| (355 . *)
              |COMPCAT-;*;R2S;21| (|Vector| 7) |COMPCAT-;coordinates;SV;22|
              (361 . *) |COMPCAT-;*;I2S;23| |COMPCAT-;differentiate;SMS;24|
              |COMPCAT-;definingPolynomial;Sup;25| (367 . |definingPolynomial|)
              (|Record| (|:| |quotient| $) (|:| |remainder| $))
              (371 . |monicDivide|) (377 . |coefficient|)
              |COMPCAT-;reduce;SupS;26| |COMPCAT-;lift;SSup;27|
              |COMPCAT-;minimalPolynomial;SSup;28| (|Vector| 6)
              (383 . |minIndex|) (388 . |elt|) (394 . |recip|) (|Vector| $)
              |COMPCAT-;coordinates;SVV;29| (|OutputForm|) (399 . |coerce|)
              (|Symbol|) (404 . |coerce|) (409 . -) (414 . *) (420 . +)
              |COMPCAT-;coerce;SOf;30| |COMPCAT-;retract;SR;31|
              (|Union| 7 '"failed") |COMPCAT-;retractIfCan;SU;32|
              |COMPCAT-;*;3S;33| (|Matrix| 7) (|Matrix| 6)
              (|MatrixCategoryFunctions2| 6 138 138 157 7 125 125 156)
              (426 . |map|) (432 . |vertConcat|) (|Matrix| $)
              |COMPCAT-;reducedSystem;MM;34| (438 . |coerce|)
              (443 . |reducedSystem|) (448 . |column|)
              (|Record| (|:| |mat| 156) (|:| |vec| 125))
              |COMPCAT-;reducedSystem;MVR;35| (454 . |sqrt|) (459 . |abs|)
              (|DoubleFloat|) (464 . |convert|) (|Complex| 170)
              (469 . |complex|) (475 . |convert|) (|Float|) (480 . |convert|)
              (|Complex| 175) (485 . |complex|) (491 . |convert|) (|InputForm|)
              (496 . |convert|) (501 . |convert|) (|List| $) (506 . |convert|)
              (511 . |convert|) (|Pattern| 25) (|ComplexPattern| 25 7 6)
              (516 . |convert|) (521 . |convert|) (|Pattern| 175)
              (|ComplexPattern| 175 7 6) (526 . |convert|) (531 . |convert|)
              (|PatternMatchResult| 25 6) (|ComplexPatternMatch| 25 7 6)
              (536 . |patternMatch|) (|PatternMatchResult| 25 $)
              (543 . |patternMatch|) (|PatternMatchResult| 175 6)
              (|ComplexPatternMatch| 175 7 6) (550 . |patternMatch|)
              (|PatternMatchResult| 175 $) (557 . |patternMatch|)
              (564 . |smaller?|) (570 . |smaller?|) (576 . |rational?|)
              (|Fraction| 25) (581 . |rational|) (586 . |rational|)
              (|Union| 207 '"failed") (591 . |rationalIfCan|) (596 . |inv|)
              (601 . /) (607 . |inv|) (612 . |exquo|) (618 . |exquo|)
              (624 . |exquo|) (630 . *) (636 . |exquo|) (642 . |exquo|)
              (648 . |recip|) (653 . |zero?|) (658 . |recip|)
              (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $))
              (663 . |unitNormal|) (668 . *) (674 . <) (680 . |imaginary|)
              (684 . -) (689 . |unitNormal|) (694 . |euclideanSize|)
              (699 . |euclideanSize|) (704 . |symmetricRemainder|)
              (710 . |divide|) (716 . |rem|) (722 . |quo|) (728 . |quo|)
              (734 . |rem|) (740 . |sizeLess?|) (746 . -) (752 . |divide|)
              '|half| (758 . |pi|) (762 . |atan|) (767 . |argument|)
              (772 . |log|) (777 . |exp|) (782 . |pi|) (786 . |exp|)
              (791 . |log|) (796 . |sin|) (801 . |cos|) (806 . |tan|)
              (811 . |asin|) (816 . |acos|) (821 . |atan|) (826 . |sinh|)
              (831 . |cosh|) (836 . |tanh|) (841 . |asinh|) (846 . |acosh|)
              (851 . |atanh|) (856 . |imaginary|) (860 . *) (866 . +)
              (872 . |log|) (877 . |argument|) (882 . |cos|) (887 . |sin|)
              (892 . |exp|) (897 . |negative?|)
              (|Record| (|:| |r| 7) (|:| |phi| 7)) (902 . |polarCoordinates|)
              (907 . |zero?|) (912 . |positive?|) (917 . ^) (923 . |denom|)
              (928 . |coerce|) (933 . ^) (939 . |numer|) (944 . |coerce|)
              (949 . /) (|List| 146) (|List| 10) (|Fraction| 11)
              (|Record| (|:| |mat| 287) (|:| |vec| (|Vector| 25)))
              (|Matrix| 25) (|Union| 25 '"failed"))
           '#(|unitNormal| 955 |trace| 960 |tanh| 965 |tan| 970 |squareFree|
              975 |solveLinearPolynomialEquation| 980 |smaller?| 986 |sinh| 992
              |sin| 997 |retractIfCan| 1002 |retract| 1007 |rem| 1012
              |reducedSystem| 1018 |reduce| 1029 |recip| 1034 |rationalIfCan|
              1039 |rational?| 1044 |rational| 1049 |rank| 1054 |quo| 1058
              |prime?| 1064 |polarCoordinates| 1069 |pi| 1074 |patternMatch|
              1078 |norm| 1092 |minimalPolynomial| 1097 |map| 1102 |log| 1108
              |lift| 1113 |inv| 1118 |imaginary| 1123
              |factorSquareFreePolynomial| 1127 |factorPolynomial| 1132
              |factor| 1137 |exquo| 1142 |exp| 1154 |euclideanSize| 1159
              |divide| 1164 |discriminant| 1170 |differentiate| 1174
              |definingPolynomial| 1180 |cosh| 1184 |cos| 1189 |coordinates|
              1194 |convert| 1205 |conjugate| 1230 |coerce| 1235
              |characteristicPolynomial| 1240 |characteristic| 1245 |atanh|
              1249 |atan| 1254 |asinh| 1259 |asin| 1264 |argument| 1269 |acosh|
              1274 |acos| 1279 |abs| 1284 ^ 1289 = 1295 - 1301 + 1306 * 1312)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 282
                                                 '(0 6 0 8 0 7 0 9 2 11 0 7 10
                                                   12 2 11 0 0 13 14 1 6 7 0 15
                                                   2 11 0 0 10 16 2 11 0 7 0 17
                                                   2 11 0 0 0 18 1 6 7 0 19 0 6
                                                   0 20 0 7 0 21 2 11 0 0 0 22
                                                   1 6 7 0 24 1 7 0 25 26 2 7 0
                                                   0 0 27 1 7 28 0 29 2 6 0 7 7
                                                   30 2 34 31 32 33 35 2 0 36
                                                   37 38 39 1 6 7 0 40 1 6 0 0
                                                   41 2 33 0 42 0 43 2 33 0 0 0
                                                   44 2 46 11 45 33 47 1 33 48
                                                   0 49 1 6 50 38 51 2 54 52 52
                                                   53 55 1 0 50 38 56 0 33 0 57
                                                   0 52 0 58 0 11 0 59 1 11 0 0
                                                   60 2 11 0 0 0 61 1 11 10 0
                                                   62 2 7 0 0 0 63 2 33 0 6 10
                                                   64 2 33 0 0 0 65 2 33 0 0 0
                                                   66 1 7 50 38 67 1 68 10 0 69
                                                   0 33 0 70 2 52 0 33 73 74 1
                                                   68 76 0 77 1 6 0 7 78 2 80
                                                   33 79 11 81 1 7 28 0 82 2 33
                                                   0 0 0 83 2 33 0 0 0 84 2 33
                                                   85 0 0 86 1 0 50 38 87 1 7
                                                   25 0 88 1 6 7 0 89 2 90 0 25
                                                   25 91 1 93 92 90 94 1 90 25
                                                   0 95 1 90 25 0 96 2 99 97 98
                                                   92 100 1 0 48 0 101 1 6 48 0
                                                   102 1 0 48 0 103 1 93 28 90
                                                   104 1 0 28 0 105 1 7 0 0 107
                                                   2 7 0 0 13 109 2 7 0 13 0
                                                   111 0 7 10 115 2 7 28 0 0
                                                   119 2 7 0 0 0 123 2 7 0 25 0
                                                   127 0 6 11 131 2 11 132 0 0
                                                   133 2 11 7 0 10 134 1 138 25
                                                   0 139 2 138 6 0 25 140 1 7
                                                   85 0 141 1 7 144 0 145 1 146
                                                   144 0 147 1 144 0 0 148 2
                                                   144 0 0 0 149 2 144 0 0 0
                                                   150 2 158 156 45 157 159 2
                                                   156 0 0 0 160 1 157 0 138
                                                   163 1 6 156 161 164 2 156
                                                   125 0 25 165 1 7 0 0 168 1 0
                                                   0 0 169 1 7 170 0 171 2 172
                                                   0 170 170 173 1 0 172 0 174
                                                   1 7 175 0 176 2 177 0 175
                                                   175 178 1 0 177 0 179 1 180
                                                   0 146 181 1 7 180 0 182 1
                                                   180 0 183 184 1 0 180 0 185
                                                   1 187 186 6 188 1 0 186 0
                                                   189 1 191 190 6 192 1 0 190
                                                   0 193 3 195 194 6 186 194
                                                   196 3 0 197 0 186 197 198 3
                                                   200 199 6 190 199 201 3 0
                                                   202 0 190 202 203 2 7 28 0 0
                                                   204 2 0 28 0 0 205 1 0 28 0
                                                   206 1 7 207 0 208 1 0 207 0
                                                   209 1 0 210 0 211 1 7 0 0
                                                   212 2 7 0 0 0 213 1 0 0 0
                                                   214 2 7 85 0 0 215 2 0 85 0
                                                   7 216 2 6 85 0 7 217 2 6 0 0
                                                   0 218 2 0 85 0 0 219 2 6 85
                                                   0 0 220 1 0 85 0 221 1 6 28
                                                   0 222 1 6 85 0 223 1 7 224 0
                                                   225 2 6 0 7 0 226 2 7 28 0 0
                                                   227 0 6 0 228 1 6 0 0 229 1
                                                   0 224 0 230 1 7 10 0 231 1 0
                                                   10 0 232 2 7 0 0 0 233 2 6
                                                   132 0 0 234 2 0 0 0 0 235 2
                                                   7 0 0 0 236 2 0 0 0 0 237 2
                                                   7 0 0 0 238 2 7 28 0 0 239 2
                                                   6 0 0 0 240 2 0 132 0 0 241
                                                   0 7 0 243 1 7 0 0 244 1 0 7
                                                   0 245 1 7 0 0 246 1 7 0 0
                                                   247 0 0 0 248 1 0 0 0 249 1
                                                   0 0 0 250 1 0 0 0 251 1 0 0
                                                   0 252 1 0 0 0 253 1 0 0 0
                                                   254 1 0 0 0 255 1 0 0 0 256
                                                   1 0 0 0 257 1 0 0 0 258 1 0
                                                   0 0 259 1 0 0 0 260 1 0 0 0
                                                   261 1 0 0 0 262 0 0 6 263 2
                                                   6 0 0 7 264 2 6 0 0 0 265 1
                                                   6 0 0 266 1 6 7 0 267 1 7 0
                                                   0 268 1 7 0 0 269 1 6 0 0
                                                   270 1 7 28 0 271 1 0 272 0
                                                   273 1 207 28 0 274 1 7 28 0
                                                   275 2 7 0 0 207 276 1 207 25
                                                   0 277 1 7 0 207 278 2 0 0 0
                                                   207 279 1 207 25 0 280 1 207
                                                   0 25 281 2 207 0 0 0 282 1 0
                                                   224 0 230 1 0 7 0 112 1 0 0
                                                   0 259 1 0 0 0 253 1 0 48 0
                                                   103 2 0 36 37 38 39 2 0 28 0
                                                   0 205 1 0 0 0 257 1 0 0 0
                                                   251 1 0 153 0 154 1 0 7 0
                                                   152 2 0 0 0 0 235 1 0 156
                                                   161 162 2 0 166 161 142 167
                                                   1 0 0 11 135 1 0 85 0 221 1
                                                   0 210 0 211 1 0 28 0 206 1 0
                                                   207 0 209 0 0 13 106 2 0 0 0
                                                   0 237 1 0 28 0 105 1 0 272 0
                                                   273 0 0 0 248 3 0 202 0 190
                                                   202 203 3 0 197 0 186 197
                                                   198 1 0 7 0 110 1 0 11 0 137
                                                   2 0 0 117 0 118 1 0 0 0 250
                                                   1 0 11 0 136 1 0 0 0 214 0 0
                                                   0 113 1 0 50 38 87 1 0 50 38
                                                   56 1 0 48 0 101 2 0 85 0 0
                                                   219 2 0 85 0 7 216 1 0 0 0
                                                   249 1 0 10 0 232 2 0 132 0 0
                                                   241 0 0 7 108 2 0 0 0 117
                                                   129 0 0 11 130 1 0 0 0 258 1
                                                   0 0 0 252 1 0 125 0 126 2 0
                                                   125 0 142 143 1 0 172 0 174
                                                   1 0 180 0 185 1 0 177 0 179
                                                   1 0 186 0 189 1 0 190 0 193
                                                   1 0 0 0 114 1 0 144 0 151 1
                                                   0 11 0 23 0 0 10 116 1 0 0 0
                                                   262 1 0 0 0 256 1 0 0 0 260
                                                   1 0 0 0 254 1 0 7 0 245 1 0
                                                   0 0 261 1 0 0 0 255 1 0 0 0
                                                   169 2 0 0 0 207 279 2 0 28 0
                                                   0 120 1 0 0 0 122 2 0 0 0 0
                                                   121 2 0 0 7 0 124 2 0 0 25 0
                                                   128 2 0 0 0 0 155)))))
           '|lookupComplete|)) 
