
(/VERSIONCHECK 2) 

(DEFUN |ALGPKG;convVM| (|v| $)
  (PROG (|cond| |i| #0=#:G1823 |j| #1=#:G1824 |z|)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (QREFELT $ 10) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #2=(|ALGPKG;convVM|))
           (LETT |z| 0 . #2#)
           (SEQ (LETT |i| 1 . #2#) (LETT #0# (QREFELT $ 10) . #2#) G190
                (COND ((QSGREATERP |i| #0#) #3=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #2#)
                                (LETT #1# (QREFELT $ 10) . #2#) G190
                                (COND ((QSGREATERP |j| #1#) #3#))
                                (SEQ (LETT |z| (+ |z| 1) . #2#)
                                     (EXIT
                                      (SPADCALL |cond| |i| |j|
                                       (SPADCALL |v| |z|
                                        (QREFELT $ 23))
                                       (QREFELT $ 24))))
                                (LETT |j| (QSADD1 |j|) . #2#)
                                #4=(GO G190) G191 (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #2#) #4# G191 (EXIT NIL))
           (EXIT |cond|))))) 

(DEFUN |ALGPKG;radicalOfLeftTraceForm;L;2| ($)
  (PROG (|ma|)
    (RETURN
      (SEQ (LETT |ma| (SPADCALL (QREFELT $ 25))
                 |ALGPKG;radicalOfLeftTraceForm;L;2|)
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |ma| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfLeftAnnihilator;AL;3| (|a| $)
  (PROG (|ca| #0=#:G1832 #1=#:G1833 |i| #2=#:G1834 |cond|)
    (RETURN
      (SEQ (LETT |ca|
                 (SPADCALL
                     (SPADCALL (SPADCALL |a| (QREFELT $ 34))
                         (QREFELT $ 35))
                     (QREFELT $ 36))
                 . #3=(|ALGPKG;basisOfLeftAnnihilator;AL;3|))
           (LETT |cond|
                 (SPADCALL (ELT $ 37)
                     (PRIMVEC2ARR
                         (PROGN
                           (LETT #0#
                                 (GETREFV #4=(QVSIZE (QREFELT $ 15))) . #3#)
                           (SEQ (LETT #1# 0 . #3#) (LETT |i| 1 . #3#)
                                (LETT #2# #4# . #3#) G190
                                (COND
                                  ((QSGREATERP |i| #2#) (GO G191)))
                                (SEQ (EXIT
                                      (SETELT #0# #1#
                                       (SPADCALL |ca|
                                        (SPADCALL
                                         (SPADCALL (QREFELT $ 15) |i|
                                          (QREFELT $ 38))
                                         (QREFELT $ 36))
                                        (QREFELT $ 39)))))
                                (LETT |i|
                                      (PROG1 (QSADD1 |i|)
                                        (LETT #1# (QSADD1 #1#) . #3#)) . #3#)
                                (GO G190) G191 (EXIT NIL))
                           #0#))
                     (QREFELT $ 41)) . #3#)
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |cond| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfRightAnnihilator;AL;4| (|a| $)
  (PROG (|ca| #0=#:G1838 #1=#:G1839 |i| #2=#:G1840 |cond|)
    (RETURN
      (SEQ (LETT |ca|
                 (SPADCALL
                     (SPADCALL (SPADCALL |a| (QREFELT $ 34))
                         (QREFELT $ 35))
                     (QREFELT $ 36))
                 . #3=(|ALGPKG;basisOfRightAnnihilator;AL;4|))
           (LETT |cond|
                 (SPADCALL (ELT $ 37)
                     (PRIMVEC2ARR
                         (PROGN
                           (LETT #0#
                                 (GETREFV #4=(QVSIZE (QREFELT $ 15))) . #3#)
                           (SEQ (LETT #1# 0 . #3#) (LETT |i| 1 . #3#)
                                (LETT #2# #4# . #3#) G190
                                (COND
                                  ((QSGREATERP |i| #2#) (GO G191)))
                                (SEQ (EXIT
                                      (SETELT #0# #1#
                                       (SPADCALL |ca|
                                        (SPADCALL (QREFELT $ 15) |i|
                                         (QREFELT $ 38))
                                        (QREFELT $ 39)))))
                                (LETT |i|
                                      (PROG1 (QSADD1 |i|)
                                        (LETT #1# (QSADD1 #1#) . #3#)) . #3#)
                                (GO G190) G191 (EXIT NIL))
                           #0#))
                     (QREFELT $ 41)) . #3#)
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |cond| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfLeftNucloid;L;5| ($)
  (PROG (|cond| |condo| |i| #0=#:G1851 |j| #1=#:G1852 |k| #2=#:G1853
                |z| |r| #3=#:G1854 |r1| |r2| #4=#:G1855 |sol|
                #5=#:G1856)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (QREFELT $ 12) (QREFELT $ 11)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #6=(|ALGPKG;basisOfLeftNucloid;L;5|))
           (LETT |condo|
                 (SPADCALL (QREFELT $ 12) (QREFELT $ 11)
                     (|spadConstant| $ 16) (QREFELT $ 19)) . #6#)
           (LETT |z| 0 . #6#)
           (SEQ (LETT |i| 1 . #6#) (LETT #0# (QREFELT $ 10) . #6#) G190
                (COND ((QSGREATERP |i| #0#) #7=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #6#)
                                (LETT #1# (QREFELT $ 10) . #6#) G190
                                (COND ((QSGREATERP |j| #1#) #7#))
                                (SEQ (LETT |r1| 0 . #6#)
                                     (EXIT
                                      (SEQ (LETT |k| 1 . #6#)
                                       (LETT #2# (QREFELT $ 10) . #6#)
                                       G190
                                       (COND
                                         ((QSGREATERP |k| #2#) #7#))
                                       (SEQ (LETT |z| (+ |z| 1) . #6#)
                                        (LETT |r2| |i| . #6#)
                                        (EXIT
                                         (SEQ (LETT |r| 1 . #6#)
                                          (LETT #3#
                                           (QREFELT $ 10) . #6#)
                                          G190
                                          (COND
                                            ((QSGREATERP |r| #3#) #7#))
                                          (SEQ
                                           (LETT |r1| (+ |r1| 1) . #6#)
                                           (SPADCALL |cond| |z| |r1|
                                            (SPADCALL
                                             (SPADCALL (QREFELT $ 15)
                                              |r| (QREFELT $ 38))
                                             |i| |j| (QREFELT $ 44))
                                            (QREFELT $ 24))
                                           (SPADCALL |condo| |z| |r2|
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL (QREFELT $ 15)
                                               |k| (QREFELT $ 38))
                                              |r| |j| (QREFELT $ 44))
                                             (QREFELT $ 45))
                                            (QREFELT $ 24))
                                           (EXIT
                                            (LETT |r2|
                                             (+ |r2| (QREFELT $ 10)) . #6#)))
                                          (LETT |r| (QSADD1 |r|) . #6#)
                                          #8=(GO G190) G191 (EXIT NIL))))
                                       (LETT |k| (QSADD1 |k|) . #6#)
                                       #8# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #6#) #8# G191
                                (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #6#) #8# G191 (EXIT NIL))
           (EXIT (PROGN
                   (LETT #4# NIL . #6#)
                   (SEQ (LETT |sol| NIL . #6#)
                        (LETT #5#
                              (SPADCALL
                                  (SPADCALL |cond| |condo|
                                      (QREFELT $ 46))
                                  (QREFELT $ 28)) . #6#)
                        G190
                        (COND
                          ((OR (ATOM #5#)
                               (PROGN
                                 (LETT |sol| (CAR #5#) . #6#)
                                 NIL))
                           #7#))
                        (SEQ (EXIT (LETT #4#
                                    (CONS (|ALGPKG;convVM| |sol| $)
                                     #4#) . #6#)))
                        (LETT #5# (CDR #5#) . #6#) #8# G191
                        (EXIT (NREVERSE0 #4#))))))))) 

(DEFUN |ALGPKG;basisOfCommutingElements;L;6| ($)
  (PROG (#0=#:G1860 #1=#:G1861 |i| #2=#:G1862 |gam| |cond|)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (ELT $ 37)
                     (PRIMVEC2ARR
                         (PROGN
                           (LETT #0#
                                 (GETREFV #3=(QVSIZE (QREFELT $ 15)))
                                 . #4=(|ALGPKG;basisOfCommutingElements;L;6|))
                           (SEQ (LETT #1# 0 . #4#) (LETT |i| 1 . #4#)
                                (LETT #2# #3# . #4#) G190
                                (COND
                                  ((QSGREATERP |i| #2#) (GO G191)))
                                (SEQ (EXIT
                                      (SETELT #0# #1#
                                       (SPADCALL
                                        (LETT |gam|
                                         (SPADCALL (QREFELT $ 15) |i|
                                          (QREFELT $ 38)) . #4#)
                                        (SPADCALL |gam| (QREFELT $ 36))
                                        (QREFELT $ 49)))))
                                (LETT |i|
                                      (PROG1 (QSADD1 |i|)
                                        (LETT #1# (QSADD1 #1#) . #4#)) . #4#)
                                (GO G190) G191 (EXIT NIL))
                           #0#))
                     (QREFELT $ 41)) . #4#)
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |cond| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfLeftNucleus;L;7| ($)
  (PROG (|condi| |k| #0=#:G1872 |j| #1=#:G1873 |s| #2=#:G1874 |z| |i|
                 #3=#:G1875 |l| #4=#:G1876 |entry|)
    (RETURN
      (SEQ (LETT |condi|
                 (SPADCALL (QREFELT $ 12) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #5=(|ALGPKG;basisOfLeftNucleus;L;7|))
           (LETT |z| 0 . #5#)
           (SEQ (LETT |k| 1 . #5#) (LETT #0# (QREFELT $ 10) . #5#) G190
                (COND ((QSGREATERP |k| #0#) #6=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #5#)
                                (LETT #1# (QREFELT $ 10) . #5#) G190
                                (COND ((QSGREATERP |j| #1#) #6#))
                                (SEQ (EXIT
                                      (SEQ (LETT |s| 1 . #5#)
                                       (LETT #2# (QREFELT $ 10) . #5#)
                                       G190
                                       (COND
                                         ((QSGREATERP |s| #2#) #6#))
                                       (SEQ (LETT |z| (+ |z| 1) . #5#)
                                        (EXIT
                                         (SEQ (LETT |i| 1 . #5#)
                                          (LETT #3#
                                           (QREFELT $ 10) . #5#)
                                          G190
                                          (COND
                                            ((QSGREATERP |i| #3#) #6#))
                                          (SEQ
                                           (LETT |entry|
                                            (|spadConstant| $ 16) . #5#)
                                           (SEQ (LETT |l| 1 . #5#)
                                            (LETT #4#
                                             (QREFELT $ 10) . #5#)
                                            G190
                                            (COND
                                              ((QSGREATERP |l| #4#)
                                               #6#))
                                            (SEQ
                                             (EXIT
                                              (LETT |entry|
                                               (SPADCALL
                                                (SPADCALL |entry|
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |l|
                                                    (QREFELT $ 38))
                                                   |j| |k|
                                                   (QREFELT $ 44))
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |s|
                                                    (QREFELT $ 38))
                                                   |i| |l|
                                                   (QREFELT $ 44))
                                                  (QREFELT $ 51))
                                                 (QREFELT $ 52))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |i| |j|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |l| |k|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 53)) . #5#)))
                                            (LETT |l|
                                             (QSADD1 |l|) . #5#)
                                            #7=(GO G190) G191
                                            (EXIT NIL))
                                           (EXIT
                                            (SPADCALL |condi| |z| |i|
                                             |entry| (QREFELT $ 24))))
                                          (LETT |i| (QSADD1 |i|) . #5#)
                                          #7# G191 (EXIT NIL))))
                                       (LETT |s| (QSADD1 |s|) . #5#)
                                       #7# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #5#) #7# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #5#) #7# G191 (EXIT NIL))
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |condi| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfRightNucleus;L;8| ($)
  (PROG (|condo| |k| #0=#:G1886 |j| #1=#:G1887 |s| #2=#:G1888 |z| |i|
                 #3=#:G1889 |l| #4=#:G1890 |entry|)
    (RETURN
      (SEQ (LETT |condo|
                 (SPADCALL (QREFELT $ 12) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #5=(|ALGPKG;basisOfRightNucleus;L;8|))
           (LETT |z| 0 . #5#)
           (SEQ (LETT |k| 1 . #5#) (LETT #0# (QREFELT $ 10) . #5#) G190
                (COND ((QSGREATERP |k| #0#) #6=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #5#)
                                (LETT #1# (QREFELT $ 10) . #5#) G190
                                (COND ((QSGREATERP |j| #1#) #6#))
                                (SEQ (EXIT
                                      (SEQ (LETT |s| 1 . #5#)
                                       (LETT #2# (QREFELT $ 10) . #5#)
                                       G190
                                       (COND
                                         ((QSGREATERP |s| #2#) #6#))
                                       (SEQ (LETT |z| (+ |z| 1) . #5#)
                                        (EXIT
                                         (SEQ (LETT |i| 1 . #5#)
                                          (LETT #3#
                                           (QREFELT $ 10) . #5#)
                                          G190
                                          (COND
                                            ((QSGREATERP |i| #3#) #6#))
                                          (SEQ
                                           (LETT |entry|
                                            (|spadConstant| $ 16) . #5#)
                                           (SEQ (LETT |l| 1 . #5#)
                                            (LETT #4#
                                             (QREFELT $ 10) . #5#)
                                            G190
                                            (COND
                                              ((QSGREATERP |l| #4#)
                                               #6#))
                                            (SEQ
                                             (EXIT
                                              (LETT |entry|
                                               (SPADCALL
                                                (SPADCALL |entry|
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |l|
                                                    (QREFELT $ 38))
                                                   |k| |i|
                                                   (QREFELT $ 44))
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |s|
                                                    (QREFELT $ 38))
                                                   |j| |l|
                                                   (QREFELT $ 44))
                                                  (QREFELT $ 51))
                                                 (QREFELT $ 52))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |j| |k|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |l| |i|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 53)) . #5#)))
                                            (LETT |l|
                                             (QSADD1 |l|) . #5#)
                                            #7=(GO G190) G191
                                            (EXIT NIL))
                                           (EXIT
                                            (SPADCALL |condo| |z| |i|
                                             |entry| (QREFELT $ 24))))
                                          (LETT |i| (QSADD1 |i|) . #5#)
                                          #7# G191 (EXIT NIL))))
                                       (LETT |s| (QSADD1 |s|) . #5#)
                                       #7# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #5#) #7# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #5#) #7# G191 (EXIT NIL))
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |condo| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfMiddleNucleus;L;9| ($)
  (PROG (|conda| |k| #0=#:G1900 |j| #1=#:G1901 |s| #2=#:G1902 |z| |i|
                 #3=#:G1903 |l| #4=#:G1904 |entry|)
    (RETURN
      (SEQ (LETT |conda|
                 (SPADCALL (QREFELT $ 12) (QREFELT $ 10)
                           (|spadConstant| $ 16) (QREFELT $ 19))
                 . #5=(|ALGPKG;basisOfMiddleNucleus;L;9|))
           (LETT |z| 0 . #5#)
           (SEQ (LETT |k| 1 . #5#) (LETT #0# (QREFELT $ 10) . #5#) G190
                (COND ((QSGREATERP |k| #0#) #6=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #5#)
                                (LETT #1# (QREFELT $ 10) . #5#) G190
                                (COND ((QSGREATERP |j| #1#) #6#))
                                (SEQ (EXIT
                                      (SEQ (LETT |s| 1 . #5#)
                                       (LETT #2# (QREFELT $ 10) . #5#)
                                       G190
                                       (COND
                                         ((QSGREATERP |s| #2#) #6#))
                                       (SEQ (LETT |z| (+ |z| 1) . #5#)
                                        (EXIT
                                         (SEQ (LETT |i| 1 . #5#)
                                          (LETT #3#
                                           (QREFELT $ 10) . #5#)
                                          G190
                                          (COND
                                            ((QSGREATERP |i| #3#) #6#))
                                          (SEQ
                                           (LETT |entry|
                                            (|spadConstant| $ 16) . #5#)
                                           (SEQ (LETT |l| 1 . #5#)
                                            (LETT #4#
                                             (QREFELT $ 10) . #5#)
                                            G190
                                            (COND
                                              ((QSGREATERP |l| #4#)
                                               #6#))
                                            (SEQ
                                             (EXIT
                                              (LETT |entry|
                                               (SPADCALL
                                                (SPADCALL |entry|
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |l|
                                                    (QREFELT $ 38))
                                                   |j| |i|
                                                   (QREFELT $ 44))
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |s|
                                                    (QREFELT $ 38))
                                                   |l| |k|
                                                   (QREFELT $ 44))
                                                  (QREFELT $ 51))
                                                 (QREFELT $ 52))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |i| |k|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |j| |l|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 53)) . #5#)))
                                            (LETT |l|
                                             (QSADD1 |l|) . #5#)
                                            #7=(GO G190) G191
                                            (EXIT NIL))
                                           (EXIT
                                            (SPADCALL |conda| |z| |i|
                                             |entry| (QREFELT $ 24))))
                                          (LETT |i| (QSADD1 |i|) . #5#)
                                          #7# G191 (EXIT NIL))))
                                       (LETT |s| (QSADD1 |s|) . #5#)
                                       #7# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #5#) #7# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #5#) #7# G191 (EXIT NIL))
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |conda| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfNucleus;L;10| ($)
  (PROG (|condi| |k| #0=#:G1915 |j| #1=#:G1916 |s| #2=#:G1917 |z| |u|
                 |w| |i| #3=#:G1918 |l| #4=#:G1919 |entry| |enter|
                 |ent|)
    (RETURN
      (SEQ (LETT |condi|
                 (SPADCALL (* 3 (QREFELT $ 12)) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #5=(|ALGPKG;basisOfNucleus;L;10|))
           (LETT |z| 0 . #5#) (LETT |u| (QREFELT $ 12) . #5#)
           (LETT |w| (* 2 (QREFELT $ 12)) . #5#)
           (SEQ (LETT |k| 1 . #5#) (LETT #0# (QREFELT $ 10) . #5#) G190
                (COND ((QSGREATERP |k| #0#) #6=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #5#)
                                (LETT #1# (QREFELT $ 10) . #5#) G190
                                (COND ((QSGREATERP |j| #1#) #6#))
                                (SEQ (EXIT
                                      (SEQ (LETT |s| 1 . #5#)
                                       (LETT #2# (QREFELT $ 10) . #5#)
                                       G190
                                       (COND
                                         ((QSGREATERP |s| #2#) #6#))
                                       (SEQ (LETT |z| (+ |z| 1) . #5#)
                                        (LETT |u| (+ |u| 1) . #5#)
                                        (LETT |w| (+ |w| 1) . #5#)
                                        (EXIT
                                         (SEQ (LETT |i| 1 . #5#)
                                          (LETT #3#
                                           (QREFELT $ 10) . #5#)
                                          G190
                                          (COND
                                            ((QSGREATERP |i| #3#) #6#))
                                          (SEQ
                                           (LETT |entry|
                                            (|spadConstant| $ 16) . #5#)
                                           (LETT |enter|
                                            (|spadConstant| $ 16) . #5#)
                                           (LETT |ent|
                                            (|spadConstant| $ 16) . #5#)
                                           (SEQ (LETT |l| 1 . #5#)
                                            (LETT #4#
                                             (QREFELT $ 10) . #5#)
                                            G190
                                            (COND
                                              ((QSGREATERP |l| #4#)
                                               #6#))
                                            (SEQ
                                             (LETT |entry|
                                              (SPADCALL
                                               (SPADCALL |entry|
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |j| |k|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |i| |l|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 52))
                                               (SPADCALL
                                                (SPADCALL
                                                 (SPADCALL
                                                  (QREFELT $ 15) |l|
                                                  (QREFELT $ 38))
                                                 |i| |j|
                                                 (QREFELT $ 44))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (QREFELT $ 15) |s|
                                                  (QREFELT $ 38))
                                                 |l| |k|
                                                 (QREFELT $ 44))
                                                (QREFELT $ 51))
                                               (QREFELT $ 53)) . #5#)
                                             (LETT |enter|
                                              (SPADCALL
                                               (SPADCALL |enter|
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |k| |i|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |j| |l|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 52))
                                               (SPADCALL
                                                (SPADCALL
                                                 (SPADCALL
                                                  (QREFELT $ 15) |l|
                                                  (QREFELT $ 38))
                                                 |j| |k|
                                                 (QREFELT $ 44))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (QREFELT $ 15) |s|
                                                  (QREFELT $ 38))
                                                 |l| |i|
                                                 (QREFELT $ 44))
                                                (QREFELT $ 51))
                                               (QREFELT $ 53)) . #5#)
                                             (EXIT
                                              (LETT |ent|
                                               (SPADCALL
                                                (SPADCALL |ent|
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |l|
                                                    (QREFELT $ 38))
                                                   |j| |k|
                                                   (QREFELT $ 44))
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |s|
                                                    (QREFELT $ 38))
                                                   |i| |l|
                                                   (QREFELT $ 44))
                                                  (QREFELT $ 51))
                                                 (QREFELT $ 52))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |j| |i|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |l| |k|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 53)) . #5#)))
                                            (LETT |l|
                                             (QSADD1 |l|) . #5#)
                                            #7=(GO G190) G191
                                            (EXIT NIL))
                                           (SPADCALL |condi| |z| |i|
                                            |entry| (QREFELT $ 24))
                                           (SPADCALL |condi| |u| |i|
                                            |enter| (QREFELT $ 24))
                                           (EXIT
                                            (SPADCALL |condi| |w| |i|
                                             |ent| (QREFELT $ 24))))
                                          (LETT |i| (QSADD1 |i|) . #5#)
                                          #7# G191 (EXIT NIL))))
                                       (LETT |s| (QSADD1 |s|) . #5#)
                                       #7# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #5#) #7# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #5#) #7# G191 (EXIT NIL))
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL |condi| (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfCenter;L;11| ($)
  (PROG (|gamma1| #0=#:G1932 |gammak| |cond| B |condi| |k| #1=#:G1933
            |j| #2=#:G1934 |s| #3=#:G1935 |z| |u| |i| #4=#:G1936 |l|
            #5=#:G1937 |entry| |enter| D)
    (RETURN
      (SEQ (LETT |gamma1| (SPADCALL (QREFELT $ 15) (QREFELT $ 58))
                 . #6=(|ALGPKG;basisOfCenter;L;11|))
           (LETT |gamma1|
                 (SPADCALL |gamma1| (SPADCALL |gamma1| (QREFELT $ 36))
                     (QREFELT $ 49)) . #6#)
           (LETT |cond| |gamma1| . #6#)
           (SEQ (LETT |i| 2 . #6#) (LETT #0# (QREFELT $ 10) . #6#) G190
                (COND ((QSGREATERP |i| #0#) #7=(GO G191)))
                (SEQ (LETT |gammak|
                           (SPADCALL (QREFELT $ 15) |i| (QREFELT $ 38)) . #6#)
                     (LETT |gammak|
                           (SPADCALL |gammak|
                               (SPADCALL |gammak| (QREFELT $ 36))
                               (QREFELT $ 49)) . #6#)
                     (EXIT (LETT |cond|
                                 (SPADCALL |cond| |gammak|
                                     (QREFELT $ 37)) . #6#)))
                (LETT |i| (QSADD1 |i|) . #6#) #8=(GO G190) G191
                (EXIT NIL))
           (LETT B |cond| . #6#)
           (LETT |condi|
                 (SPADCALL (* 2 (QREFELT $ 12)) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19)) . #6#)
           (LETT |z| 0 . #6#) (LETT |u| (QREFELT $ 12) . #6#)
           (SEQ (LETT |k| 1 . #6#) (LETT #1# (QREFELT $ 10) . #6#) G190
                (COND ((QSGREATERP |k| #1#) #7#))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #6#)
                                (LETT #2# (QREFELT $ 10) . #6#) G190
                                (COND ((QSGREATERP |j| #2#) #7#))
                                (SEQ (EXIT
                                      (SEQ (LETT |s| 1 . #6#)
                                       (LETT #3# (QREFELT $ 10) . #6#)
                                       G190
                                       (COND
                                         ((QSGREATERP |s| #3#) #7#))
                                       (SEQ (LETT |z| (+ |z| 1) . #6#)
                                        (LETT |u| (+ |u| 1) . #6#)
                                        (EXIT
                                         (SEQ (LETT |i| 1 . #6#)
                                          (LETT #4#
                                           (QREFELT $ 10) . #6#)
                                          G190
                                          (COND
                                            ((QSGREATERP |i| #4#) #7#))
                                          (SEQ
                                           (LETT |entry|
                                            (|spadConstant| $ 16) . #6#)
                                           (LETT |enter|
                                            (|spadConstant| $ 16) . #6#)
                                           (SEQ (LETT |l| 1 . #6#)
                                            (LETT #5#
                                             (QREFELT $ 10) . #6#)
                                            G190
                                            (COND
                                              ((QSGREATERP |l| #5#)
                                               #7#))
                                            (SEQ
                                             (LETT |entry|
                                              (SPADCALL
                                               (SPADCALL |entry|
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |j| |k|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |i| |l|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 52))
                                               (SPADCALL
                                                (SPADCALL
                                                 (SPADCALL
                                                  (QREFELT $ 15) |l|
                                                  (QREFELT $ 38))
                                                 |i| |j|
                                                 (QREFELT $ 44))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (QREFELT $ 15) |s|
                                                  (QREFELT $ 38))
                                                 |l| |k|
                                                 (QREFELT $ 44))
                                                (QREFELT $ 51))
                                               (QREFELT $ 53)) . #6#)
                                             (EXIT
                                              (LETT |enter|
                                               (SPADCALL
                                                (SPADCALL |enter|
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |l|
                                                    (QREFELT $ 38))
                                                   |k| |i|
                                                   (QREFELT $ 44))
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |s|
                                                    (QREFELT $ 38))
                                                   |j| |l|
                                                   (QREFELT $ 44))
                                                  (QREFELT $ 51))
                                                 (QREFELT $ 52))
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |l|
                                                   (QREFELT $ 38))
                                                  |j| |k|
                                                  (QREFELT $ 44))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |s|
                                                   (QREFELT $ 38))
                                                  |l| |i|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 53)) . #6#)))
                                            (LETT |l|
                                             (QSADD1 |l|) . #6#)
                                            #8# G191 (EXIT NIL))
                                           (SPADCALL |condi| |z| |i|
                                            |entry| (QREFELT $ 24))
                                           (EXIT
                                            (SPADCALL |condi| |u| |i|
                                             |enter| (QREFELT $ 24))))
                                          (LETT |i| (QSADD1 |i|) . #6#)
                                          #8# G191 (EXIT NIL))))
                                       (LETT |s| (QSADD1 |s|) . #6#)
                                       #8# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #6#) #8# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #6#) #8# G191 (EXIT NIL))
           (LETT D (SPADCALL |condi| B (QREFELT $ 37)) . #6#)
           (EXIT (SPADCALL (ELT $ 26) (SPADCALL D (QREFELT $ 28))
                     (QREFELT $ 32))))))) 

(DEFUN |ALGPKG;basisOfRightNucloid;L;12| ($)
  (PROG (|cond| |condo| |i| #0=#:G1948 |j| #1=#:G1949 |k| #2=#:G1950
                |z| |r| #3=#:G1951 |r1| |r2| #4=#:G1952 |sol|
                #5=#:G1953)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (QREFELT $ 12) (QREFELT $ 11)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #6=(|ALGPKG;basisOfRightNucloid;L;12|))
           (LETT |condo|
                 (SPADCALL (QREFELT $ 12) (QREFELT $ 11)
                     (|spadConstant| $ 16) (QREFELT $ 19)) . #6#)
           (LETT |z| 0 . #6#)
           (SEQ (LETT |i| 1 . #6#) (LETT #0# (QREFELT $ 10) . #6#) G190
                (COND ((QSGREATERP |i| #0#) #7=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #6#)
                                (LETT #1# (QREFELT $ 10) . #6#) G190
                                (COND ((QSGREATERP |j| #1#) #7#))
                                (SEQ (LETT |r1| 0 . #6#)
                                     (EXIT
                                      (SEQ (LETT |k| 1 . #6#)
                                       (LETT #2# (QREFELT $ 10) . #6#)
                                       G190
                                       (COND
                                         ((QSGREATERP |k| #2#) #7#))
                                       (SEQ (LETT |z| (+ |z| 1) . #6#)
                                        (LETT |r2| |i| . #6#)
                                        (EXIT
                                         (SEQ (LETT |r| 1 . #6#)
                                          (LETT #3#
                                           (QREFELT $ 10) . #6#)
                                          G190
                                          (COND
                                            ((QSGREATERP |r| #3#) #7#))
                                          (SEQ
                                           (LETT |r1| (+ |r1| 1) . #6#)
                                           (SPADCALL |cond| |z| |r1|
                                            (SPADCALL
                                             (SPADCALL (QREFELT $ 15)
                                              |r| (QREFELT $ 38))
                                             |j| |i| (QREFELT $ 44))
                                            (QREFELT $ 24))
                                           (SPADCALL |condo| |z| |r2|
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL (QREFELT $ 15)
                                               |k| (QREFELT $ 38))
                                              |j| |r| (QREFELT $ 44))
                                             (QREFELT $ 45))
                                            (QREFELT $ 24))
                                           (EXIT
                                            (LETT |r2|
                                             (+ |r2| (QREFELT $ 10)) . #6#)))
                                          (LETT |r| (QSADD1 |r|) . #6#)
                                          #8=(GO G190) G191 (EXIT NIL))))
                                       (LETT |k| (QSADD1 |k|) . #6#)
                                       #8# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #6#) #8# G191
                                (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #6#) #8# G191 (EXIT NIL))
           (EXIT (PROGN
                   (LETT #4# NIL . #6#)
                   (SEQ (LETT |sol| NIL . #6#)
                        (LETT #5#
                              (SPADCALL
                                  (SPADCALL |cond| |condo|
                                      (QREFELT $ 46))
                                  (QREFELT $ 28)) . #6#)
                        G190
                        (COND
                          ((OR (ATOM #5#)
                               (PROGN
                                 (LETT |sol| (CAR #5#) . #6#)
                                 NIL))
                           #7#))
                        (SEQ (EXIT (LETT #4#
                                    (CONS (|ALGPKG;convVM| |sol| $)
                                     #4#) . #6#)))
                        (LETT #5# (CDR #5#) . #6#) #8# G191
                        (EXIT (NREVERSE0 #4#))))))))) 

(DEFUN |ALGPKG;basisOfCentroid;L;13| ($)
  (PROG (|cond| |condo| |i| #0=#:G1964 |j| #1=#:G1965 |k| #2=#:G1966
                |z| |u| |r| #3=#:G1967 |r1| |r2| #4=#:G1968 |sol|
                #5=#:G1969)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (* 2 (QREFELT $ 12)) (QREFELT $ 11)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #6=(|ALGPKG;basisOfCentroid;L;13|))
           (LETT |condo|
                 (SPADCALL (* 2 (QREFELT $ 12)) (QREFELT $ 11)
                     (|spadConstant| $ 16) (QREFELT $ 19)) . #6#)
           (LETT |z| 0 . #6#) (LETT |u| (QREFELT $ 12) . #6#)
           (SEQ (LETT |i| 1 . #6#) (LETT #0# (QREFELT $ 10) . #6#) G190
                (COND ((QSGREATERP |i| #0#) #7=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #6#)
                                (LETT #1# (QREFELT $ 10) . #6#) G190
                                (COND ((QSGREATERP |j| #1#) #7#))
                                (SEQ (LETT |r1| 0 . #6#)
                                     (EXIT
                                      (SEQ (LETT |k| 1 . #6#)
                                       (LETT #2# (QREFELT $ 10) . #6#)
                                       G190
                                       (COND
                                         ((QSGREATERP |k| #2#) #7#))
                                       (SEQ (LETT |z| (+ |z| 1) . #6#)
                                        (LETT |u| (+ |u| 1) . #6#)
                                        (LETT |r2| |i| . #6#)
                                        (EXIT
                                         (SEQ (LETT |r| 1 . #6#)
                                          (LETT #3#
                                           (QREFELT $ 10) . #6#)
                                          G190
                                          (COND
                                            ((QSGREATERP |r| #3#) #7#))
                                          (SEQ
                                           (LETT |r1| (+ |r1| 1) . #6#)
                                           (SPADCALL |cond| |z| |r1|
                                            (SPADCALL
                                             (SPADCALL (QREFELT $ 15)
                                              |r| (QREFELT $ 38))
                                             |i| |j| (QREFELT $ 44))
                                            (QREFELT $ 24))
                                           (SPADCALL |cond| |u| |r1|
                                            (SPADCALL
                                             (SPADCALL (QREFELT $ 15)
                                              |r| (QREFELT $ 38))
                                             |j| |i| (QREFELT $ 44))
                                            (QREFELT $ 24))
                                           (SPADCALL |condo| |z| |r2|
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL (QREFELT $ 15)
                                               |k| (QREFELT $ 38))
                                              |r| |j| (QREFELT $ 44))
                                             (QREFELT $ 45))
                                            (QREFELT $ 24))
                                           (SPADCALL |condo| |u| |r2|
                                            (SPADCALL
                                             (SPADCALL
                                              (SPADCALL (QREFELT $ 15)
                                               |k| (QREFELT $ 38))
                                              |j| |r| (QREFELT $ 44))
                                             (QREFELT $ 45))
                                            (QREFELT $ 24))
                                           (EXIT
                                            (LETT |r2|
                                             (+ |r2| (QREFELT $ 10)) . #6#)))
                                          (LETT |r| (QSADD1 |r|) . #6#)
                                          #8=(GO G190) G191 (EXIT NIL))))
                                       (LETT |k| (QSADD1 |k|) . #6#)
                                       #8# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #6#) #8# G191
                                (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #6#) #8# G191 (EXIT NIL))
           (EXIT (PROGN
                   (LETT #4# NIL . #6#)
                   (SEQ (LETT |sol| NIL . #6#)
                        (LETT #5#
                              (SPADCALL
                                  (SPADCALL |cond| |condo|
                                      (QREFELT $ 46))
                                  (QREFELT $ 28)) . #6#)
                        G190
                        (COND
                          ((OR (ATOM #5#)
                               (PROGN
                                 (LETT |sol| (CAR #5#) . #6#)
                                 NIL))
                           #7#))
                        (SEQ (EXIT (LETT #4#
                                    (CONS (|ALGPKG;convVM| |sol| $)
                                     #4#) . #6#)))
                        (LETT #5# (CDR #5#) . #6#) #8# G191
                        (EXIT (NREVERSE0 #4#))))))))) 

(DEFUN |ALGPKG;doubleRank;ANni;14| (|x| $)
  (PROG (|cond| |k| #0=#:G1978 |j| #1=#:G1979 |z| |u| |i| #2=#:G1980
                |entry| |enter|)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (* 2 (QREFELT $ 10)) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #3=(|ALGPKG;doubleRank;ANni;14|))
           (SEQ (LETT |k| 1 . #3#) (LETT #0# (QREFELT $ 10) . #3#) G190
                (COND ((QSGREATERP |k| #0#) #4=(GO G191)))
                (SEQ (LETT |z| 0 . #3#) (LETT |u| (QREFELT $ 10) . #3#)
                     (EXIT (SEQ (LETT |j| 1 . #3#)
                                (LETT #1# (QREFELT $ 10) . #3#) G190
                                (COND ((QSGREATERP |j| #1#) #4#))
                                (SEQ (LETT |z| (+ |z| 1) . #3#)
                                     (LETT |u| (+ |u| 1) . #3#)
                                     (LETT |entry|
                                      (|spadConstant| $ 16) . #3#)
                                     (LETT |enter|
                                      (|spadConstant| $ 16) . #3#)
                                     (SEQ (LETT |i| 1 . #3#)
                                      (LETT #2# (QREFELT $ 10) . #3#)
                                      G190
                                      (COND
                                        ((QSGREATERP |i| #2#) #4#))
                                      (SEQ
                                       (LETT |entry|
                                        (SPADCALL |entry|
                                         (SPADCALL
                                          (SPADCALL |x| |i|
                                           (QREFELT $ 62))
                                          (SPADCALL
                                           (SPADCALL (QREFELT $ 15) |k|
                                            (QREFELT $ 38))
                                           |j| |i| (QREFELT $ 44))
                                          (QREFELT $ 51))
                                         (QREFELT $ 52)) . #3#)
                                       (EXIT
                                        (LETT |enter|
                                         (SPADCALL |enter|
                                          (SPADCALL
                                           (SPADCALL |x| |i|
                                            (QREFELT $ 62))
                                           (SPADCALL
                                            (SPADCALL (QREFELT $ 15)
                                             |k| (QREFELT $ 38))
                                            |i| |j| (QREFELT $ 44))
                                           (QREFELT $ 51))
                                          (QREFELT $ 52)) . #3#)))
                                      (LETT |i| (QSADD1 |i|) . #3#)
                                      #5=(GO G190) G191 (EXIT NIL))
                                     (SPADCALL |cond| |z| |k| |entry|
                                      (QREFELT $ 24))
                                     (EXIT
                                      (SPADCALL |cond| |u| |k| |enter|
                                       (QREFELT $ 24))))
                                (LETT |j| (QSADD1 |j|) . #3#) #5# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #3#) #5# G191 (EXIT NIL))
           (EXIT (SPADCALL |cond| (QREFELT $ 63))))))) 

(DEFUN |ALGPKG;weakBiRank;ANni;15| (|x| $)
  (PROG (|cond| |i| #0=#:G1990 |j| #1=#:G1991 |z| |k| #2=#:G1992 |l|
                #3=#:G1993 |s| #4=#:G1994 |entry|)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (QREFELT $ 11) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #5=(|ALGPKG;weakBiRank;ANni;15|))
           (LETT |z| 0 . #5#)
           (SEQ (LETT |i| 1 . #5#) (LETT #0# (QREFELT $ 10) . #5#) G190
                (COND ((QSGREATERP |i| #0#) #6=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #5#)
                                (LETT #1# (QREFELT $ 10) . #5#) G190
                                (COND ((QSGREATERP |j| #1#) #6#))
                                (SEQ (LETT |z| (+ |z| 1) . #5#)
                                     (EXIT
                                      (SEQ (LETT |k| 1 . #5#)
                                       (LETT #2# (QREFELT $ 10) . #5#)
                                       G190
                                       (COND
                                         ((QSGREATERP |k| #2#) #6#))
                                       (SEQ
                                        (LETT |entry|
                                         (|spadConstant| $ 16) . #5#)
                                        (SEQ (LETT |l| 1 . #5#)
                                         (LETT #3#
                                          (QREFELT $ 10) . #5#)
                                         G190
                                         (COND
                                           ((QSGREATERP |l| #3#) #6#))
                                         (SEQ
                                          (EXIT
                                           (SEQ (LETT |s| 1 . #5#)
                                            (LETT #4#
                                             (QREFELT $ 10) . #5#)
                                            G190
                                            (COND
                                              ((QSGREATERP |s| #4#)
                                               #6#))
                                            (SEQ
                                             (EXIT
                                              (LETT |entry|
                                               (SPADCALL |entry|
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL |x| |l|
                                                   (QREFELT $ 62))
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |s|
                                                    (QREFELT $ 38))
                                                   |i| |l|
                                                   (QREFELT $ 44))
                                                  (QREFELT $ 51))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |k|
                                                   (QREFELT $ 38))
                                                  |s| |j|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 52)) . #5#)))
                                            (LETT |s|
                                             (QSADD1 |s|) . #5#)
                                            #7=(GO G190) G191
                                            (EXIT NIL))))
                                         (LETT |l| (QSADD1 |l|) . #5#)
                                         #7# G191 (EXIT NIL))
                                        (EXIT
                                         (SPADCALL |cond| |z| |k|
                                          |entry| (QREFELT $ 24))))
                                       (LETT |k| (QSADD1 |k|) . #5#)
                                       #7# G191 (EXIT NIL))))
                                (LETT |j| (QSADD1 |j|) . #5#) #7# G191
                                (EXIT NIL))))
                (LETT |i| (QSADD1 |i|) . #5#) #7# G191 (EXIT NIL))
           (EXIT (SPADCALL |cond| (QREFELT $ 63))))))) 

(DEFUN |ALGPKG;biRank;ANni;16| (|x| $)
  (PROG (|cond| #0=#:G2010 #1=#:G2011 |z| #2=#:G2012 |l| #3=#:G2013 |s|
                #4=#:G2014 |c| |j| #5=#:G2015 |u| |w| |k| #6=#:G2016
                |i| #7=#:G2017 |entry| |enter|)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL
                     (+ (+ (QREFELT $ 11) (* 2 (QREFELT $ 10))) 1)
                     (QREFELT $ 10) (|spadConstant| $ 16)
                     (QREFELT $ 19))
                 . #8=(|ALGPKG;biRank;ANni;16|))
           (LETT |z| 0 . #8#)
           (SEQ (LETT |j| 1 . #8#) (LETT #0# (QREFELT $ 10) . #8#) G190
                (COND ((QSGREATERP |j| #0#) #9=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |i| 1 . #8#)
                                (LETT #1# (QREFELT $ 10) . #8#) G190
                                (COND ((QSGREATERP |i| #1#) #9#))
                                (SEQ (LETT |z| (+ |z| 1) . #8#)
                                     (EXIT
                                      (SEQ (LETT |k| 1 . #8#)
                                       (LETT #2# (QREFELT $ 10) . #8#)
                                       G190
                                       (COND
                                         ((QSGREATERP |k| #2#) #9#))
                                       (SEQ
                                        (LETT |entry|
                                         (|spadConstant| $ 16) . #8#)
                                        (SEQ (LETT |l| 1 . #8#)
                                         (LETT #3#
                                          (QREFELT $ 10) . #8#)
                                         G190
                                         (COND
                                           ((QSGREATERP |l| #3#) #9#))
                                         (SEQ
                                          (EXIT
                                           (SEQ (LETT |s| 1 . #8#)
                                            (LETT #4#
                                             (QREFELT $ 10) . #8#)
                                            G190
                                            (COND
                                              ((QSGREATERP |s| #4#)
                                               #9#))
                                            (SEQ
                                             (EXIT
                                              (LETT |entry|
                                               (SPADCALL |entry|
                                                (SPADCALL
                                                 (SPADCALL
                                                  (SPADCALL |x| |l|
                                                   (QREFELT $ 62))
                                                  (SPADCALL
                                                   (SPADCALL
                                                    (QREFELT $ 15) |s|
                                                    (QREFELT $ 38))
                                                   |i| |l|
                                                   (QREFELT $ 44))
                                                  (QREFELT $ 51))
                                                 (SPADCALL
                                                  (SPADCALL
                                                   (QREFELT $ 15) |k|
                                                   (QREFELT $ 38))
                                                  |s| |j|
                                                  (QREFELT $ 44))
                                                 (QREFELT $ 51))
                                                (QREFELT $ 52)) . #8#)))
                                            (LETT |s|
                                             (QSADD1 |s|) . #8#)
                                            #10=(GO G190) G191
                                            (EXIT NIL))))
                                         (LETT |l| (QSADD1 |l|) . #8#)
                                         #10# G191 (EXIT NIL))
                                        (EXIT
                                         (SPADCALL |cond| |z| |k|
                                          |entry| (QREFELT $ 24))))
                                       (LETT |k| (QSADD1 |k|) . #8#)
                                       #10# G191 (EXIT NIL))))
                                (LETT |i| (QSADD1 |i|) . #8#) #10# G191
                                (EXIT NIL))))
                (LETT |j| (QSADD1 |j|) . #8#) #10# G191 (EXIT NIL))
           (LETT |u| (* (QREFELT $ 10) (QREFELT $ 10)) . #8#)
           (LETT |w| (* (QREFELT $ 10) (+ (QREFELT $ 10) 1)) . #8#)
           (LETT |c|
                 (+ (+ (QREFELT $ 11) (* 2 (QREFELT $ 10))) 1) . #8#)
           (SEQ (LETT |j| 1 . #8#) (LETT #5# (QREFELT $ 10) . #8#) G190
                (COND ((QSGREATERP |j| #5#) #9#))
                (SEQ (LETT |u| (+ |u| 1) . #8#)
                     (LETT |w| (+ |w| 1) . #8#)
                     (SEQ (LETT |k| 1 . #8#)
                          (LETT #6# (QREFELT $ 10) . #8#) G190
                          (COND ((QSGREATERP |k| #6#) #9#))
                          (SEQ (LETT |entry|
                                     (|spadConstant| $ 16) . #8#)
                               (LETT |enter|
                                     (|spadConstant| $ 16) . #8#)
                               (SEQ (LETT |i| 1 . #8#)
                                    (LETT #7# (QREFELT $ 10) . #8#)
                                    G190
                                    (COND ((QSGREATERP |i| #7#) #9#))
                                    (SEQ
                                     (LETT |entry|
                                      (SPADCALL |entry|
                                       (SPADCALL
                                        (SPADCALL |x| |i|
                                         (QREFELT $ 62))
                                        (SPADCALL
                                         (SPADCALL (QREFELT $ 15) |k|
                                          (QREFELT $ 38))
                                         |j| |i| (QREFELT $ 44))
                                        (QREFELT $ 51))
                                       (QREFELT $ 52)) . #8#)
                                     (EXIT
                                      (LETT |enter|
                                       (SPADCALL |enter|
                                        (SPADCALL
                                         (SPADCALL |x| |i|
                                          (QREFELT $ 62))
                                         (SPADCALL
                                          (SPADCALL (QREFELT $ 15) |k|
                                           (QREFELT $ 38))
                                          |i| |j| (QREFELT $ 44))
                                         (QREFELT $ 51))
                                        (QREFELT $ 52)) . #8#)))
                                    (LETT |i| (QSADD1 |i|) . #8#) #10#
                                    G191 (EXIT NIL))
                               (SPADCALL |cond| |u| |k| |entry|
                                   (QREFELT $ 24))
                               (EXIT (SPADCALL |cond| |w| |k| |enter|
                                      (QREFELT $ 24))))
                          (LETT |k| (QSADD1 |k|) . #8#) #10# G191
                          (EXIT NIL))
                     (EXIT (SPADCALL |cond| |c| |j|
                               (SPADCALL |x| |j| (QREFELT $ 62))
                               (QREFELT $ 24))))
                (LETT |j| (QSADD1 |j|) . #8#) #10# G191 (EXIT NIL))
           (EXIT (SPADCALL |cond| (QREFELT $ 63))))))) 

(DEFUN |ALGPKG;leftRank;ANni;17| (|x| $)
  (PROG (|cond| |k| #0=#:G2024 |j| #1=#:G2025 |i| #2=#:G2026 |entry|)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (QREFELT $ 10) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #3=(|ALGPKG;leftRank;ANni;17|))
           (SEQ (LETT |k| 1 . #3#) (LETT #0# (QREFELT $ 10) . #3#) G190
                (COND ((QSGREATERP |k| #0#) #4=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #3#)
                                (LETT #1# (QREFELT $ 10) . #3#) G190
                                (COND ((QSGREATERP |j| #1#) #4#))
                                (SEQ (LETT |entry|
                                      (|spadConstant| $ 16) . #3#)
                                     (SEQ (LETT |i| 1 . #3#)
                                      (LETT #2# (QREFELT $ 10) . #3#)
                                      G190
                                      (COND
                                        ((QSGREATERP |i| #2#) #4#))
                                      (SEQ
                                       (EXIT
                                        (LETT |entry|
                                         (SPADCALL |entry|
                                          (SPADCALL
                                           (SPADCALL |x| |i|
                                            (QREFELT $ 62))
                                           (SPADCALL
                                            (SPADCALL (QREFELT $ 15)
                                             |k| (QREFELT $ 38))
                                            |i| |j| (QREFELT $ 44))
                                           (QREFELT $ 51))
                                          (QREFELT $ 52)) . #3#)))
                                      (LETT |i| (QSADD1 |i|) . #3#)
                                      #5=(GO G190) G191 (EXIT NIL))
                                     (EXIT
                                      (SPADCALL |cond| |j| |k| |entry|
                                       (QREFELT $ 24))))
                                (LETT |j| (QSADD1 |j|) . #3#) #5# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #3#) #5# G191 (EXIT NIL))
           (EXIT (SPADCALL |cond| (QREFELT $ 63))))))) 

(DEFUN |ALGPKG;rightRank;ANni;18| (|x| $)
  (PROG (|cond| |k| #0=#:G2033 |j| #1=#:G2034 |i| #2=#:G2035 |entry|)
    (RETURN
      (SEQ (LETT |cond|
                 (SPADCALL (QREFELT $ 10) (QREFELT $ 10)
                     (|spadConstant| $ 16) (QREFELT $ 19))
                 . #3=(|ALGPKG;rightRank;ANni;18|))
           (SEQ (LETT |k| 1 . #3#) (LETT #0# (QREFELT $ 10) . #3#) G190
                (COND ((QSGREATERP |k| #0#) #4=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |j| 1 . #3#)
                                (LETT #1# (QREFELT $ 10) . #3#) G190
                                (COND ((QSGREATERP |j| #1#) #4#))
                                (SEQ (LETT |entry|
                                      (|spadConstant| $ 16) . #3#)
                                     (SEQ (LETT |i| 1 . #3#)
                                      (LETT #2# (QREFELT $ 10) . #3#)
                                      G190
                                      (COND
                                        ((QSGREATERP |i| #2#) #4#))
                                      (SEQ
                                       (EXIT
                                        (LETT |entry|
                                         (SPADCALL |entry|
                                          (SPADCALL
                                           (SPADCALL |x| |i|
                                            (QREFELT $ 62))
                                           (SPADCALL
                                            (SPADCALL (QREFELT $ 15)
                                             |k| (QREFELT $ 38))
                                            |j| |i| (QREFELT $ 44))
                                           (QREFELT $ 51))
                                          (QREFELT $ 52)) . #3#)))
                                      (LETT |i| (QSADD1 |i|) . #3#)
                                      #5=(GO G190) G191 (EXIT NIL))
                                     (EXIT
                                      (SPADCALL |cond| |j| |k| |entry|
                                       (QREFELT $ 24))))
                                (LETT |j| (QSADD1 |j|) . #3#) #5# G191
                                (EXIT NIL))))
                (LETT |k| (QSADD1 |k|) . #3#) #5# G191 (EXIT NIL))
           (EXIT (SPADCALL |cond| (QREFELT $ 63))))))) 

(DEFUN |ALGPKG;basis;2V;19| (|va| $)
  (PROG (|v| |i| #0=#:G2047 |m| |mRI| |mCI| |lj| |h| |finished?|
             #1=#:G2048 #2=#:G2049 |j| #3=#:G2050)
    (RETURN
      (SEQ (LETT |v| (SPADCALL (ELT $ 70) |va| (QREFELT $ 73))
                 . #4=(|ALGPKG;basis;2V;19|))
           (LETT |v| (SPADCALL |v| (QREFELT $ 74)) . #4#)
           (EXIT (COND
                   ((SPADCALL |v| (QREFELT $ 75))
                    (VECTOR (|spadConstant| $ 76)))
                   ('T
                    (SEQ (LETT |m|
                               (SPADCALL
                                   (SPADCALL
                                    (SPADCALL |v| 1 (QREFELT $ 77))
                                    (QREFELT $ 34))
                                   (QREFELT $ 35)) . #4#)
                         (SEQ (LETT |i| 2 . #4#)
                              (LETT #0# (QVSIZE |v|) . #4#) G190
                              (COND
                                ((QSGREATERP |i| #0#) #5=(GO G191)))
                              (SEQ (EXIT
                                    (LETT |m|
                                     (SPADCALL |m|
                                      (SPADCALL
                                       (SPADCALL
                                        (SPADCALL |v| |i|
                                         (QREFELT $ 77))
                                        (QREFELT $ 34))
                                       (QREFELT $ 35))
                                      (QREFELT $ 78)) . #4#)))
                              (LETT |i| (QSADD1 |i|) . #4#)
                              #6=(GO G190) G191 (EXIT NIL))
                         (LETT |m| (SPADCALL |m| (QREFELT $ 79)) . #4#)
                         (LETT |lj| NIL . #4#) (LETT |h| 1 . #4#)
                         (LETT |mRI|
                               (SPADCALL |m| (QREFELT $ 80)) . #4#)
                         (LETT |mCI|
                               (SPADCALL |m| (QREFELT $ 81)) . #4#)
                         (LETT |finished?| 'NIL . #4#)
                         (LETT |j| 1 . #4#)
                         (SEQ G190
                              (COND
                                ((NULL (COND
                                         (|finished?| 'NIL)
                                         ('T 'T)))
                                 #5#))
                              (SEQ (EXIT
                                    (COND
                                      ((NULL
                                        (SPADCALL
                                         (SPADCALL |m| |h| |j|
                                          (QREFELT $ 44))
                                         (QREFELT $ 82)))
                                       (SEQ
                                        (LETT |lj|
                                         (CONS |j| |lj|) . #4#)
                                        (LETT |h| |mRI| . #4#)
                                        (SEQ G190
                                         (COND
                                           ((NULL
                                             (SPADCALL
                                              (SPADCALL |m| |h| |j|
                                               (QREFELT $ 44))
                                              (QREFELT $ 82)))
                                            #5#))
                                         (SEQ
                                          (EXIT
                                           (LETT |h| (- |h| 1) . #4#)))
                                         NIL #6# G191 (EXIT NIL))
                                        (LETT |finished?|
                                         (EQL |h| |mRI|) . #4#)
                                        (EXIT
                                         (COND
                                           ((NULL |finished?|)
                                            (LETT |h| (+ |h| 1) . #4#))))))
                                      ((< |j| |mCI|)
                                       (LETT |j| (+ |j| 1) . #4#))
                                      ('T (LETT |finished?| 'T . #4#)))))
                              NIL #6# G191 (EXIT NIL))
                         (EXIT (PRIMVEC2ARR
                                   (PROGN
                                     (LETT #1#
                                      (GETREFV
                                       (SIZE #7=(REVERSE |lj|))) . #4#)
                                     (SEQ (LETT #2# 0 . #4#)
                                      (LETT |j| NIL . #4#)
                                      (LETT #3# #7# . #4#) G190
                                      (COND
                                        ((OR (ATOM #3#)
                                          (PROGN
                                            (LETT |j| (CAR #3#) . #4#)
                                            NIL))
                                         #5#))
                                      (SEQ
                                       (EXIT
                                        (SETELT #1# #2#
                                         (SPADCALL |v| |j|
                                          (QREFELT $ 77)))))
                                      (LETT #3#
                                       (PROG1 (CDR #3#)
                                         (LETT #2# (QSADD1 #2#) . #4#)) . #4#)
                                      #6# G191 (EXIT NIL))
                                     #1#))))))))))) 

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

(DEFUN |AlgebraPackage;| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|AlgebraPackage|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT |dv$| (LIST '|AlgebraPackage| DV$1 DV$2) . #0#)
        (LETT $ (GETREFV 84) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3
            (LETT |pv$|
                  (|buildPredVector| 0 0
                      (LIST (|HasCategory| |#1| '(|EuclideanDomain|)))) . #0#))
        (|haddProp| |$ConstructorCache| '|AlgebraPackage|
            (LIST DV$1 DV$2) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (QSETREFV $ 10 (SPADCALL (QREFELT $ 9)))
        (QSETREFV $ 11 (* (QREFELT $ 10) (QREFELT $ 10)))
        (QSETREFV $ 12 (* (QREFELT $ 10) (QREFELT $ 11)))
        (QSETREFV $ 15 (SPADCALL (QREFELT $ 14)))
        (COND
          ((|testBitVector| |pv$| 1)
           (QSETREFV $ 83
               (CONS (|dispatchFunction| |ALGPKG;basis;2V;19|) $))))
        $)))) 

(MAKEPROP '|AlgebraPackage| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|PositiveInteger|) (0 . |rank|) '|n| '|n2| '|n3|
             (|Vector| 18) (4 . |structuralConstants|) '|gamma|
             (8 . |Zero|) (|NonNegativeInteger|) (|Matrix| 6)
             (12 . |new|) (19 . |One|) (|Integer|) (|Vector| 6)
             (23 . |elt|) (29 . |setelt|) (37 . |leftTraceMatrix|)
             (41 . |represents|) (|List| 22) (46 . |nullSpace|)
             (|List| 7) (|Mapping| 7 22) (|ListFunctions2| 22 7)
             (51 . |map|) |ALGPKG;radicalOfLeftTraceForm;L;2|
             (57 . |coordinates|) (62 . |coerce|) (67 . |transpose|)
             (72 . |vertConcat|) (78 . |elt|) (84 . *)
             (|Mapping| 18 18 18) (90 . |reduce|)
             |ALGPKG;basisOfLeftAnnihilator;AL;3|
             |ALGPKG;basisOfRightAnnihilator;AL;4| (96 . |elt|)
             (103 . -) (108 . +) (|List| 18)
             |ALGPKG;basisOfLeftNucloid;L;5| (114 . -)
             |ALGPKG;basisOfCommutingElements;L;6| (120 . *) (126 . +)
             (132 . -) |ALGPKG;basisOfLeftNucleus;L;7|
             |ALGPKG;basisOfRightNucleus;L;8|
             |ALGPKG;basisOfMiddleNucleus;L;9|
             |ALGPKG;basisOfNucleus;L;10| (138 . |first|)
             |ALGPKG;basisOfCenter;L;11|
             |ALGPKG;basisOfRightNucloid;L;12|
             |ALGPKG;basisOfCentroid;L;13| (143 . |elt|) (149 . |rank|)
             |ALGPKG;doubleRank;ANni;14| |ALGPKG;weakBiRank;ANni;15|
             |ALGPKG;biRank;ANni;16| |ALGPKG;leftRank;ANni;17|
             |ALGPKG;rightRank;ANni;18| (|Boolean|) (154 . |zero?|)
             (|Mapping| 69 7) (|Vector| 7) (159 . |remove|)
             (165 . |removeDuplicates|) (170 . |empty?|) (175 . |Zero|)
             (179 . |elt|) (185 . |horizConcat|) (191 . |rowEchelon|)
             (196 . |maxRowIndex|) (201 . |maxColIndex|)
             (206 . |zero?|) (211 . |basis|))
          '#(|weakBiRank| 216 |rightRank| 221 |radicalOfLeftTraceForm|
             226 |leftRank| 230 |doubleRank| 235 |biRank| 240
             |basisOfRightNucloid| 245 |basisOfRightNucleus| 249
             |basisOfRightAnnihilator| 253 |basisOfNucleus| 258
             |basisOfMiddleNucleus| 262 |basisOfLeftNucloid| 266
             |basisOfLeftNucleus| 270 |basisOfLeftAnnihilator| 274
             |basisOfCommutingElements| 279 |basisOfCentroid| 283
             |basisOfCenter| 287 |basis| 291)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 83
                                '(0 7 8 9 0 7 13 14 0 6 0 16 3 18 0 17
                                  17 6 19 0 6 0 20 2 22 6 0 21 23 4 18
                                  6 0 21 21 6 24 0 7 18 25 1 7 0 22 26
                                  1 18 27 0 28 2 31 29 30 27 32 1 7 22
                                  0 34 1 18 0 22 35 1 18 0 0 36 2 18 0
                                  0 0 37 2 13 18 0 21 38 2 18 0 0 0 39
                                  2 13 18 40 0 41 3 18 6 0 21 21 44 1 6
                                  0 0 45 2 18 0 0 0 46 2 18 0 0 0 49 2
                                  6 0 0 0 51 2 6 0 0 0 52 2 6 0 0 0 53
                                  1 13 18 0 58 2 7 6 0 21 62 1 18 17 0
                                  63 1 7 69 0 70 2 72 0 71 0 73 1 72 0
                                  0 74 1 72 69 0 75 0 7 0 76 2 72 7 0
                                  21 77 2 18 0 0 0 78 1 18 0 0 79 1 18
                                  21 0 80 1 18 21 0 81 1 6 69 0 82 1 0
                                  72 72 83 1 0 17 7 65 1 0 17 7 68 0 0
                                  29 33 1 0 17 7 67 1 0 17 7 64 1 0 17
                                  7 66 0 0 47 60 0 0 29 55 1 0 29 7 43
                                  0 0 29 57 0 0 29 56 0 0 47 48 0 0 29
                                  54 1 0 29 7 42 0 0 29 50 0 0 47 61 0
                                  0 29 59 1 1 72 72 83)))))
          '|lookupComplete|)) 
