
(/VERSIONCHECK 2) 

(DEFUN |TWOFACT;computeDegree| (|m| |mx| |q| $)
  (PROG (#1=#:G1809 |n| |n2| |n1| |my|)
    (RETURN
     (SEQ
      (LETT |my| (SPADCALL |m| (QREFELT $ 9)) . #2=(|TWOFACT;computeDegree|))
      (LETT |n1| (INTEGER-LENGTH (* (SPADCALL 10 |mx| (QREFELT $ 12)) |my|))
            . #2#)
      (LETT |n2| (- (INTEGER-LENGTH |q|) 1) . #2#)
      (LETT |n| (+ (QUOTIENT2 |n1| |n2|) 1) . #2#)
      (EXIT
       (PROG1 (LETT #1# |n| . #2#)
         (|check-subtype| (> #1# 0) '(|PositiveInteger|) #1#))))))) 

(DEFUN |TWOFACT;exchangeVars| (|p| $)
  (COND
   ((SPADCALL |p| (|spadConstant| $ 14) (QREFELT $ 16)) (|spadConstant| $ 14))
   ('T
    (SPADCALL
     (|TWOFACT;exchangeVarTerm| (SPADCALL |p| (QREFELT $ 18))
      (SPADCALL |p| (QREFELT $ 9)) $)
     (|TWOFACT;exchangeVars| (SPADCALL |p| (QREFELT $ 19)) $) (QREFELT $ 20))))) 

(DEFUN |TWOFACT;exchangeVarTerm| (|c| |e| $)
  (COND
   ((SPADCALL |c| (|spadConstant| $ 21) (QREFELT $ 22)) (|spadConstant| $ 14))
   ('T
    (SPADCALL
     (SPADCALL (SPADCALL (SPADCALL |c| (QREFELT $ 23)) |e| (QREFELT $ 24))
               (SPADCALL |c| (QREFELT $ 25)) (QREFELT $ 26))
     (|TWOFACT;exchangeVarTerm| (SPADCALL |c| (QREFELT $ 27)) |e| $)
     (QREFELT $ 20))))) 

(DEFUN |TWOFACT;pthRoot| (|poly| |p| |PthRootPow| $)
  (PROG (|tmp|)
    (RETURN
     (SEQ
      (LETT |tmp|
            (SPADCALL
             (SPADCALL (CONS #'|TWOFACT;pthRoot!0| (VECTOR $ |PthRootPow|))
                       |poly| (QREFELT $ 30))
             |p| (QREFELT $ 32))
            |TWOFACT;pthRoot|)
      (EXIT
       (COND ((QEQCAR |tmp| 1) (|error| "consistency error in TwoFactor"))
             ('T (QCDR |tmp|)))))))) 

(DEFUN |TWOFACT;pthRoot!0| (|x| $$)
  (PROG (|PthRootPow| $)
    (LETT |PthRootPow| (QREFELT $$ 1) . #1=(|TWOFACT;pthRoot|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |x| |PthRootPow| (QREFELT $ 28)))))) 

(DEFUN |TWOFACT;generalSqFr;SupF;5| (|m| $)
  (PROG (|pfaclist| |contlist| #1=#:G1880 |w| #2=#:G1879 |sqp| |unitPart|
         #3=#:G1878 |v| |nfacs| |uexp| #4=#:G1862 #5=#:G1877 |u| |sqfrm|
         #6=#:G1856 |cont| #7=#:G1876 #8=#:G1875 |l|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |m| (|spadConstant| $ 14) (QREFELT $ 16))
        (|spadConstant| $ 34))
       ((EQL (SPADCALL |m| (QREFELT $ 9)) 0)
        (SEQ
         (LETT |l| (SPADCALL (SPADCALL |m| (QREFELT $ 18)) (QREFELT $ 36))
               . #9=(|TWOFACT;generalSqFr;SupF;5|))
         (EXIT
          (SPADCALL (SPADCALL (SPADCALL |l| (QREFELT $ 38)) (QREFELT $ 39))
                    (PROGN
                     (LETT #8# NIL . #9#)
                     (SEQ (LETT |u| NIL . #9#)
                          (LETT #7# (SPADCALL |l| (QREFELT $ 43)) . #9#) G190
                          (COND
                           ((OR (ATOM #7#)
                                (PROGN (LETT |u| (CAR #7#) . #9#) NIL))
                            #10=(GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #8#
                                  (CONS
                                   (VECTOR (QVELT |u| 0)
                                           (SPADCALL (QVELT |u| 1)
                                                     (QREFELT $ 39))
                                           (QVELT |u| 2))
                                   #8#)
                                  . #9#)))
                          (LETT #7# (CDR #7#) . #9#) #11=(GO G190) G191
                          (EXIT (NREVERSE0 #8#))))
                    (QREFELT $ 46)))))
       (#12='T
        (SEQ (LETT |cont| (SPADCALL |m| (QREFELT $ 47)) . #9#)
             (LETT |m|
                   (PROG2
                       (LETT #6# (SPADCALL |m| |cont| (QREFELT $ 48)) . #9#)
                       (QCDR #6#)
                     (|check-union| (QEQCAR #6# 0)
                                    (|SparseUnivariatePolynomial|
                                     (|SparseUnivariatePolynomial|
                                      (QREFELT $ 6)))
                                    #6#))
                   . #9#)
             (LETT |sqfrm| (SPADCALL |m| (QREFELT $ 49)) . #9#)
             (LETT |pfaclist| NIL . #9#)
             (LETT |unitPart| (SPADCALL |sqfrm| (QREFELT $ 50)) . #9#)
             (SEQ (LETT |u| NIL . #9#)
                  (LETT #5# (SPADCALL |sqfrm| (QREFELT $ 51)) . #9#) G190
                  (COND
                   ((OR (ATOM #5#) (PROGN (LETT |u| (CAR #5#) . #9#) NIL))
                    #10#))
                  (SEQ
                   (EXIT
                    (COND
                     ((SPADCALL (QVELT |u| 0) (CONS 0 "nil") (QREFELT $ 52))
                      (SEQ
                       (LETT |uexp|
                             (PROG1 (LETT #4# (QVELT |u| 2) . #9#)
                               (|check-subtype| (>= #4# 0)
                                                '(|NonNegativeInteger|) #4#))
                             . #9#)
                       (LETT |nfacs|
                             (SPADCALL (|TWOFACT;exchangeVars| (QVELT |u| 1) $)
                                       (QREFELT $ 49))
                             . #9#)
                       (SEQ (LETT |v| NIL . #9#)
                            (LETT #3# (SPADCALL |nfacs| (QREFELT $ 51)) . #9#)
                            G190
                            (COND
                             ((OR (ATOM #3#)
                                  (PROGN (LETT |v| (CAR #3#) . #9#) NIL))
                              #10#))
                            (SEQ
                             (EXIT
                              (LETT |pfaclist|
                                    (CONS
                                     (VECTOR (QVELT |v| 0)
                                             (|TWOFACT;exchangeVars|
                                              (QVELT |v| 1) $)
                                             (* (QVELT |v| 2) |uexp|))
                                     |pfaclist|)
                                    . #9#)))
                            (LETT #3# (CDR #3#) . #9#) #11# G191 (EXIT NIL))
                       (EXIT
                        (LETT |unitPart|
                              (SPADCALL
                               (SPADCALL (SPADCALL |nfacs| (QREFELT $ 50))
                                         |uexp| (QREFELT $ 53))
                               |unitPart| (QREFELT $ 54))
                              . #9#))))
                     ('T (LETT |pfaclist| (CONS |u| |pfaclist|) . #9#)))))
                  (LETT #5# (CDR #5#) . #9#) #11# G191 (EXIT NIL))
             (EXIT
              (COND
               ((SPADCALL |cont| (|spadConstant| $ 56) (QREFELT $ 22))
                (SPADCALL |unitPart| |pfaclist| (QREFELT $ 46)))
               (#12#
                (SEQ (LETT |sqp| (SPADCALL |cont| (QREFELT $ 36)) . #9#)
                     (LETT |contlist|
                           (PROGN
                            (LETT #2# NIL . #9#)
                            (SEQ (LETT |w| NIL . #9#)
                                 (LETT #1# (SPADCALL |sqp| (QREFELT $ 43))
                                       . #9#)
                                 G190
                                 (COND
                                  ((OR (ATOM #1#)
                                       (PROGN (LETT |w| (CAR #1#) . #9#) NIL))
                                   #10#))
                                 (SEQ
                                  (EXIT
                                   (LETT #2#
                                         (CONS
                                          (VECTOR (QVELT |w| 0)
                                                  (SPADCALL (QVELT |w| 1)
                                                            (QREFELT $ 39))
                                                  (QVELT |w| 2))
                                          #2#)
                                         . #9#)))
                                 (LETT #1# (CDR #1#) . #9#) #11# G191
                                 (EXIT (NREVERSE0 #2#))))
                           . #9#)
                     (LETT |pfaclist| (APPEND |contlist| |pfaclist|) . #9#)
                     (EXIT
                      (SPADCALL
                       (SPADCALL (SPADCALL |sqp| (QREFELT $ 38)) |unitPart|
                                 (QREFELT $ 57))
                       |pfaclist| (QREFELT $ 46)))))))))))))) 

(DEFUN |TWOFACT;tryTwoFactor;SupF;6| (|m| $) (|TWOFACT;doTwoFactor| |m| 'NIL $)) 

(DEFUN |TWOFACT;generalTwoFactor;SupF;7| (|m| $)
  (|TWOFACT;doTwoFactor| |m| 'T $)) 

(DEFUN |TWOFACT;doTwoFactor| (|m| |doext| $)
  (PROG (|ll| #1=#:G1948 |v| #2=#:G1947 |unitPart| #3=#:G1936 |nfl| |twoF|
         |ydeg| #4=#:G1916 #5=#:G1915 #6=#:G1917 #7=#:G1946 |w| #8=#:G1945
         #9=#:G1944 |m2| #10=#:G1943 #11=#:G1942 |res| |m1| |PthRootPow|
         #12=#:G1906 |p| |fac| |expon| #13=#:G1902 |expo| #14=#:G1941 |u|
         |sqfrm| #15=#:G1940 #16=#:G1939 |contfact| |cont| #17=#:G1938
         #18=#:G1937 |l|)
    (RETURN
     (SEQ
      (EXIT
       (COND
        ((SPADCALL |m| (|spadConstant| $ 14) (QREFELT $ 16))
         (|spadConstant| $ 34))
        ((EQL (SPADCALL |m| (QREFELT $ 9)) 0)
         (SEQ
          (LETT |l| (SPADCALL (SPADCALL |m| (QREFELT $ 18)) (QREFELT $ 62))
                . #19=(|TWOFACT;doTwoFactor|))
          (EXIT
           (SPADCALL (SPADCALL (SPADCALL |l| (QREFELT $ 38)) (QREFELT $ 39))
                     (PROGN
                      (LETT #18# NIL . #19#)
                      (SEQ (LETT |u| NIL . #19#)
                           (LETT #17# (SPADCALL |l| (QREFELT $ 43)) . #19#)
                           G190
                           (COND
                            ((OR (ATOM #17#)
                                 (PROGN (LETT |u| (CAR #17#) . #19#) NIL))
                             #20=(GO G191)))
                           (SEQ
                            (EXIT
                             (LETT #18#
                                   (CONS
                                    (VECTOR (QVELT |u| 0)
                                            (SPADCALL (QVELT |u| 1)
                                                      (QREFELT $ 39))
                                            (QVELT |u| 2))
                                    #18#)
                                   . #19#)))
                           (LETT #17# (CDR #17#) . #19#) #21=(GO G190) G191
                           (EXIT (NREVERSE0 #18#))))
                     (QREFELT $ 46)))))
        (#22='T
         (SEQ (LETT |ll| NIL . #19#)
              (LETT |cont| (SPADCALL |m| (QREFELT $ 47)) . #19#)
              (COND
               ((< 0 (SPADCALL |cont| (QREFELT $ 25)))
                (SEQ (LETT |m1| (SPADCALL |m| |cont| (QREFELT $ 48)) . #19#)
                     (EXIT
                      (COND
                       ((QEQCAR |m1| 1) (|error| "content doesn't divide"))
                       (#22#
                        (SEQ (LETT |m| (QCDR |m1|) . #19#)
                             (LETT |contfact| (SPADCALL |cont| (QREFELT $ 62))
                                   . #19#)
                             (LETT |unitPart|
                                   (SPADCALL
                                    (SPADCALL |contfact| (QREFELT $ 38))
                                    (QREFELT $ 39))
                                   . #19#)
                             (EXIT
                              (LETT |ll|
                                    (PROGN
                                     (LETT #16# NIL . #19#)
                                     (SEQ (LETT |w| NIL . #19#)
                                          (LETT #15#
                                                (SPADCALL |contfact|
                                                          (QREFELT $ 43))
                                                . #19#)
                                          G190
                                          (COND
                                           ((OR (ATOM #15#)
                                                (PROGN
                                                 (LETT |w| (CAR #15#) . #19#)
                                                 NIL))
                                            #20#))
                                          (SEQ
                                           (EXIT
                                            (LETT #16#
                                                  (CONS
                                                   (VECTOR (QVELT |w| 0)
                                                           (SPADCALL
                                                            (QVELT |w| 1)
                                                            (QREFELT $ 39))
                                                           (QVELT |w| 2))
                                                   #16#)
                                                  . #19#)))
                                          (LETT #15# (CDR #15#) . #19#) #21#
                                          G191 (EXIT (NREVERSE0 #16#))))
                                    . #19#))))))))
               (#22#
                (LETT |unitPart| (SPADCALL |cont| (QREFELT $ 39)) . #19#)))
              (LETT |sqfrm| (SPADCALL |m| (QREFELT $ 49)) . #19#)
              (SEQ (LETT |u| NIL . #19#)
                   (LETT #14# (SPADCALL |sqfrm| (QREFELT $ 66)) . #19#) G190
                   (COND
                    ((OR (ATOM #14#) (PROGN (LETT |u| (CAR #14#) . #19#) NIL))
                     #20#))
                   (SEQ (LETT |expo| (QCDR |u|) . #19#)
                        (COND
                         ((< |expo| 0)
                          (|error| "negative exponent in a factorisation")))
                        (LETT |expon|
                              (PROG1 (LETT #13# |expo| . #19#)
                                (|check-subtype| (>= #13# 0)
                                                 '(|NonNegativeInteger|) #13#))
                              . #19#)
                        (LETT |fac| (QCAR |u|) . #19#)
                        (EXIT
                         (COND
                          ((EQL (SPADCALL |fac| (QREFELT $ 9)) 1)
                           (LETT |ll|
                                 (CONS (VECTOR (CONS 2 "irred") |fac| |expon|)
                                       |ll|)
                                 . #19#))
                          ((SPADCALL (SPADCALL |fac| (QREFELT $ 67))
                                     (|spadConstant| $ 14) (QREFELT $ 16))
                           (COND
                            ((SPADCALL
                              (SPADCALL (ELT $ 68) |fac| (QREFELT $ 70))
                              (|spadConstant| $ 14) (QREFELT $ 16))
                             (SEQ (LETT |p| (SPADCALL (QREFELT $ 71)) . #19#)
                                  (LETT |PthRootPow|
                                        (PROG2
                                            (LETT #12#
                                                  (SPADCALL
                                                   (SPADCALL (QREFELT $ 72))
                                                   |p| (QREFELT $ 73))
                                                  . #19#)
                                            (QCDR #12#)
                                          (|check-union| (QEQCAR #12# 0)
                                                         (|NonNegativeInteger|)
                                                         #12#))
                                        . #19#)
                                  (LETT |m1|
                                        (SPADCALL
                                         (SPADCALL
                                          (CONS #'|TWOFACT;doTwoFactor!0|
                                                (VECTOR $ |PthRootPow| |p|))
                                          |fac| (QREFELT $ 70))
                                         |p| (QREFELT $ 74))
                                        . #19#)
                                  (EXIT
                                   (COND
                                    ((QEQCAR |m1| 1)
                                     (|error|
                                      "consistency error in TwoFactor"))
                                    ('T
                                     (SEQ
                                      (LETT |res|
                                            (SPADCALL (QCDR |m1|)
                                                      (QREFELT $ 60))
                                            . #19#)
                                      (LETT |unitPart|
                                            (SPADCALL |unitPart|
                                                      (SPADCALL
                                                       (SPADCALL |res|
                                                                 (QREFELT $
                                                                          50))
                                                       (* |p| |expon|)
                                                       (QREFELT $ 53))
                                                      (QREFELT $ 54))
                                            . #19#)
                                      (EXIT
                                       (LETT |ll|
                                             (APPEND
                                              (PROGN
                                               (LETT #11# NIL . #19#)
                                               (SEQ (LETT |v| NIL . #19#)
                                                    (LETT #10#
                                                          (SPADCALL |res|
                                                                    (QREFELT $
                                                                             51))
                                                          . #19#)
                                                    G190
                                                    (COND
                                                     ((OR (ATOM #10#)
                                                          (PROGN
                                                           (LETT |v| (CAR #10#)
                                                                 . #19#)
                                                           NIL))
                                                      #20#))
                                                    (SEQ
                                                     (EXIT
                                                      (LETT #11#
                                                            (CONS
                                                             (VECTOR
                                                              (QVELT |v| 0)
                                                              (QVELT |v| 1)
                                                              (*
                                                               (* |expon| |p|)
                                                               (QVELT |v| 2)))
                                                             #11#)
                                                            . #19#)))
                                                    (LETT #10# (CDR #10#)
                                                          . #19#)
                                                    #21# G191
                                                    (EXIT (NREVERSE0 #11#))))
                                              |ll|)
                                             . #19#))))))))
                            ('T
                             (SEQ
                              (LETT |m2|
                                    (SPADCALL (SPADCALL |fac| (QREFELT $ 76))
                                              (QREFELT $ 60))
                                    . #19#)
                              (LETT |unitPart|
                                    (SPADCALL |unitPart|
                                              (SPADCALL
                                               (SPADCALL |m2| (QREFELT $ 50))
                                               |expon| (QREFELT $ 53))
                                              (QREFELT $ 54))
                                    . #19#)
                              (EXIT
                               (LETT |ll|
                                     (APPEND
                                      (PROGN
                                       (LETT #9# NIL . #19#)
                                       (SEQ (LETT |v| NIL . #19#)
                                            (LETT #8#
                                                  (SPADCALL |m2|
                                                            (QREFELT $ 51))
                                                  . #19#)
                                            G190
                                            (COND
                                             ((OR (ATOM #8#)
                                                  (PROGN
                                                   (LETT |v| (CAR #8#) . #19#)
                                                   NIL))
                                              #20#))
                                            (SEQ
                                             (EXIT
                                              (LETT #9#
                                                    (CONS
                                                     (VECTOR (QVELT |v| 0)
                                                             (SPADCALL
                                                              (QVELT |v| 1)
                                                              (QREFELT $ 76))
                                                             (SPADCALL |expon|
                                                                       (QVELT
                                                                        |v| 2)
                                                                       (QREFELT
                                                                        $ 77)))
                                                     #9#)
                                                    . #19#)))
                                            (LETT #8# (CDR #8#) . #19#) #21#
                                            G191 (EXIT (NREVERSE0 #9#))))
                                      |ll|)
                                     . #19#))))))
                          ('T
                           (SEQ
                            (LETT |ydeg|
                                  (PROGN
                                   (LETT #4# NIL . #19#)
                                   (SEQ (LETT |w| NIL . #19#)
                                        (LETT #7#
                                              (SPADCALL |fac| (QREFELT $ 79))
                                              . #19#)
                                        G190
                                        (COND
                                         ((OR (ATOM #7#)
                                              (PROGN
                                               (LETT |w| (CAR #7#) . #19#)
                                               NIL))
                                          #20#))
                                        (SEQ
                                         (EXIT
                                          (PROGN
                                           (LETT #6#
                                                 (SPADCALL |w| (QREFELT $ 25))
                                                 . #19#)
                                           (COND
                                            (#4#
                                             (LETT #5# (MAX #5# #6#) . #19#))
                                            ('T
                                             (PROGN
                                              (LETT #5# #6# . #19#)
                                              (LETT #4# 'T . #19#)))))))
                                        (LETT #7# (CDR #7#) . #19#) #21# G191
                                        (EXIT NIL))
                                   (COND (#4# #5#)
                                         ('T (|IdentityError| '|max|))))
                                  . #19#)
                            (LETT |twoF|
                                  (|TWOFACT;doFactor| |fac| |ydeg| |doext| $)
                                  . #19#)
                            (LETT |nfl| (SPADCALL |twoF| (QREFELT $ 51))
                                  . #19#)
                            (COND
                             ((EQL (LENGTH |nfl|) 1)
                              (COND
                               ((QEQCAR
                                 (QVELT (SPADCALL |nfl| 1 (QREFELT $ 80)) 0) 0)
                                (EXIT
                                 (PROGN (LETT #3# |twoF| . #19#) (GO #3#)))))))
                            (LETT |unitPart|
                                  (SPADCALL |unitPart|
                                            (SPADCALL
                                             (SPADCALL |twoF| (QREFELT $ 50))
                                             |expon| (QREFELT $ 53))
                                            (QREFELT $ 54))
                                  . #19#)
                            (EXIT
                             (LETT |ll|
                                   (APPEND
                                    (PROGN
                                     (LETT #2# NIL . #19#)
                                     (SEQ (LETT |v| NIL . #19#)
                                          (LETT #1#
                                                (SPADCALL |twoF|
                                                          (QREFELT $ 51))
                                                . #19#)
                                          G190
                                          (COND
                                           ((OR (ATOM #1#)
                                                (PROGN
                                                 (LETT |v| (CAR #1#) . #19#)
                                                 NIL))
                                            #20#))
                                          (SEQ
                                           (EXIT
                                            (LETT #2#
                                                  (CONS
                                                   (VECTOR (QVELT |v| 0)
                                                           (QVELT |v| 1)
                                                           (SPADCALL |expon|
                                                                     (QVELT |v|
                                                                            2)
                                                                     (QREFELT $
                                                                              77)))
                                                   #2#)
                                                  . #19#)))
                                          (LETT #1# (CDR #1#) . #19#) #21# G191
                                          (EXIT (NREVERSE0 #2#))))
                                    |ll|)
                                   . #19#)))))))
                   (LETT #14# (CDR #14#) . #19#) #21# G191 (EXIT NIL))
              (EXIT (SPADCALL |unitPart| |ll| (QREFELT $ 46)))))))
      #3# (EXIT #3#))))) 

(DEFUN |TWOFACT;doTwoFactor!0| (|x| $$)
  (PROG (|p| |PthRootPow| $)
    (LETT |p| (QREFELT $$ 2) . #1=(|TWOFACT;doTwoFactor|))
    (LETT |PthRootPow| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|TWOFACT;pthRoot| |x| |p| |PthRootPow| $))))) 

(DEFUN |TWOFACT;twoFactor;SupIF;9| (|m| |dx| $)
  (|TWOFACT;doFactor| |m| |dx| 'T $)) 

(DEFUN |TWOFACT;doFactor| (|m| |dx| |doext| $)
  (PROG (#1=#:G1992 #2=#:G1991 #3=#:G1993 #4=#:G2002 |ff1| |lfactk| #5=#:G1981
         |ffn| #6=#:G1987 #7=#:G1986 #8=#:G1988 #9=#:G2001 #10=#:G1792 |lfacth|
         #11=#:G2000 |g| #12=#:G1999 |normfacs| #13=#:G1989 |ffu| |ff| |c|
         |Normp| |dx1| #14=#:G1977 |lfact| #15=#:G1998 |lf| #16=#:G1997
         |lfact1| |fumex| |prime| |look| |umex| |i| |val| |lcmm| |m1| |mm| TP
         |SUEx| |extField| #17=#:G1996 |n| |umv| |vval| |userandom| |lcm| |try|
         |dm|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |n|
              (|TWOFACT;computeDegree| |m| |dx| (SPADCALL (QREFELT $ 72)) $)
              . #18=(|TWOFACT;doFactor|))
        (LETT |look| 'T . #18#) (LETT |dm| (SPADCALL |m| (QREFELT $ 9)) . #18#)
        (LETT |try| (MIN (+ |dx| 5) (SPADCALL (QREFELT $ 72))) . #18#)
        (LETT |i| 0 . #18#) (LETT |lcm| (SPADCALL |m| (QREFELT $ 18)) . #18#)
        (LETT |userandom|
              (< (SPADCALL 2 |try| (QREFELT $ 12)) (SPADCALL (QREFELT $ 72)))
              . #18#)
        (SEQ G190
             (COND
              ((NULL (COND (|look| (< |i| |try|)) ('T 'NIL))) #19=(GO G191)))
             (SEQ (LETT |i| (+ |i| 1) . #18#)
                  (COND
                   (|userandom| (LETT |vval| (SPADCALL (QREFELT $ 82)) . #18#))
                   ('T (LETT |vval| (SPADCALL |i| (QREFELT $ 83)) . #18#)))
                  (EXIT
                   (COND
                    ((SPADCALL (SPADCALL |lcm| |vval| (QREFELT $ 84))
                               (QREFELT $ 85))
                     "next value")
                    ('T
                     (SEQ
                      (LETT |umv|
                            (SPADCALL
                             (CONS #'|TWOFACT;doFactor!0| (VECTOR $ |vval|))
                             |m| (QREFELT $ 88))
                            . #18#)
                      (COND
                       ((NULL
                         (EQL
                          (SPADCALL
                           (SPADCALL |umv| (SPADCALL |umv| (QREFELT $ 68))
                                     (QREFELT $ 89))
                           (QREFELT $ 25))
                          0))
                        (EXIT "next val")))
                      (LETT |n| 1 . #18#) (EXIT (LETT |look| 'NIL . #18#)))))))
             NIL #20=(GO G190) G191 (EXIT NIL))
        (COND
         (|look|
          (COND
           ((NULL |doext|)
            (EXIT
             (PROGN
              (LETT #17#
                    (SPADCALL (|spadConstant| $ 90)
                              (LIST (VECTOR (CONS 0 "nil") |m| 1))
                              (QREFELT $ 46))
                    . #18#)
              (GO #17#)))))))
        (LETT |extField| (|FiniteFieldExtension| (QREFELT $ 6) |n|) . #18#)
        (LETT |SUEx| (|SparseUnivariatePolynomial| |extField|) . #18#)
        (LETT TP (|SparseUnivariatePolynomial| |SUEx|) . #18#)
        (LETT |mm| (SPADCALL (|compiledLookupCheck| '|Zero| (LIST '$) TP))
              . #18#)
        (LETT |m1| |m| . #18#)
        (SEQ G190
             (COND
              ((NULL
                (COND
                 ((SPADCALL |m1| (|spadConstant| $ 14) (QREFELT $ 16)) 'NIL)
                 ('T 'T)))
               #19#))
             (SEQ
              (LETT |mm|
                    (SPADCALL |mm|
                              (SPADCALL
                               (SPADCALL
                                (|compiledLookupCheck| '|coerce|
                                                       (LIST '$
                                                             (|devaluate|
                                                              (ELT $ 6)))
                                                       |extField|)
                                (SPADCALL |m1| (QREFELT $ 18))
                                (|compiledLookupCheck| '|map|
                                                       (LIST
                                                        (|devaluate| |SUEx|)
                                                        (LIST '|Mapping|
                                                              (|devaluate|
                                                               |extField|)
                                                              (|devaluate|
                                                               (ELT $ 6)))
                                                        (LIST
                                                         '|SparseUnivariatePolynomial|
                                                         (|devaluate|
                                                          (ELT $ 6))))
                                                       (|UnivariatePolynomialCategoryFunctions2|
                                                        (ELT $ 6)
                                                        (|SparseUnivariatePolynomial|
                                                         (ELT $ 6))
                                                        |extField| |SUEx|)))
                               (SPADCALL |m1| (QREFELT $ 9))
                               (|compiledLookupCheck| '|monomial|
                                                      (LIST '$
                                                            (|devaluate|
                                                             |SUEx|)
                                                            (LIST
                                                             '|NonNegativeInteger|))
                                                      TP))
                              (|compiledLookupCheck| '+ (LIST '$ '$ '$) TP))
                    . #18#)
              (EXIT (LETT |m1| (SPADCALL |m1| (QREFELT $ 19)) . #18#)))
             NIL #20# G191 (EXIT NIL))
        (LETT |lcmm|
              (SPADCALL |mm|
                        (|compiledLookupCheck| '|leadingCoefficient|
                                               (LIST (|devaluate| |SUEx|) '$)
                                               TP))
              . #18#)
        (COND
         ((NULL |look|)
          (SEQ
           (LETT |val|
                 (SPADCALL |vval|
                           (|compiledLookupCheck| '|coerce|
                                                  (LIST '$
                                                        (|devaluate|
                                                         (ELT $ 6)))
                                                  |extField|))
                 . #18#)
           (EXIT
            (LETT |umex|
                  (SPADCALL
                   (|compiledLookupCheck| '|coerce|
                                          (LIST '$ (|devaluate| (ELT $ 6)))
                                          |extField|)
                   |umv|
                   (|compiledLookupCheck| '|map|
                                          (LIST (|devaluate| |SUEx|)
                                                (LIST '|Mapping|
                                                      (|devaluate| |extField|)
                                                      (|devaluate| (ELT $ 6)))
                                                (LIST
                                                 '|SparseUnivariatePolynomial|
                                                 (|devaluate| (ELT $ 6))))
                                          (|UnivariatePolynomialCategoryFunctions2|
                                           (ELT $ 6)
                                           (|SparseUnivariatePolynomial|
                                            (ELT $ 6))
                                           |extField| |SUEx|)))
                  . #18#)))))
        (SEQ G190 (COND ((NULL |look|) #19#))
             (SEQ
              (LETT |val|
                    (SPADCALL
                     (|compiledLookupCheck| '|random| (LIST '$) |extField|))
                    . #18#)
              (LETT |i| (+ |i| 1) . #18#)
              (EXIT
               (COND
                ((SPADCALL
                  (SPADCALL |lcmm| |val|
                            (|compiledLookupCheck| '|elt|
                                                   (LIST
                                                    (|devaluate| |extField|) '$
                                                    (|devaluate| |extField|))
                                                   |SUEx|))
                  (SPADCALL
                   (|compiledLookupCheck| '|Zero| (LIST '$) |extField|))
                  (|compiledLookupCheck| '= (LIST (LIST '|Boolean|) '$ '$)
                                         |extField|))
                 "next value")
                ('T
                 (SEQ
                  (LETT |umex|
                        (SPADCALL
                         (CONS #'|TWOFACT;doFactor!1|
                               (VECTOR |SUEx| |extField| |val|))
                         |mm|
                         (|compiledLookupCheck| '|map|
                                                (LIST (|devaluate| |SUEx|)
                                                      (LIST '|Mapping|
                                                            (|devaluate|
                                                             |extField|)
                                                            (|devaluate|
                                                             |SUEx|))
                                                      (|devaluate| TP))
                                                (|UnivariatePolynomialCategoryFunctions2|
                                                 |SUEx| TP |extField| |SUEx|)))
                        . #18#)
                  (COND
                   ((NULL
                     (EQL
                      (SPADCALL
                       (SPADCALL |umex|
                                 (SPADCALL |umex|
                                           (|compiledLookupCheck|
                                            '|differentiate| (LIST '$ '$)
                                            |SUEx|))
                                 (|compiledLookupCheck| '|gcd| (LIST '$ '$ '$)
                                                        |SUEx|))
                       (|compiledLookupCheck| '|degree|
                                              (LIST
                                               (LIST '|NonNegativeInteger|) '$)
                                              |SUEx|))
                      0))
                    (EXIT "next val")))
                  (EXIT (LETT |look| 'NIL . #18#)))))))
             NIL #20# G191 (EXIT NIL))
        (LETT |prime|
              (SPADCALL
               (SPADCALL
                (SPADCALL (|compiledLookupCheck| '|One| (LIST '$) |extField|))
                1
                (|compiledLookupCheck| '|monomial|
                                       (LIST '$ (|devaluate| |extField|)
                                             (LIST '|NonNegativeInteger|))
                                       |SUEx|))
               (SPADCALL |val| 0
                         (|compiledLookupCheck| '|monomial|
                                                (LIST '$
                                                      (|devaluate| |extField|)
                                                      (LIST
                                                       '|NonNegativeInteger|))
                                                |SUEx|))
               (|compiledLookupCheck| '- (LIST '$ '$ '$) |SUEx|))
              . #18#)
        (LETT |fumex|
              (SPADCALL |umex|
                        (|compiledLookupCheck| '|factor|
                                               (LIST
                                                (LIST '|Factored|
                                                      (|devaluate| |SUEx|))
                                                (|devaluate| |SUEx|))
                                               (|DistinctDegreeFactorize|
                                                |extField| |SUEx|)))
              . #18#)
        (LETT |lfact1|
              (SPADCALL |fumex|
                        (|compiledLookupCheck| '|factors|
                                               (LIST
                                                (LIST '|List|
                                                      (LIST '|Record|
                                                            (LIST '|:|
                                                                  '|factor|
                                                                  (|devaluate|
                                                                   |SUEx|))
                                                            (LIST '|:|
                                                                  '|exponent|
                                                                  (LIST
                                                                   '|Integer|))))
                                                '$)
                                               (|Factored| |SUEx|)))
              . #18#)
        (EXIT
         (COND ((EQL (LENGTH |lfact1|) 1) (SPADCALL |m| 1 (QREFELT $ 91)))
               (#21='T
                (SEQ
                 (LETT |lfact|
                       (PROGN
                        (LETT #16# NIL . #18#)
                        (SEQ (LETT |lf| NIL . #18#) (LETT #15# |lfact1| . #18#)
                             G190
                             (COND
                              ((OR (ATOM #15#)
                                   (PROGN (LETT |lf| (CAR #15#) . #18#) NIL))
                               #19#))
                             (SEQ
                              (EXIT
                               (LETT #16#
                                     (CONS
                                      (SPADCALL
                                       (|compiledLookupCheck| '|coerce|
                                                              (LIST '$
                                                                    (|devaluate|
                                                                     |extField|))
                                                              |SUEx|)
                                       (QCAR |lf|)
                                       (|compiledLookupCheck| '|map|
                                                              (LIST
                                                               (|devaluate| TP)
                                                               (LIST '|Mapping|
                                                                     (|devaluate|
                                                                      |SUEx|)
                                                                     (|devaluate|
                                                                      |extField|))
                                                               (|devaluate|
                                                                |SUEx|))
                                                              (|UnivariatePolynomialCategoryFunctions2|
                                                               |extField|
                                                               |SUEx| |SUEx|
                                                               TP)))
                                      #16#)
                                     . #18#)))
                             (LETT #15# (CDR #15#) . #18#) #20# G191
                             (EXIT (NREVERSE0 #16#))))
                       . #18#)
                 (LETT |lfact|
                       (CONS
                        (SPADCALL
                         (|compiledLookupCheck| '|coerce|
                                                (LIST '$
                                                      (|devaluate| |extField|))
                                                |SUEx|)
                         (SPADCALL |fumex|
                                   (|compiledLookupCheck| '|unit|
                                                          (LIST
                                                           (|devaluate| |SUEx|)
                                                           '$)
                                                          (|Factored| |SUEx|)))
                         (|compiledLookupCheck| '|map|
                                                (LIST (|devaluate| TP)
                                                      (LIST '|Mapping|
                                                            (|devaluate|
                                                             |SUEx|)
                                                            (|devaluate|
                                                             |extField|))
                                                      (|devaluate| |SUEx|))
                                                (|UnivariatePolynomialCategoryFunctions2|
                                                 |extField| |SUEx| |SUEx| TP)))
                        |lfact|)
                       . #18#)
                 (LETT |dx1|
                       (PROG1 (LETT #14# (+ |dx| 1) . #18#)
                         (|check-subtype| (> #14# 0) '(|PositiveInteger|)
                                          #14#))
                       . #18#)
                 (LETT |lfacth|
                       (SPADCALL |mm| |lfact| |prime| |dx1|
                                 (|compiledLookupCheck| '|completeHensel|
                                                        (LIST
                                                         (LIST '|List|
                                                               (|devaluate|
                                                                TP))
                                                         (|devaluate| TP)
                                                         (LIST '|List|
                                                               (|devaluate|
                                                                TP))
                                                         (|devaluate| |SUEx|)
                                                         (LIST
                                                          '|PositiveInteger|))
                                                        (|GeneralHenselPackage|
                                                         |SUEx| TP)))
                       . #18#)
                 (LETT |lfactk| NIL . #18#)
                 (LETT |Normp|
                       (|NormRetractPackage| (QREFELT $ 6) |extField| |SUEx| TP
                                             |n|)
                       . #18#)
                 (SEQ G190
                      (COND
                       ((NULL (COND ((NULL |lfacth|) 'NIL) ('T 'T))) #19#))
                      (SEQ
                       (EXIT
                        (SEQ (LETT |ff| (|SPADfirst| |lfacth|) . #18#)
                             (LETT |lfacth| (CDR |lfacth|) . #18#)
                             (SEQ
                              (LETT |c|
                                    (SPADCALL
                                     (SPADCALL |ff|
                                               (|compiledLookupCheck|
                                                '|leadingCoefficient|
                                                (LIST (|devaluate| |SUEx|) '$)
                                                TP))
                                     (|compiledLookupCheck|
                                      '|leadingCoefficient|
                                      (LIST (|devaluate| |extField|) '$)
                                      |SUEx|))
                                    . #18#)
                              (EXIT
                               (COND
                                ((NULL
                                  (SPADCALL |c|
                                            (SPADCALL
                                             (|compiledLookupCheck| '|One|
                                                                    (LIST '$)
                                                                    |extField|))
                                            (|compiledLookupCheck| '=
                                                                   (LIST
                                                                    (LIST
                                                                     '|Boolean|)
                                                                    '$ '$)
                                                                   |extField|)))
                                 (LETT |ff|
                                       (SPADCALL
                                        (SPADCALL
                                         (SPADCALL |c|
                                                   (|compiledLookupCheck|
                                                    '|inv| (LIST '$ '$)
                                                    |extField|))
                                         (|compiledLookupCheck| '|coerce|
                                                                (LIST '$
                                                                      (|devaluate|
                                                                       |extField|))
                                                                |SUEx|))
                                        |ff|
                                        (|compiledLookupCheck| '*
                                                               (LIST '$
                                                                     (|devaluate|
                                                                      |SUEx|)
                                                                     '$)
                                                               TP))
                                       . #18#)))))
                             (SEQ
                              (LETT |ffu|
                                    (SPADCALL |ff|
                                              (|compiledLookupCheck|
                                               '|retractIfCan|
                                               (LIST
                                                (LIST '|Union|
                                                      (LIST
                                                       '|SparseUnivariatePolynomial|
                                                       (LIST
                                                        '|SparseUnivariatePolynomial|
                                                        (|devaluate|
                                                         (ELT $ 6))))
                                                      '#22="failed")
                                                (|devaluate| TP))
                                               |Normp|))
                                    . #18#)
                              (EXIT
                               (COND
                                ((NULL (QEQCAR |ffu| 1))
                                 (PROGN
                                  (LETT #13#
                                        (LETT |lfactk|
                                              (CONS (QCDR |ffu|) |lfactk|)
                                              . #18#)
                                        . #18#)
                                  (GO #13#))))))
                             (LETT |normfacs|
                                   (SPADCALL |ff|
                                             (|compiledLookupCheck|
                                              '|normFactors|
                                              (LIST
                                               (LIST '|List| (|devaluate| TP))
                                               (|devaluate| TP))
                                              |Normp|))
                                   . #18#)
                             (LETT |lfacth|
                                   (PROGN
                                    (LETT #12# NIL . #18#)
                                    (SEQ (LETT |g| NIL . #18#)
                                         (LETT #11# |lfacth| . #18#) G190
                                         (COND
                                          ((OR (ATOM #11#)
                                               (PROGN
                                                (LETT |g| (CAR #11#) . #18#)
                                                NIL))
                                           #19#))
                                         (SEQ
                                          (EXIT
                                           (COND
                                            ((COND
                                              ((SPADCALL |g| |normfacs|
                                                         (|compiledLookupCheck|
                                                          '|member?|
                                                          (LIST
                                                           (LIST '|Boolean|)
                                                           (|devaluate| TP) '$)
                                                          (|List| TP)))
                                               'NIL)
                                              ('T 'T))
                                             (LETT #12# (CONS |g| #12#)
                                                   . #18#)))))
                                         (LETT #11# (CDR #11#) . #18#) #20#
                                         G191 (EXIT (NREVERSE0 #12#))))
                                   . #18#)
                             (LETT |ffn|
                                   (PROGN
                                    (LETT #6# NIL . #18#)
                                    (SEQ (LETT #10# NIL . #18#)
                                         (LETT #9# |normfacs| . #18#) G190
                                         (COND
                                          ((OR (ATOM #9#)
                                               (PROGN
                                                (LETT #10# (CAR #9#) . #18#)
                                                NIL))
                                           #19#))
                                         (SEQ
                                          (EXIT
                                           (PROGN
                                            (LETT #8# #10# . #18#)
                                            (COND
                                             (#6#
                                              (LETT #7#
                                                    (SPADCALL #7# #8#
                                                              (|compiledLookupCheck|
                                                               '*
                                                               (LIST '$ '$ '$)
                                                               TP))
                                                    . #18#))
                                             ('T
                                              (PROGN
                                               (LETT #7# #8# . #18#)
                                               (LETT #6# 'T . #18#)))))))
                                         (LETT #9# (CDR #9#) . #18#) #20# G191
                                         (EXIT NIL))
                                    (COND (#6# #7#)
                                          ('T
                                           (SPADCALL
                                            (|compiledLookupCheck| '|One|
                                                                   (LIST '$)
                                                                   TP)))))
                                   . #18#)
                             (EXIT
                              (LETT |lfactk|
                                    (CONS
                                     (PROG2
                                         (LETT #5#
                                               (SPADCALL |ffn|
                                                         (|compiledLookupCheck|
                                                          '|retractIfCan|
                                                          (LIST
                                                           (LIST '|Union|
                                                                 (LIST
                                                                  '|SparseUnivariatePolynomial|
                                                                  (LIST
                                                                   '|SparseUnivariatePolynomial|
                                                                   (|devaluate|
                                                                    (ELT $
                                                                         6))))
                                                                 '#22#)
                                                           (|devaluate| TP))
                                                          |Normp|))
                                               . #18#)
                                         (QCDR #5#)
                                       (|check-union| (QEQCAR #5# 0)
                                                      (|SparseUnivariatePolynomial|
                                                       (|SparseUnivariatePolynomial|
                                                        (QREFELT $ 6)))
                                                      #5#))
                                     |lfactk|)
                                    . #18#))))
                       #13# (EXIT #13#))
                      NIL #20# G191 (EXIT NIL))
                 (EXIT
                  (PROGN
                   (LETT #1# NIL . #18#)
                   (SEQ (LETT |ff1| NIL . #18#) (LETT #4# |lfactk| . #18#) G190
                        (COND
                         ((OR (ATOM #4#)
                              (PROGN (LETT |ff1| (CAR #4#) . #18#) NIL))
                          #19#))
                        (SEQ
                         (EXIT
                          (PROGN
                           (LETT #3# (SPADCALL |ff1| 1 (QREFELT $ 91)) . #18#)
                           (COND
                            (#1#
                             (LETT #2# (SPADCALL #2# #3# (QREFELT $ 92))
                                   . #18#))
                            ('T
                             (PROGN
                              (LETT #2# #3# . #18#)
                              (LETT #1# 'T . #18#)))))))
                        (LETT #4# (CDR #4#) . #18#) #20# G191 (EXIT NIL))
                   (COND (#1# #2#) (#21# (|spadConstant| $ 93)))))))))))
      #17# (EXIT #17#))))) 

(DEFUN |TWOFACT;doFactor!1| (|x| $$)
  (PROG (|val| |extField| |SUEx|)
    (LETT |val| (QREFELT $$ 2) . #1=(|TWOFACT;doFactor|))
    (LETT |extField| (QREFELT $$ 1) . #1#)
    (LETT |SUEx| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL |x| |val|
                (|compiledLookupCheck| '|elt|
                                       (LIST (|devaluate| |extField|) '$
                                             (|devaluate| |extField|))
                                       |SUEx|)))))) 

(DEFUN |TWOFACT;doFactor!0| (|x| $$)
  (PROG (|vval| $)
    (LETT |vval| (QREFELT $$ 1) . #1=(|TWOFACT;doFactor|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |x| |vval| (QREFELT $ 84)))))) 

(DEFUN |TwoFactorize| (#1=#:G2003)
  (PROG ()
    (RETURN
     (PROG (#2=#:G2004)
       (RETURN
        (COND
         ((LETT #2#
                (|lassocShiftWithFunction| (LIST (|devaluate| #1#))
                                           (HGET |$ConstructorCache|
                                                 '|TwoFactorize|)
                                           '|domainEqualList|)
                . #3=(|TwoFactorize|))
          (|CDRwithIncrement| #2#))
         ('T
          (UNWIND-PROTECT (PROG1 (|TwoFactorize;| #1#) (LETT #2# T . #3#))
            (COND
             ((NOT #2#) (HREM |$ConstructorCache| '|TwoFactorize|))))))))))) 

(DEFUN |TwoFactorize;| (|#1|)
  (PROG (|pv$| $ |dv$| DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|TwoFactorize|))
      (LETT |dv$| (LIST '|TwoFactorize| DV$1) . #1#)
      (LETT $ (GETREFV 94) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|TwoFactorize| (LIST DV$1) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (SETF |pv$| (QREFELT $ 3))
      $)))) 

(MAKEPROP '|TwoFactorize| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|NonNegativeInteger|)
              (|SparseUnivariatePolynomial| 17) (0 . |degree|)
              (|PositiveInteger|) (|Integer|) (5 . *) (11 . |Zero|)
              (15 . |Zero|) (|Boolean|) (19 . =)
              (|SparseUnivariatePolynomial| 6) (25 . |leadingCoefficient|)
              (30 . |reductum|) (35 . +) (41 . |Zero|) (45 . =)
              (51 . |leadingCoefficient|) (56 . |monomial|) (62 . |degree|)
              (67 . |monomial|) (73 . |reductum|) (78 . ^) (|Mapping| 6 6)
              (84 . |map|) (|Union| $ '"failed") (90 . |divideExponents|)
              (|Factored| 8) (96 . |Zero|) (|Factored| $) (100 . |squareFree|)
              (|Factored| 17) (105 . |unit|) (110 . |coerce|)
              (|Union| '"nil" '"sqfr" '"irred" '"prime")
              (|Record| (|:| |flg| 40) (|:| |fctr| 17) (|:| |xpnt| 11))
              (|List| 41) (115 . |factorList|)
              (|Record| (|:| |flg| 40) (|:| |fctr| 8) (|:| |xpnt| 11))
              (|List| 44) (120 . |makeFR|) (126 . |content|) (131 . |exquo|)
              (137 . |squareFree|) (142 . |unit|) (147 . |factorList|)
              (152 . =) (158 . ^) (164 . *) (170 . |One|) (174 . |One|)
              (178 . *) |TWOFACT;generalSqFr;SupF;5|
              |TWOFACT;tryTwoFactor;SupF;6| |TWOFACT;generalTwoFactor;SupF;7|
              (|DistinctDegreeFactorize| 6 17) (184 . |factor|) (189 . |Zero|)
              (|Record| (|:| |factor| 8) (|:| |exponent| 11)) (|List| 64)
              (193 . |factors|) (198 . |differentiate|) (203 . |differentiate|)
              (|Mapping| 17 17) (208 . |map|) (214 . |characteristic|)
              (218 . |size|) (222 . |exquo|) (228 . |divideExponents|)
              (|CommuteUnivariatePolynomialCategory| 6 17 8) (234 . |swap|)
              (239 . *) (|List| 17) (245 . |coefficients|) (250 . |elt|)
              |TWOFACT;twoFactor;SupIF;9| (256 . |random|) (260 . |index|)
              (265 . |elt|) (271 . |zero?|) (|Mapping| 6 17)
              (|UnivariatePolynomialCategoryFunctions2| 17 8 6 17)
              (276 . |map|) (282 . |gcd|) (288 . |One|) (292 . |primeFactor|)
              (298 . *) (304 . |One|))
           '#(|twoFactor| 308 |tryTwoFactor| 314 |generalTwoFactor| 319
              |generalSqFr| 324)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 93
                                                 '(1 8 7 0 9 2 11 0 10 0 12 0 6
                                                   0 13 0 8 0 14 2 8 15 0 0 16
                                                   1 8 17 0 18 1 8 0 0 19 2 8 0
                                                   0 0 20 0 17 0 21 2 17 15 0 0
                                                   22 1 17 6 0 23 2 17 0 6 7 24
                                                   1 17 7 0 25 2 8 0 17 7 26 1
                                                   17 0 0 27 2 6 0 0 7 28 2 17
                                                   0 29 0 30 2 17 31 0 7 32 0
                                                   33 0 34 1 17 35 0 36 1 37 17
                                                   0 38 1 8 0 17 39 1 37 42 0
                                                   43 2 33 0 8 45 46 1 8 17 0
                                                   47 2 8 31 0 17 48 1 8 35 0
                                                   49 1 33 8 0 50 1 33 45 0 51
                                                   2 40 15 0 0 52 2 8 0 0 7 53
                                                   2 8 0 0 0 54 0 6 0 55 0 17 0
                                                   56 2 8 0 17 0 57 1 61 37 17
                                                   62 0 37 0 63 1 33 65 0 66 1
                                                   8 0 0 67 1 17 0 0 68 2 8 0
                                                   69 0 70 0 6 7 71 0 6 7 72 2
                                                   7 31 0 0 73 2 8 31 0 7 74 1
                                                   75 8 8 76 2 11 0 7 0 77 1 8
                                                   78 0 79 2 45 44 0 11 80 0 6
                                                   0 82 1 6 0 10 83 2 17 6 0 6
                                                   84 1 6 15 0 85 2 87 17 86 8
                                                   88 2 17 0 0 0 89 0 8 0 90 2
                                                   33 0 8 11 91 2 33 0 0 0 92 0
                                                   33 0 93 2 0 33 8 11 81 1 0
                                                   33 8 59 1 0 33 8 60 1 0 33 8
                                                   58)))))
           '|lookupComplete|)) 
