
(/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))
                 . #0=(|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)) . #0#)))
                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 (CONS #'|COMPCAT-;normPolynomial!0| $)
      (SPADCALL |pp| (SPADCALL (ELT $ 41) |pp| (QREFELT $ 43))
          (QREFELT $ 44))
      (QREFELT $ 47))) 

(DEFUN |COMPCAT-;normPolynomial!0| (|#1| $)
  (SPADCALL |#1| (QREFELT $ 40))) 

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

(DEFUN |COMPCAT-;factorSquareFreePolynomial;SupF;6| (|pp| $)
  (PROG (|k| |pnorm| |fR| |u| #0=#:G1916 |p1| |p2| |lF| #1=#:G1909)
    (RETURN
      (SEQ (LETT |pnorm| (|COMPCAT-;normPolynomial| |pp| $)
                 . #2=(|COMPCAT-;factorSquareFreePolynomial;SupF;6|))
           (LETT |k| (|spadConstant| $ 21) . #2#)
           (SEQ G190
                (COND
                  ((NULL (< 0
                            (SPADCALL
                                (SPADCALL |pnorm|
                                    (SPADCALL |pnorm| (QREFELT $ 57))
                                    (QREFELT $ 58))
                                (QREFELT $ 62))))
                   #3=(GO G191)))
                (SEQ (LETT |k|
                           (SPADCALL |k| (|spadConstant| $ 9)
                               (QREFELT $ 63)) . #2#)
                     (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))
                                     $) . #2#)))
                NIL #4=(GO G190) G191 (EXIT NIL))
           (LETT |fR| (SPADCALL |pnorm| (QREFELT $ 67)) . #2#)
           (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 . #2#)
                         (SEQ (LETT |u| NIL . #2#)
                              (LETT #0#
                                    (SPADCALL |fR| (QREFELT $ 77)) . #2#)
                              G190
                              (COND
                                ((OR (ATOM #0#)
                                     (PROGN
                                       (LETT |u| (CAR #0#) . #2#)
                                       NIL))
                                 #3#))
                              (SEQ (LETT |p1|
                                    (SPADCALL
                                     (CONS
                                      #'|COMPCAT-;factorSquareFreePolynomial;SupF;6!0|
                                      $)
                                     (QVELT |u| 1) (QREFELT $ 81)) . #2#)
                                   (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)) . #2#)))
                                   (LETT |p2|
                                    (SPADCALL |p1| |pp| (QREFELT $ 84)) . #2#)
                                   (LETT |lF|
                                    (CONS
                                     (VECTOR (CONS 2 "irred") |p2| 1)
                                     |lF|) . #2#)
                                   (EXIT
                                    (LETT |pp|
                                     (PROG2
                                      (LETT #1#
                                       (SPADCALL |pp| |p2|
                                        (QREFELT $ 86)) . #2#)
                                      (QCDR #1#)
                                       (|check-union| (QEQCAR #1# 0)
                                        (|SparseUnivariatePolynomial|
                                         (QREFELT $ 6))
                                        #1#)) . #2#)))
                              (LETT #0# (CDR #0#) . #2#) #4# G191
                              (EXIT NIL))
                         (EXIT (SPADCALL |pp| |lF| (QREFELT $ 74))))))))))) 

(DEFUN |COMPCAT-;factorSquareFreePolynomial;SupF;6!0| (|#1| $)
  (SPADCALL |#1| (QREFELT $ 78))) 

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

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

(DEFUN |COMPCAT-;discriminant;R;8| ($)
  (SPADCALL (SPADCALL 4 (QREFELT $ 26)) (QREFELT $ 89))) 

(DEFUN |COMPCAT-;norm;SR;9| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) 2 (QREFELT $ 91))
      (SPADCALL (SPADCALL |x| (QREFELT $ 92)) 2 (QREFELT $ 91))
      (QREFELT $ 63))) 

(DEFUN |COMPCAT-;trace;SR;10| (|x| $)
  (SPADCALL 2 (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 94))) 

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

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

(DEFUN |COMPCAT-;characteristic;Nni;13| ($) (SPADCALL (QREFELT $ 98))) 

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

(DEFUN |COMPCAT-;=;2SB;15| (|x| |y| $)
  (COND
    ((SPADCALL (SPADCALL |x| (QREFELT $ 24))
         (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 102))
     (SPADCALL (SPADCALL |x| (QREFELT $ 92))
         (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 102)))
    ('T 'NIL))) 

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

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

(DEFUN |COMPCAT-;*;R2S;18| (|r| |x| $)
  (SPADCALL
      (SPADCALL |r| (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 106))
      (SPADCALL |r| (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 106))
      (QREFELT $ 30))) 

(DEFUN |COMPCAT-;coordinates;SV;19| (|x| $)
  (VECTOR (SPADCALL |x| (QREFELT $ 24)) (SPADCALL |x| (QREFELT $ 92)))) 

(DEFUN |COMPCAT-;*;I2S;20| (|n| |x| $)
  (SPADCALL
      (SPADCALL |n| (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 110))
      (SPADCALL |n| (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 110))
      (QREFELT $ 30))) 

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

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

(DEFUN |COMPCAT-;reduce;SupS;23| (|pol| $)
  (PROG (|part|)
    (RETURN
      (SEQ (LETT |part|
                 (QCDR (SPADCALL |pol| (SPADCALL (QREFELT $ 114))
                           (QREFELT $ 116)))
                 |COMPCAT-;reduce;SupS;23|)
           (EXIT (SPADCALL (SPADCALL |part| 0 (QREFELT $ 117))
                     (SPADCALL |part| 1 (QREFELT $ 117))
                     (QREFELT $ 30))))))) 

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

(DEFUN |COMPCAT-;minimalPolynomial;SSup;25| (|x| $)
  (COND
    ((SPADCALL (SPADCALL |x| (QREFELT $ 92)) (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;26| (|x| |v| $)
  (PROG (|a| |ra| |b| |rb| |ib| |ia| |d| #0=#:G1947 |rx| |ix|)
    (RETURN
      (SEQ (EXIT (SEQ (LETT |ra|
                            (SPADCALL
                                (LETT |a|
                                      (SPADCALL |v|
                                       (SPADCALL |v| (QREFELT $ 122))
                                       (QREFELT $ 123))
                                      . #1=(|COMPCAT-;coordinates;SVV;26|))
                                (QREFELT $ 24)) . #1#)
                      (LETT |rb|
                            (SPADCALL
                                (LETT |b|
                                      (SPADCALL |v| (QVSIZE |v|)
                                       (QREFELT $ 123)) . #1#)
                                (QREFELT $ 24)) . #1#)
                      (COND
                        ((EQL (QVSIZE |v|) 2)
                         (SEQ (LETT |d|
                                    (SPADCALL
                                     (SPADCALL
                                      (SPADCALL |ra|
                                       (LETT |ib|
                                        (SPADCALL |b| (QREFELT $ 92)) . #1#)
                                       (QREFELT $ 106))
                                      (SPADCALL
                                       (LETT |ia|
                                        (SPADCALL |a| (QREFELT $ 92)) . #1#)
                                       |rb| (QREFELT $ 106))
                                      (QREFELT $ 27))
                                     (QREFELT $ 124)) . #1#)
                              (EXIT (COND
                                      ((QEQCAR |d| 1)
                                       (PROGN
                                         (LETT #0#
                                          (|error|
                                           "coordinates: vector is not a basis") . #1#)
                                         (GO #0#)))))))
                        ('T
                         (EXIT (|error| "coordinates: vector is not a basis"))))
                      (LETT |rx| (SPADCALL |x| (QREFELT $ 24)) . #1#)
                      (LETT |ix| (SPADCALL |x| (QREFELT $ 92)) . #1#)
                      (EXIT (VECTOR (SPADCALL (QCDR |d|)
                                     (SPADCALL
                                      (SPADCALL |rx| |ib|
                                       (QREFELT $ 106))
                                      (SPADCALL |ix| |rb|
                                       (QREFELT $ 106))
                                      (QREFELT $ 27))
                                     (QREFELT $ 106))
                                    (SPADCALL (QCDR |d|)
                                     (SPADCALL
                                      (SPADCALL |ra| |ix|
                                       (QREFELT $ 106))
                                      (SPADCALL |ia| |rx|
                                       (QREFELT $ 106))
                                      (QREFELT $ 27))
                                     (QREFELT $ 106))))))
           #0# (EXIT #0#))))) 

(DEFUN |COMPCAT-;coerce;SOf;27| (|x| $)
  (PROG (|r| |re| |i| |ie| |outi| |ip|)
    (RETURN
      (SEQ (LETT |re|
                 (SPADCALL
                     (LETT |r| (SPADCALL |x| (QREFELT $ 24))
                           . #0=(|COMPCAT-;coerce;SOf;27|))
                     (QREFELT $ 128)) . #0#)
           (LETT |ie|
                 (SPADCALL
                     (LETT |i| (SPADCALL |x| (QREFELT $ 92)) . #0#)
                     (QREFELT $ 128)) . #0#)
           (EXIT (COND
                   ((SPADCALL |i| (QREFELT $ 82)) |re|)
                   ('T
                    (SEQ (LETT |outi|
                               (SPADCALL
                                   (SPADCALL "%i" (QREFELT $ 131))
                                   (QREFELT $ 132)) . #0#)
                         (LETT |ip|
                               (COND
                                 ((SPADCALL |i| (|spadConstant| $ 9)
                                      (QREFELT $ 102))
                                  |outi|)
                                 ((SPADCALL
                                      (SPADCALL |i| (QREFELT $ 89))
                                      (|spadConstant| $ 9)
                                      (QREFELT $ 102))
                                  (SPADCALL |outi| (QREFELT $ 133)))
                                 ('T
                                  (SPADCALL |ie| |outi|
                                      (QREFELT $ 134)))) . #0#)
                         (EXIT (COND
                                 ((SPADCALL |r| (QREFELT $ 82)) |ip|)
                                 ('T
                                  (SPADCALL |re| |ip| (QREFELT $ 135))))))))))))) 

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

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

(DEFUN |COMPCAT-;*;3S;30| (|x| |y| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL (SPADCALL |x| (QREFELT $ 24))
              (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 106))
          (SPADCALL (SPADCALL |x| (QREFELT $ 92))
              (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 106))
          (QREFELT $ 27))
      (SPADCALL
          (SPADCALL (SPADCALL |x| (QREFELT $ 92))
              (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 106))
          (SPADCALL (SPADCALL |y| (QREFELT $ 92))
              (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 106))
          (QREFELT $ 63))
      (QREFELT $ 30))) 

(DEFUN |COMPCAT-;reducedSystem;MM;31| (|m| $)
  (SPADCALL (SPADCALL (ELT $ 24) |m| (QREFELT $ 144))
      (SPADCALL (ELT $ 92) |m| (QREFELT $ 144)) (QREFELT $ 145))) 

(DEFUN |COMPCAT-;reducedSystem;MVR;32| (|m| |v| $)
  (PROG (|rh|)
    (RETURN
      (SEQ (LETT |rh|
                 (SPADCALL (SPADCALL |v| (QREFELT $ 148))
                     (QREFELT $ 149))
                 |COMPCAT-;reducedSystem;MVR;32|)
           (EXIT (CONS (SPADCALL |m| (QREFELT $ 149))
                       (SPADCALL |rh| (SPADCALL |rh| (QREFELT $ 150))
                           (QREFELT $ 151)))))))) 

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

(DEFUN |COMPCAT-;convert;SC;34| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 157))
      (SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 157))
      (QREFELT $ 159))) 

(DEFUN |COMPCAT-;convert;SC;35| (|x| $)
  (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 162))
      (SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 162))
      (QREFELT $ 164))) 

(DEFUN |COMPCAT-;convert;SIf;36| (|x| $)
  (SPADCALL
      (LIST (SPADCALL (SPADCALL "complex" (QREFELT $ 131))
                (QREFELT $ 167))
            (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 168))
            (SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 168)))
      (QREFELT $ 170))) 

(DEFUN |COMPCAT-;convert;SP;37| (|x| $)
  (SPADCALL |x| (QREFELT $ 174))) 

(DEFUN |COMPCAT-;convert;SP;38| (|x| $)
  (SPADCALL |x| (QREFELT $ 178))) 

(DEFUN |COMPCAT-;patternMatch;SP2Pmr;39| (|x| |p| |l| $)
  (SPADCALL |x| |p| |l| (QREFELT $ 182))) 

(DEFUN |COMPCAT-;patternMatch;SP2Pmr;40| (|x| |p| |l| $)
  (SPADCALL |x| |p| |l| (QREFELT $ 187))) 

(DEFUN |COMPCAT-;<;2SB;41| (|x| |y| $)
  (COND
    ((SPADCALL (SPADCALL |x| (QREFELT $ 24))
         (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 102))
     (SPADCALL (SPADCALL |x| (QREFELT $ 92))
         (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 190)))
    ('T
     (SPADCALL (SPADCALL |x| (QREFELT $ 24))
         (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 190))))) 

(DEFUN |COMPCAT-;rational?;SB;42| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 82))) 

(DEFUN |COMPCAT-;rational;SF;43| (|x| $)
  (COND
    ((SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 82))
     (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 194)))
    ('T (|error| "Not a rational number")))) 

(DEFUN |COMPCAT-;rationalIfCan;SU;44| (|x| $)
  (COND
    ((SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 82))
     (CONS 0 (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 194))))
    ('T (CONS 1 "failed")))) 

(DEFUN |COMPCAT-;inv;2S;45| (|x| $)
  (PROG (|r|)
    (RETURN
      (SEQ (COND
             ((SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 82))
              (SPADCALL
                  (SPADCALL (SPADCALL |x| (QREFELT $ 24))
                      (QREFELT $ 198))
                  (QREFELT $ 78)))
             ('T
              (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 19))
                         |COMPCAT-;inv;2S;45|)
                   (EXIT (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 24))
                                 |r| (QREFELT $ 199))
                             (SPADCALL
                                 (SPADCALL
                                     (SPADCALL |x| (QREFELT $ 92)) |r|
                                     (QREFELT $ 199))
                                 (QREFELT $ 89))
                             (QREFELT $ 30)))))))))) 

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

(DEFUN |COMPCAT-;exquo;2SU;47| (|x| |y| $)
  (COND
    ((SPADCALL (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 82))
     (SPADCALL |x| (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 203)))
    ('T
     (SPADCALL
         (SPADCALL |x| (SPADCALL |y| (QREFELT $ 41)) (QREFELT $ 204))
         (SPADCALL |y| (QREFELT $ 19)) (QREFELT $ 203))))) 

(DEFUN |COMPCAT-;recip;SU;48| (|x| $)
  (SPADCALL (|spadConstant| $ 8) |x| (QREFELT $ 206))) 

(DEFUN |COMPCAT-;unitNormal;SR;49| (|x| $)
  (PROG (|u| |c|)
    (RETURN
      (SEQ (COND
             ((SPADCALL |x| (QREFELT $ 208))
              (VECTOR (|spadConstant| $ 8) |x| (|spadConstant| $ 8)))
             ('T
              (SEQ (LETT |u| (SPADCALL |x| (QREFELT $ 209))
                         . #0=(|COMPCAT-;unitNormal;SR;49|))
                   (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 $ 92))
                                        (QREFELT $ 211)) . #0#)
                                 (EXIT (VECTOR
                                        (SPADCALL (|spadConstant| $ 21)
                                         (QVELT |c| 0) (QREFELT $ 30))
                                        (SPADCALL
                                         (SPADCALL (QVELT |c| 2)
                                          (SPADCALL |x| (QREFELT $ 92))
                                          (QREFELT $ 106))
                                         (QREFELT $ 78))
                                        (SPADCALL (|spadConstant| $ 21)
                                         (SPADCALL (QVELT |c| 2)
                                          (QREFELT $ 89))
                                         (QREFELT $ 30))))))
                           ('T
                            (SEQ (LETT |c|
                                       (SPADCALL
                                        (SPADCALL |x| (QREFELT $ 24))
                                        (QREFELT $ 211)) . #0#)
                                 (LETT |x|
                                       (SPADCALL (QVELT |c| 2) |x|
                                        (QREFELT $ 212)) . #0#)
                                 (EXIT (COND
                                         ((SPADCALL
                                           (SPADCALL |x|
                                            (QREFELT $ 92))
                                           (|spadConstant| $ 21)
                                           (QREFELT $ 190))
                                          (SEQ
                                           (LETT |x|
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL |x|
                                               (QREFELT $ 92))
                                              (QREFELT $ 89))
                                             (SPADCALL |x|
                                              (QREFELT $ 24))
                                             (QREFELT $ 30)) . #0#)
                                           (EXIT
                                            (VECTOR
                                             (SPADCALL
                                              (SPADCALL (QVELT |c| 0)
                                               (SPADCALL
                                                (QREFELT $ 213))
                                               (QREFELT $ 212))
                                              (QREFELT $ 214))
                                             |x|
                                             (SPADCALL (QVELT |c| 2)
                                              (SPADCALL
                                               (QREFELT $ 213))
                                              (QREFELT $ 212))))))
                                         ('T
                                          (VECTOR
                                           (SPADCALL (QVELT |c| 0)
                                            (QREFELT $ 78))
                                           |x|
                                           (SPADCALL (QVELT |c| 2)
                                            (QREFELT $ 78))))))))))))))))) 

(DEFUN |COMPCAT-;unitNormal;SR;50| (|x| $)
  (PROG (|u| |c|)
    (RETURN
      (SEQ (COND
             ((SPADCALL |x| (QREFELT $ 208))
              (VECTOR (|spadConstant| $ 8) |x| (|spadConstant| $ 8)))
             ('T
              (SEQ (LETT |u| (SPADCALL |x| (QREFELT $ 209))
                         . #0=(|COMPCAT-;unitNormal;SR;50|))
                   (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 $ 92))
                                        (QREFELT $ 211)) . #0#)
                                 (EXIT (VECTOR
                                        (SPADCALL (|spadConstant| $ 21)
                                         (QVELT |c| 0) (QREFELT $ 30))
                                        (SPADCALL
                                         (SPADCALL (QVELT |c| 2)
                                          (SPADCALL |x| (QREFELT $ 92))
                                          (QREFELT $ 106))
                                         (QREFELT $ 78))
                                        (SPADCALL (|spadConstant| $ 21)
                                         (SPADCALL (QVELT |c| 2)
                                          (QREFELT $ 89))
                                         (QREFELT $ 30))))))
                           ('T
                            (SEQ (LETT |c|
                                       (SPADCALL
                                        (SPADCALL |x| (QREFELT $ 24))
                                        (QREFELT $ 211)) . #0#)
                                 (LETT |x|
                                       (SPADCALL (QVELT |c| 2) |x|
                                        (QREFELT $ 212)) . #0#)
                                 (EXIT (VECTOR
                                        (SPADCALL (QVELT |c| 0)
                                         (QREFELT $ 78))
                                        |x|
                                        (SPADCALL (QVELT |c| 2)
                                         (QREFELT $ 78))))))))))))))) 

(DEFUN |COMPCAT-;euclideanSize;SNni;51| (|x| $)
  (MAX (SPADCALL (SPADCALL |x| (QREFELT $ 24)) (QREFELT $ 216))
       (SPADCALL (SPADCALL |x| (QREFELT $ 92)) (QREFELT $ 216)))) 

(DEFUN |COMPCAT-;euclideanSize;SNni;52| (|x| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL (SPADCALL |x| (QREFELT $ 24)) 2 (QREFELT $ 91))
          (SPADCALL (SPADCALL |x| (QREFELT $ 92)) 2 (QREFELT $ 91))
          (QREFELT $ 63))
      (QREFELT $ 216))) 

(DEFUN |COMPCAT-;rem;3S;53| (|x| |y| $)
  (PROG (|yr|)
    (RETURN
      (SEQ (COND
             ((SPADCALL (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 82))
              (SEQ (LETT |yr| (SPADCALL |y| (QREFELT $ 24))
                         |COMPCAT-;rem;3S;53|)
                   (EXIT (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 24))
                                 |yr| (QREFELT $ 218))
                             (SPADCALL (SPADCALL |x| (QREFELT $ 92))
                                 |yr| (QREFELT $ 218))
                             (QREFELT $ 30)))))
             ('T (QCDR (SPADCALL |x| |y| (QREFELT $ 219))))))))) 

(DEFUN |COMPCAT-;quo;3S;54| (|x| |y| $)
  (PROG (|yr| |xr| |xi|)
    (RETURN
      (SEQ (COND
             ((SPADCALL (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 82))
              (SEQ (LETT |yr| (SPADCALL |y| (QREFELT $ 24))
                         . #0=(|COMPCAT-;quo;3S;54|))
                   (LETT |xr| (SPADCALL |x| (QREFELT $ 24)) . #0#)
                   (LETT |xi| (SPADCALL |x| (QREFELT $ 92)) . #0#)
                   (EXIT (SPADCALL
                             (SPADCALL
                                 (SPADCALL |xr|
                                     (SPADCALL |xr| |yr|
                                      (QREFELT $ 218))
                                     (QREFELT $ 27))
                                 |yr| (QREFELT $ 221))
                             (SPADCALL
                                 (SPADCALL |xi|
                                     (SPADCALL |xi| |yr|
                                      (QREFELT $ 218))
                                     (QREFELT $ 27))
                                 |yr| (QREFELT $ 221))
                             (QREFELT $ 30)))))
             ('T (QCAR (SPADCALL |x| |y| (QREFELT $ 219))))))))) 

(DEFUN |COMPCAT-;rem;3S;55| (|x| |y| $)
  (PROG (|yr|)
    (RETURN
      (SEQ (COND
             ((SPADCALL (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 82))
              (SEQ (LETT |yr| (SPADCALL |y| (QREFELT $ 24))
                         |COMPCAT-;rem;3S;55|)
                   (EXIT (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 24))
                                 |yr| (QREFELT $ 223))
                             (SPADCALL (SPADCALL |x| (QREFELT $ 92))
                                 |yr| (QREFELT $ 223))
                             (QREFELT $ 30)))))
             ('T (QCDR (SPADCALL |x| |y| (QREFELT $ 219))))))))) 

(DEFUN |COMPCAT-;quo;3S;56| (|x| |y| $)
  (COND
    ((SPADCALL (SPADCALL |y| (QREFELT $ 92)) (QREFELT $ 82))
     (SPADCALL
         (SPADCALL (SPADCALL |x| (QREFELT $ 24))
             (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 221))
         (SPADCALL (SPADCALL |x| (QREFELT $ 92))
             (SPADCALL |y| (QREFELT $ 24)) (QREFELT $ 221))
         (QREFELT $ 30)))
    ('T (QCAR (SPADCALL |x| |y| (QREFELT $ 219)))))) 

(DEFUN |COMPCAT-;divide;2SR;57| (|x| |y| $)
  (PROG (|r| |xx| |x1| |a| |x2| |b| |y1| #0=#:G2060)
    (RETURN
      (SEQ (LETT |r| (SPADCALL |y| (QREFELT $ 19))
                 . #1=(|COMPCAT-;divide;2SR;57|))
           (LETT |y1| (SPADCALL |y| (QREFELT $ 41)) . #1#)
           (LETT |xx| (SPADCALL |x| |y1| (QREFELT $ 204)) . #1#)
           (LETT |x1|
                 (SPADCALL (SPADCALL |xx| (QREFELT $ 24)) |r|
                     (QREFELT $ 223)) . #1#)
           (LETT |a| |x1| . #1#)
           (COND
             ((NULL (SPADCALL |x1| (|spadConstant| $ 21)
                        (QREFELT $ 102)))
              (COND
                ((SPADCALL |r| (SPADCALL 2 |x1| (QREFELT $ 94))
                     (QREFELT $ 224))
                 (SEQ (LETT |a|
                            (SPADCALL |x1| |r| (QREFELT $ 27)) . #1#)
                      (EXIT (COND
                              ((SPADCALL |x1| |a| (QREFELT $ 224))
                               (LETT |a|
                                     (SPADCALL |x1| |r| (QREFELT $ 63)) . #1#)))))))))
           (LETT |x2|
                 (SPADCALL (SPADCALL |xx| (QREFELT $ 92)) |r|
                     (QREFELT $ 223)) . #1#)
           (LETT |b| |x2| . #1#)
           (COND
             ((NULL (SPADCALL |x2| (|spadConstant| $ 21)
                        (QREFELT $ 102)))
              (COND
                ((SPADCALL |r| (SPADCALL 2 |x2| (QREFELT $ 94))
                     (QREFELT $ 224))
                 (SEQ (LETT |b|
                            (SPADCALL |x2| |r| (QREFELT $ 27)) . #1#)
                      (EXIT (COND
                              ((SPADCALL |x2| |b| (QREFELT $ 224))
                               (LETT |b|
                                     (SPADCALL |x2| |r| (QREFELT $ 63)) . #1#)))))))))
           (LETT |y1|
                 (PROG2 (LETT #0#
                              (SPADCALL
                                  (SPADCALL |a| |b| (QREFELT $ 30))
                                  |y1| (QREFELT $ 206)) . #1#)
                        (QCDR #0#)
                   (|check-union| (QEQCAR #0# 0) (QREFELT $ 6) #0#)) . #1#)
           (EXIT (CONS (PROG2 (LETT #0#
                                    (SPADCALL
                                     (SPADCALL |x| |y1|
                                      (QREFELT $ 225))
                                     |y| (QREFELT $ 206)) . #1#)
                              (QCDR #0#)
                         (|check-union| (QEQCAR #0# 0) (QREFELT $ 6)
                             #0#))
                       |y1|)))))) 

(DEFUN |COMPCAT-;atan2loc| (|y| |x| $)
  (PROG (|pi1| |pi2| #0=#:G2065 |theta|)
    (RETURN
      (SEQ (LETT |pi1| (SPADCALL (QREFELT $ 228))
                 . #1=(|COMPCAT-;atan2loc|))
           (LETT |pi2|
                 (SPADCALL |pi1| (QREFELT $ 227) (QREFELT $ 106)) . #1#)
           (EXIT (COND
                   ((SPADCALL |x| (|spadConstant| $ 21)
                        (QREFELT $ 102))
                    (COND
                      ((SPADCALL |y| (|spadConstant| $ 21)
                           (QREFELT $ 190))
                       (SPADCALL |pi2| (QREFELT $ 89)))
                      (#2='T |pi2|)))
                   (#2#
                    (SEQ (LETT |theta|
                               (SPADCALL
                                   (SPADCALL |y|
                                    (PROG2
                                     (LETT #0#
                                      (SPADCALL |x| (QREFELT $ 124)) . #1#)
                                     (QCDR #0#)
                                      (|check-union| (QEQCAR #0# 0)
                                       (QREFELT $ 7) #0#))
                                    (QREFELT $ 106))
                                   (QREFELT $ 229)) . #1#)
                         (SEQ G190
                              (COND
                                ((NULL (COND
                                         ((SPADCALL
                                           (SPADCALL |pi2|
                                            (QREFELT $ 89))
                                           |theta| (QREFELT $ 190))
                                          'NIL)
                                         ('T 'T)))
                                 #3=(GO G191)))
                              (SEQ (EXIT
                                    (LETT |theta|
                                     (SPADCALL |theta| |pi1|
                                      (QREFELT $ 63)) . #1#)))
                              NIL #4=(GO G190) G191 (EXIT NIL))
                         (SEQ G190
                              (COND
                                ((NULL (SPADCALL |pi2| |theta|
                                        (QREFELT $ 190)))
                                 #3#))
                              (SEQ (EXIT
                                    (LETT |theta|
                                     (SPADCALL |theta| |pi1|
                                      (QREFELT $ 27)) . #1#)))
                              NIL #4# G191 (EXIT NIL))
                         (EXIT (COND
                                 ((SPADCALL |x| (|spadConstant| $ 21)
                                      (QREFELT $ 190))
                                  (COND
                                    ((SPADCALL |y|
                                      (|spadConstant| $ 21)
                                      (QREFELT $ 190))
                                     (SPADCALL |theta| |pi1|
                                      (QREFELT $ 27)))
                                    (#2#
                                     (SPADCALL |theta| |pi1|
                                      (QREFELT $ 63)))))
                                 (#2# |theta|))))))))))) 

(DEFUN |COMPCAT-;argument;SR;59| (|x| $)
  (|COMPCAT-;atan2loc| (SPADCALL |x| (QREFELT $ 92))
      (SPADCALL |x| (QREFELT $ 24)) $)) 

(DEFUN |COMPCAT-;argument;SR;60| (|x| $)
  (PROG (|n1| |x1| #0=#:G2065)
    (RETURN
      (SEQ (LETT |n1|
                 (SPADCALL (SPADCALL |x| (QREFELT $ 19))
                     (QREFELT $ 154))
                 . #1=(|COMPCAT-;argument;SR;60|))
           (LETT |x1|
                 (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |n1|
                     (QREFELT $ 63)) . #1#)
           (EXIT (SPADCALL (SPADCALL 2 (QREFELT $ 26))
                     (SPADCALL
                         (SPADCALL (SPADCALL |x| (QREFELT $ 92))
                             (PROG2 (LETT #0#
                                     (SPADCALL |x1| (QREFELT $ 124)) . #1#)
                                    (QCDR #0#)
                               (|check-union| (QEQCAR #0# 0)
                                   (QREFELT $ 7) #0#))
                             (QREFELT $ 106))
                         (QREFELT $ 229))
                     (QREFELT $ 106))))))) 

(DEFUN |COMPCAT-;argument;SR;61| (|x| $)
  (PROG (|n1| |x1| #0=#:G2065)
    (RETURN
      (SEQ (LETT |n1|
                 (SPADCALL
                     (SPADCALL (QREFELT $ 227)
                         (SPADCALL (SPADCALL |x| (QREFELT $ 19))
                             (QREFELT $ 231))
                         (QREFELT $ 106))
                     (QREFELT $ 232))
                 . #1=(|COMPCAT-;argument;SR;61|))
           (LETT |x1|
                 (SPADCALL (SPADCALL |x| (QREFELT $ 24)) |n1|
                     (QREFELT $ 63)) . #1#)
           (EXIT (SPADCALL (SPADCALL 2 (QREFELT $ 26))
                     (SPADCALL
                         (SPADCALL (SPADCALL |x| (QREFELT $ 92))
                             (PROG2 (LETT #0#
                                     (SPADCALL |x1| (QREFELT $ 124)) . #1#)
                                    (QCDR #0#)
                               (|check-union| (QEQCAR #0# 0)
                                   (QREFELT $ 7) #0#))
                             (QREFELT $ 106))
                         (QREFELT $ 229))
                     (QREFELT $ 106))))))) 

(DEFUN |COMPCAT-;pi;S;62| ($)
  (SPADCALL (SPADCALL (QREFELT $ 228)) (QREFELT $ 78))) 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(DEFUN |COMPCAT-;atan;2S;77| (|x| $)
  (PROG (|ix|)
    (RETURN
      (SEQ (LETT |ix|
                 (SPADCALL (SPADCALL (QREFELT $ 213)) |x|
                     (QREFELT $ 204))
                 |COMPCAT-;atan;2S;77|)
           (EXIT (SPADCALL
                     (SPADCALL
                         (SPADCALL (SPADCALL (QREFELT $ 213))
                             (QREFELT $ 227) (QREFELT $ 249))
                         (SPADCALL
                             (SPADCALL
                                 (SPADCALL (|spadConstant| $ 8) |ix|
                                     (QREFELT $ 250))
                                 (QREFELT $ 251))
                             (SPADCALL
                                 (SPADCALL (|spadConstant| $ 8) |ix|
                                     (QREFELT $ 225))
                                 (QREFELT $ 251))
                             (QREFELT $ 225))
                         (QREFELT $ 204))
                     (QREFELT $ 214))))))) 

(DEFUN |COMPCAT-;log;2S;78| (|x| $)
  (SPADCALL
      (SPADCALL
          (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 231))
          (QREFELT $ 227) (QREFELT $ 106))
      (SPADCALL |x| (QREFELT $ 252)) (QREFELT $ 30))) 

(DEFUN |COMPCAT-;exp;2S;79| (|x| $)
  (PROG (|e|)
    (RETURN
      (SEQ (LETT |e|
                 (SPADCALL (SPADCALL |x| (QREFELT $ 24))
                     (QREFELT $ 232))
                 |COMPCAT-;exp;2S;79|)
           (EXIT (SPADCALL
                     (SPADCALL |e|
                         (SPADCALL (SPADCALL |x| (QREFELT $ 92))
                             (QREFELT $ 253))
                         (QREFELT $ 106))
                     (SPADCALL |e|
                         (SPADCALL (SPADCALL |x| (QREFELT $ 92))
                             (QREFELT $ 254))
                         (QREFELT $ 106))
                     (QREFELT $ 30))))))) 

(DEFUN |COMPCAT-;cos;2S;80| (|x| $)
  (PROG (|e| #0=#:G2099)
    (RETURN
      (SEQ (LETT |e|
                 (SPADCALL
                     (SPADCALL (SPADCALL (QREFELT $ 213)) |x|
                         (QREFELT $ 204))
                     (QREFELT $ 255))
                 . #1=(|COMPCAT-;cos;2S;80|))
           (EXIT (SPADCALL (QREFELT $ 227)
                           (SPADCALL |e|
                               (PROG2 (LETT #0#
                                       (SPADCALL |e| (QREFELT $ 209)) . #1#)
                                      (QCDR #0#)
                                 (|check-union| (QEQCAR #0# 0)
                                     (QREFELT $ 6) #0#))
                               (QREFELT $ 250))
                           (QREFELT $ 212))))))) 

(DEFUN |COMPCAT-;sin;2S;81| (|x| $)
  (PROG (|e| #0=#:G2104)
    (RETURN
      (SEQ (LETT |e|
                 (SPADCALL
                     (SPADCALL (SPADCALL (QREFELT $ 213)) |x|
                         (QREFELT $ 204))
                     (QREFELT $ 255))
                 . #1=(|COMPCAT-;sin;2S;81|))
           (EXIT (SPADCALL
                     (SPADCALL
                         (SPADCALL (SPADCALL (QREFELT $ 213))
                             (QREFELT $ 227) (QREFELT $ 249))
                         (SPADCALL |e|
                             (PROG2 (LETT #0#
                                     (SPADCALL |e| (QREFELT $ 209)) . #1#)
                                    (QCDR #0#)
                               (|check-union| (QEQCAR #0# 0)
                                   (QREFELT $ 6) #0#))
                             (QREFELT $ 225))
                         (QREFELT $ 204))
                     (QREFELT $ 214))))))) 

(DEFUN |COMPCAT-;polarCoordinates;SR;82| (|x| $)
  (PROG (|t|)
    (RETURN
      (CONS (SPADCALL (SPADCALL |x| (QREFELT $ 19)) (QREFELT $ 154))
            (COND
              ((SPADCALL
                   (LETT |t| (SPADCALL |x| (QREFELT $ 252))
                         |COMPCAT-;polarCoordinates;SR;82|)
                   (QREFELT $ 256))
               (SPADCALL |t|
                   (SPADCALL 2 (SPADCALL (QREFELT $ 228))
                       (QREFELT $ 94))
                   (QREFELT $ 63)))
              ('T |t|)))))) 

(DEFUN |COMPCAT-;**;SFS;83| (|x| |q| $)
  (PROG (|rx| |ax| |tx|)
    (RETURN
      (SEQ (COND
             ((SPADCALL |q| (QREFELT $ 259))
              (COND
                ((SPADCALL |x| (QREFELT $ 208))
                 (|error| "0 ** 0 is undefined"))
                ('T (|spadConstant| $ 8))))
             ((SPADCALL |x| (QREFELT $ 208)) (|spadConstant| $ 20))
             ('T
              (SEQ (LETT |rx| (SPADCALL |x| (QREFELT $ 24))
                         . #0=(|COMPCAT-;**;SFS;83|))
                   (COND
                     ((SPADCALL (SPADCALL |x| (QREFELT $ 92))
                          (QREFELT $ 82))
                      (COND
                        ((SPADCALL |rx| (QREFELT $ 260))
                         (EXIT (SPADCALL
                                   (SPADCALL |rx| |q| (QREFELT $ 261))
                                   (QREFELT $ 78)))))))
                   (COND
                     ((SPADCALL (SPADCALL |x| (QREFELT $ 92))
                          (QREFELT $ 82))
                      (COND
                        ((EQL (SPADCALL |q| (QREFELT $ 262)) 2)
                         (EXIT (SPADCALL (|spadConstant| $ 21)
                                   (SPADCALL
                                    (SPADCALL |rx| (QREFELT $ 89)) |q|
                                    (QREFELT $ 261))
                                   (QREFELT $ 30)))))))
                   (LETT |ax|
                         (SPADCALL
                             (SPADCALL (SPADCALL |x| (QREFELT $ 19))
                                 (QREFELT $ 154))
                             |q| (QREFELT $ 261)) . #0#)
                   (LETT |tx|
                         (SPADCALL (SPADCALL |q| (QREFELT $ 263))
                             (SPADCALL |x| (QREFELT $ 252))
                             (QREFELT $ 106)) . #0#)
                   (EXIT (SPADCALL
                             (SPADCALL |ax|
                                 (SPADCALL |tx| (QREFELT $ 253))
                                 (QREFELT $ 106))
                             (SPADCALL |ax|
                                 (SPADCALL |tx| (QREFELT $ 254))
                                 (QREFELT $ 106))
                             (QREFELT $ 30)))))))))) 

(DEFUN |COMPCAT-;**;SFS;84| (|x| |q| $)
  (PROG (|r| |i| #0=#:G2065 |t| |e|)
    (RETURN
      (SEQ (COND
             ((SPADCALL |q| (QREFELT $ 259))
              (COND
                ((SPADCALL |x| (QREFELT $ 208))
                 (|error| "0 ** 0 is undefined"))
                ('T (|spadConstant| $ 8))))
             ('T
              (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 24))
                         . #1=(|COMPCAT-;**;SFS;84|))
                   (EXIT (COND
                           ((SPADCALL
                                (LETT |i|
                                      (SPADCALL |x| (QREFELT $ 92)) . #1#)
                                (QREFELT $ 82))
                            (SPADCALL
                                (SPADCALL |r| |q| (QREFELT $ 261))
                                (QREFELT $ 78)))
                           ('T
                            (SEQ (LETT |t|
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |q| (QREFELT $ 265))
                                         (PROG2
                                          (LETT #0#
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL |q|
                                              (QREFELT $ 262))
                                             (QREFELT $ 26))
                                            (QREFELT $ 124)) . #1#)
                                          (QCDR #0#)
                                           (|check-union|
                                            (QEQCAR #0# 0)
                                            (QREFELT $ 7) #0#))
                                         (QREFELT $ 110))
                                        (SPADCALL |x| (QREFELT $ 252))
                                        (QREFELT $ 106)) . #1#)
                                 (LETT |e|
                                       (COND
                                         ((SPADCALL |r| (QREFELT $ 82))
                                          (SPADCALL |i| |q|
                                           (QREFELT $ 261)))
                                         ('T
                                          (SPADCALL
                                           (SPADCALL |x|
                                            (QREFELT $ 19))
                                           (SPADCALL |q|
                                            (SPADCALL 2
                                             (QREFELT $ 266))
                                            (QREFELT $ 267))
                                           (QREFELT $ 261)))) . #1#)
                                 (EXIT (SPADCALL
                                        (SPADCALL |e|
                                         (SPADCALL |t| (QREFELT $ 253))
                                         (QREFELT $ 106))
                                        (SPADCALL |e|
                                         (SPADCALL |t| (QREFELT $ 254))
                                         (QREFELT $ 106))
                                        (QREFELT $ 30)))))))))))))) 

(DEFUN |ComplexCategory&| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$| #0=#:G2065)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #1=(|ComplexCategory&|))
        (LETT DV$2 (|devaluate| |#2|) . #1#)
        (LETT |dv$| (LIST '|ComplexCategory&| DV$1 DV$2) . #1#)
        (LETT $ (GETREFV 274) . #1#)
        (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| '(|OrderedSet|)))) . #1#))
        (|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$| 5)
           (QSETREFV $ 155
               (CONS (|dispatchFunction| |COMPCAT-;abs;2S;33|) $))))
        (COND
          ((|testBitVector| |pv$| 6)
           (PROGN
             (QSETREFV $ 160
                 (CONS (|dispatchFunction| |COMPCAT-;convert;SC;34|) $))
             (QSETREFV $ 165
                 (CONS (|dispatchFunction| |COMPCAT-;convert;SC;35|) $)))))
        (COND
          ((|testBitVector| |pv$| 9)
           (QSETREFV $ 171
               (CONS (|dispatchFunction| |COMPCAT-;convert;SIf;36|) $))))
        (COND
          ((|HasCategory| |#2|
               '(|ConvertibleTo| (|Pattern| (|Integer|))))
           (QSETREFV $ 175
               (CONS (|dispatchFunction| |COMPCAT-;convert;SP;37|) $))))
        (COND
          ((|HasCategory| |#2|
               '(|ConvertibleTo| (|Pattern| (|Float|))))
           (QSETREFV $ 179
               (CONS (|dispatchFunction| |COMPCAT-;convert;SP;38|) $))))
        (COND
          ((|HasCategory| |#2| '(|PatternMatchable| (|Integer|)))
           (QSETREFV $ 184
               (CONS (|dispatchFunction|
                         |COMPCAT-;patternMatch;SP2Pmr;39|)
                     $))))
        (COND
          ((|HasCategory| |#2| '(|PatternMatchable| (|Float|)))
           (QSETREFV $ 189
               (CONS (|dispatchFunction|
                         |COMPCAT-;patternMatch;SP2Pmr;40|)
                     $))))
        (COND
          ((|testBitVector| |pv$| 15)
           (QSETREFV $ 191
               (CONS (|dispatchFunction| |COMPCAT-;<;2SB;41|) $))))
        (COND
          ((|testBitVector| |pv$| 2)
           (PROGN
             (QSETREFV $ 192
                 (CONS (|dispatchFunction| |COMPCAT-;rational?;SB;42|)
                       $))
             (QSETREFV $ 195
                 (CONS (|dispatchFunction| |COMPCAT-;rational;SF;43|)
                       $))
             (QSETREFV $ 197
                 (CONS (|dispatchFunction|
                           |COMPCAT-;rationalIfCan;SU;44|)
                       $)))))
        (COND
          ((|testBitVector| |pv$| 10)
           (QSETREFV $ 200
               (CONS (|dispatchFunction| |COMPCAT-;inv;2S;45|) $))))
        (COND
          ((|testBitVector| |pv$| 14)
           (PROGN
             (QSETREFV $ 202
                 (CONS (|dispatchFunction| |COMPCAT-;exquo;SRU;46|) $))
             (QSETREFV $ 205
                 (CONS (|dispatchFunction| |COMPCAT-;exquo;2SU;47|) $))
             (QSETREFV $ 207
                 (CONS (|dispatchFunction| |COMPCAT-;recip;SU;48|) $))
             (COND
               ((|HasCategory| |#2| '(|OrderedRing|))
                (QSETREFV $ 215
                    (CONS (|dispatchFunction|
                              |COMPCAT-;unitNormal;SR;49|)
                          $)))
               ('T
                (QSETREFV $ 215
                    (CONS (|dispatchFunction|
                              |COMPCAT-;unitNormal;SR;50|)
                          $)))))))
        (COND
          ((|testBitVector| |pv$| 13)
           (PROGN
             (COND
               ((|testBitVector| |pv$| 11)
                (QSETREFV $ 217
                    (CONS (|dispatchFunction|
                              |COMPCAT-;euclideanSize;SNni;51|)
                          $)))
               ('T
                (QSETREFV $ 217
                    (CONS (|dispatchFunction|
                              |COMPCAT-;euclideanSize;SNni;52|)
                          $))))
             (COND
               ((|testBitVector| |pv$| 2)
                (PROGN
                  (QSETREFV $ 220
                      (CONS (|dispatchFunction| |COMPCAT-;rem;3S;53|)
                            $))
                  (QSETREFV $ 222
                      (CONS (|dispatchFunction| |COMPCAT-;quo;3S;54|)
                            $))))
               ('T
                (PROGN
                  (QSETREFV $ 220
                      (CONS (|dispatchFunction| |COMPCAT-;rem;3S;55|)
                            $))
                  (QSETREFV $ 222
                      (CONS (|dispatchFunction| |COMPCAT-;quo;3S;56|)
                            $)))))
             (QSETREFV $ 226
                 (CONS (|dispatchFunction| |COMPCAT-;divide;2SR;57|) $)))))
        (COND
          ((|testBitVector| |pv$| 4)
           (PROGN
             (QSETREFV $ 227
                 (PROG2 (LETT #0#
                              (SPADCALL (SPADCALL 2 (QREFELT $ 26))
                                  (QREFELT $ 124)) . #1#)
                        (QCDR #0#)
                   (|check-union| (QEQCAR #0# 0) |#2| #0#)))
             (COND
               ((|testBitVector| |pv$| 5)
                (PROGN
                  (QSETREFV $ 230
                      (CONS (|dispatchFunction|
                                |COMPCAT-;argument;SR;59|)
                            $))))
               ((|testBitVector| |pv$| 3)
                (QSETREFV $ 230
                    (CONS (|dispatchFunction|
                              |COMPCAT-;argument;SR;60|)
                          $)))
               ('T
                (QSETREFV $ 230
                    (CONS (|dispatchFunction|
                              |COMPCAT-;argument;SR;61|)
                          $))))
             (QSETREFV $ 233
                 (CONS (|dispatchFunction| |COMPCAT-;pi;S;62|) $))
             (COND
               ((|domainEqual| |#2| (|DoubleFloat|))
                (PROGN
                  (QSETREFV $ 234
                      (CONS (|dispatchFunction| |COMPCAT-;exp;2S;63|)
                            $))
                  (QSETREFV $ 235
                      (CONS (|dispatchFunction| |COMPCAT-;log;2S;64|)
                            $))
                  (QSETREFV $ 236
                      (CONS (|dispatchFunction| |COMPCAT-;sin;2S;65|)
                            $))
                  (QSETREFV $ 237
                      (CONS (|dispatchFunction| |COMPCAT-;cos;2S;66|)
                            $))
                  (QSETREFV $ 238
                      (CONS (|dispatchFunction| |COMPCAT-;tan;2S;67|)
                            $))
                  (QSETREFV $ 239
                      (CONS (|dispatchFunction| |COMPCAT-;asin;2S;68|)
                            $))
                  (QSETREFV $ 240
                      (CONS (|dispatchFunction| |COMPCAT-;acos;2S;69|)
                            $))
                  (QSETREFV $ 241
                      (CONS (|dispatchFunction| |COMPCAT-;atan;2S;70|)
                            $))
                  (QSETREFV $ 242
                      (CONS (|dispatchFunction| |COMPCAT-;sinh;2S;71|)
                            $))
                  (QSETREFV $ 243
                      (CONS (|dispatchFunction| |COMPCAT-;cosh;2S;72|)
                            $))
                  (QSETREFV $ 244
                      (CONS (|dispatchFunction| |COMPCAT-;tanh;2S;73|)
                            $))
                  (QSETREFV $ 245
                      (CONS (|dispatchFunction| |COMPCAT-;asinh;2S;74|)
                            $))
                  (QSETREFV $ 246
                      (CONS (|dispatchFunction| |COMPCAT-;acosh;2S;75|)
                            $))
                  (QSETREFV $ 247
                      (CONS (|dispatchFunction| |COMPCAT-;atanh;2S;76|)
                            $))))
               ('T
                (PROGN
                  (QSETREFV $ 241
                      (CONS (|dispatchFunction| |COMPCAT-;atan;2S;77|)
                            $))
                  (QSETREFV $ 235
                      (CONS (|dispatchFunction| |COMPCAT-;log;2S;78|)
                            $))
                  (QSETREFV $ 234
                      (CONS (|dispatchFunction| |COMPCAT-;exp;2S;79|)
                            $))
                  (QSETREFV $ 237
                      (CONS (|dispatchFunction| |COMPCAT-;cos;2S;80|)
                            $))
                  (QSETREFV $ 236
                      (CONS (|dispatchFunction| |COMPCAT-;sin;2S;81|)
                            $)))))
             (COND
               ((|testBitVector| |pv$| 5)
                (PROGN
                  (QSETREFV $ 258
                      (CONS (|dispatchFunction|
                                |COMPCAT-;polarCoordinates;SR;82|)
                            $))
                  (QSETREFV $ 264
                      (CONS (|dispatchFunction| |COMPCAT-;**;SFS;83|)
                            $))))
               ((|testBitVector| |pv$| 3)
                (QSETREFV $ 264
                    (CONS (|dispatchFunction| |COMPCAT-;**;SFS;84|) $)))))))
        $)))) 

(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 . |differentiate|)
             (155 . |gcd|) (161 . |Zero|) (165 . |Zero|) (169 . |Zero|)
             (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|) |COMPCAT-;rank;Pi;7|
             (266 . -) |COMPCAT-;discriminant;R;8| (271 . **)
             (277 . |imag|) |COMPCAT-;norm;SR;9| (282 . *)
             |COMPCAT-;trace;SR;10| |COMPCAT-;imaginary;S;11|
             |COMPCAT-;conjugate;2S;12| (288 . |characteristic|)
             |COMPCAT-;characteristic;Nni;13| (|Mapping| 7 7)
             |COMPCAT-;map;M2S;14| (292 . =) |COMPCAT-;=;2SB;15|
             |COMPCAT-;+;3S;16| |COMPCAT-;-;2S;17| (298 . *)
             |COMPCAT-;*;R2S;18| (|Vector| 7)
             |COMPCAT-;coordinates;SV;19| (304 . *) |COMPCAT-;*;I2S;20|
             |COMPCAT-;differentiate;SMS;21|
             |COMPCAT-;definingPolynomial;Sup;22|
             (310 . |definingPolynomial|)
             (|Record| (|:| |quotient| $) (|:| |remainder| $))
             (314 . |monicDivide|) (320 . |coefficient|)
             |COMPCAT-;reduce;SupS;23| |COMPCAT-;lift;SSup;24|
             |COMPCAT-;minimalPolynomial;SSup;25| (|Vector| 6)
             (326 . |minIndex|) (331 . |elt|) (337 . |recip|)
             (|Vector| $) |COMPCAT-;coordinates;SVV;26| (|OutputForm|)
             (342 . |coerce|) (|String|) (|Symbol|) (347 . |coerce|)
             (352 . |coerce|) (357 . -) (362 . *) (368 . +)
             |COMPCAT-;coerce;SOf;27| |COMPCAT-;retract;SR;28|
             (|Union| 7 '"failed") |COMPCAT-;retractIfCan;SU;29|
             |COMPCAT-;*;3S;30| (|Matrix| 7) (|Matrix| 6)
             (|MatrixCategoryFunctions2| 6 121 121 142 7 108 108 141)
             (374 . |map|) (380 . |vertConcat|) (|Matrix| $)
             |COMPCAT-;reducedSystem;MM;31| (386 . |coerce|)
             (391 . |reducedSystem|) (396 . |minColIndex|)
             (401 . |column|)
             (|Record| (|:| |mat| 141) (|:| |vec| 108))
             |COMPCAT-;reducedSystem;MVR;32| (407 . |sqrt|)
             (412 . |abs|) (|DoubleFloat|) (417 . |convert|)
             (|Complex| 156) (422 . |complex|) (428 . |convert|)
             (|Float|) (433 . |convert|) (|Complex| 161)
             (438 . |complex|) (444 . |convert|) (|InputForm|)
             (449 . |convert|) (454 . |convert|) (|List| $)
             (459 . |convert|) (464 . |convert|) (|Pattern| 25)
             (|ComplexPattern| 25 7 6) (469 . |convert|)
             (474 . |convert|) (|Pattern| 161)
             (|ComplexPattern| 161 7 6) (479 . |convert|)
             (484 . |convert|) (|PatternMatchResult| 25 6)
             (|ComplexPatternMatch| 25 7 6) (489 . |patternMatch|)
             (|PatternMatchResult| 25 $) (496 . |patternMatch|)
             (|PatternMatchResult| 161 6)
             (|ComplexPatternMatch| 161 7 6) (503 . |patternMatch|)
             (|PatternMatchResult| 161 $) (510 . |patternMatch|)
             (517 . <) (523 . <) (529 . |rational?|) (|Fraction| 25)
             (534 . |rational|) (539 . |rational|)
             (|Union| 193 '"failed") (544 . |rationalIfCan|)
             (549 . |inv|) (554 . /) (560 . |inv|) (565 . |exquo|)
             (571 . |exquo|) (577 . |exquo|) (583 . *) (589 . |exquo|)
             (595 . |exquo|) (601 . |recip|) (606 . |zero?|)
             (611 . |recip|)
             (|Record| (|:| |unit| $) (|:| |canonical| $)
                 (|:| |associate| $))
             (616 . |unitNormal|) (621 . *) (627 . |imaginary|)
             (631 . -) (636 . |unitNormal|) (641 . |euclideanSize|)
             (646 . |euclideanSize|) (651 . |symmetricRemainder|)
             (657 . |divide|) (663 . |rem|) (669 . |quo|) (675 . |quo|)
             (681 . |rem|) (687 . |sizeLess?|) (693 . -)
             (699 . |divide|) '|half| (705 . |pi|) (709 . |atan|)
             (714 . |argument|) (719 . |log|) (724 . |exp|)
             (729 . |pi|) (733 . |exp|) (738 . |log|) (743 . |sin|)
             (748 . |cos|) (753 . |tan|) (758 . |asin|) (763 . |acos|)
             (768 . |atan|) (773 . |sinh|) (778 . |cosh|)
             (783 . |tanh|) (788 . |asinh|) (793 . |acosh|)
             (798 . |atanh|) (803 . |imaginary|) (807 . *) (813 . +)
             (819 . |log|) (824 . |argument|) (829 . |cos|)
             (834 . |sin|) (839 . |exp|) (844 . |negative?|)
             (|Record| (|:| |r| 7) (|:| |phi| 7))
             (849 . |polarCoordinates|) (854 . |zero?|)
             (859 . |positive?|) (864 . **) (870 . |denom|)
             (875 . |coerce|) (880 . **) (886 . |numer|)
             (891 . |coerce|) (896 . /) (|List| 130) (|List| 10)
             (|Fraction| 11)
             (|Record| (|:| |mat| 272) (|:| |vec| (|Vector| 25)))
             (|Matrix| 25) (|Union| 25 '"failed"))
          '#(|unitNormal| 902 |trace| 907 |tanh| 912 |tan| 917
             |solveLinearPolynomialEquation| 922 |sinh| 928 |sin| 933
             |retractIfCan| 938 |retract| 943 |rem| 948 |reducedSystem|
             954 |reduce| 965 |recip| 970 |rationalIfCan| 975
             |rational?| 980 |rational| 985 |rank| 990 |quo| 994
             |polarCoordinates| 1000 |pi| 1005 |patternMatch| 1009
             |norm| 1023 |minimalPolynomial| 1028 |map| 1033 |log| 1039
             |lift| 1044 |inv| 1049 |imaginary| 1054
             |factorSquareFreePolynomial| 1058 |factorPolynomial| 1063
             |exquo| 1068 |exp| 1080 |euclideanSize| 1085 |divide| 1090
             |discriminant| 1096 |differentiate| 1100
             |definingPolynomial| 1106 |cosh| 1110 |cos| 1115
             |coordinates| 1120 |convert| 1131 |conjugate| 1156
             |coerce| 1161 |characteristicPolynomial| 1166
             |characteristic| 1171 |atanh| 1175 |atan| 1180 |asinh|
             1185 |asin| 1190 |argument| 1195 |acosh| 1200 |acos| 1205
             |abs| 1210 = 1215 < 1221 - 1227 + 1232 ** 1238 * 1244)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 267
                                '(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 1 11 0 0 57
                                  2 11 0 0 0 58 0 33 0 59 0 52 0 60 0
                                  11 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 0 0 89 2 7 0 0 13
                                  91 1 6 7 0 92 2 7 0 13 0 94 0 7 10 98
                                  2 7 28 0 0 102 2 7 0 0 0 106 2 7 0 25
                                  0 110 0 6 11 114 2 11 115 0 0 116 2
                                  11 7 0 10 117 1 121 25 0 122 2 121 6
                                  0 25 123 1 7 85 0 124 1 7 127 0 128 1
                                  130 0 129 131 1 130 127 0 132 1 127 0
                                  0 133 2 127 0 0 0 134 2 127 0 0 0 135
                                  2 143 141 45 142 144 2 141 0 0 0 145
                                  1 142 0 121 148 1 6 141 146 149 1 141
                                  25 0 150 2 141 108 0 25 151 1 7 0 0
                                  154 1 0 0 0 155 1 7 156 0 157 2 158 0
                                  156 156 159 1 0 158 0 160 1 7 161 0
                                  162 2 163 0 161 161 164 1 0 163 0 165
                                  1 166 0 130 167 1 7 166 0 168 1 166 0
                                  169 170 1 0 166 0 171 1 173 172 6 174
                                  1 0 172 0 175 1 177 176 6 178 1 0 176
                                  0 179 3 181 180 6 172 180 182 3 0 183
                                  0 172 183 184 3 186 185 6 176 185 187
                                  3 0 188 0 176 188 189 2 7 28 0 0 190
                                  2 0 28 0 0 191 1 0 28 0 192 1 7 193 0
                                  194 1 0 193 0 195 1 0 196 0 197 1 7 0
                                  0 198 2 7 0 0 0 199 1 0 0 0 200 2 7
                                  85 0 0 201 2 0 85 0 7 202 2 6 85 0 7
                                  203 2 6 0 0 0 204 2 0 85 0 0 205 2 6
                                  85 0 0 206 1 0 85 0 207 1 6 28 0 208
                                  1 6 85 0 209 1 7 210 0 211 2 6 0 7 0
                                  212 0 6 0 213 1 6 0 0 214 1 0 210 0
                                  215 1 7 10 0 216 1 0 10 0 217 2 7 0 0
                                  0 218 2 6 115 0 0 219 2 0 0 0 0 220 2
                                  7 0 0 0 221 2 0 0 0 0 222 2 7 0 0 0
                                  223 2 7 28 0 0 224 2 6 0 0 0 225 2 0
                                  115 0 0 226 0 7 0 228 1 7 0 0 229 1 0
                                  7 0 230 1 7 0 0 231 1 7 0 0 232 0 0 0
                                  233 1 0 0 0 234 1 0 0 0 235 1 0 0 0
                                  236 1 0 0 0 237 1 0 0 0 238 1 0 0 0
                                  239 1 0 0 0 240 1 0 0 0 241 1 0 0 0
                                  242 1 0 0 0 243 1 0 0 0 244 1 0 0 0
                                  245 1 0 0 0 246 1 0 0 0 247 0 0 6 248
                                  2 6 0 0 7 249 2 6 0 0 0 250 1 6 0 0
                                  251 1 6 7 0 252 1 7 0 0 253 1 7 0 0
                                  254 1 6 0 0 255 1 7 28 0 256 1 0 257
                                  0 258 1 193 28 0 259 1 7 28 0 260 2 7
                                  0 0 193 261 1 193 25 0 262 1 7 0 193
                                  263 2 0 0 0 193 264 1 193 25 0 265 1
                                  193 0 25 266 2 193 0 0 0 267 1 0 210
                                  0 215 1 0 7 0 95 1 0 0 0 244 1 0 0 0
                                  238 2 0 36 37 38 39 1 0 0 0 242 1 0 0
                                  0 236 1 0 138 0 139 1 0 7 0 137 2 0 0
                                  0 0 220 2 0 152 146 125 153 1 0 141
                                  146 147 1 0 0 11 118 1 0 85 0 207 1 0
                                  196 0 197 1 0 28 0 192 1 0 193 0 195
                                  0 0 13 88 2 0 0 0 0 222 1 0 257 0 258
                                  0 0 0 233 3 0 183 0 172 183 184 3 0
                                  188 0 176 188 189 1 0 7 0 93 1 0 11 0
                                  120 2 0 0 100 0 101 1 0 0 0 235 1 0
                                  11 0 119 1 0 0 0 200 0 0 0 96 1 0 50
                                  38 87 1 0 50 38 56 2 0 85 0 0 205 2 0
                                  85 0 7 202 1 0 0 0 234 1 0 10 0 217 2
                                  0 115 0 0 226 0 0 7 90 2 0 0 0 100
                                  112 0 0 11 113 1 0 0 0 243 1 0 0 0
                                  237 1 0 108 0 109 2 0 108 0 125 126 1
                                  0 166 0 171 1 0 163 0 165 1 0 158 0
                                  160 1 0 176 0 179 1 0 172 0 175 1 0 0
                                  0 97 1 0 127 0 136 1 0 11 0 23 0 0 10
                                  99 1 0 0 0 247 1 0 0 0 241 1 0 0 0
                                  245 1 0 0 0 239 1 0 7 0 230 1 0 0 0
                                  246 1 0 0 0 240 1 0 0 0 155 2 0 28 0
                                  0 103 2 0 28 0 0 191 1 0 0 0 105 2 0
                                  0 0 0 104 2 0 0 0 193 264 2 0 0 7 0
                                  107 2 0 0 25 0 111 2 0 0 0 0 140)))))
          '|lookupComplete|)) 
