
(/VERSIONCHECK 2) 

(DEFUN |INTFACT;squareFree;IF;1| (|n| $)
  (PROG (|y| |v| |m| |x| |lim| #1=#:G1851 #2=#:G1853 |l| |sv| |rec| |u|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (COND
         ((SPADCALL |n| (|spadConstant| $ 7) (QREFELT $ 11))
          (SEQ
           (LETT |m| (SPADCALL |n| (QREFELT $ 12))
                 . #3=(|INTFACT;squareFree;IF;1|))
           (EXIT
            (LETT |u| (SPADCALL (|spadConstant| $ 13) (QREFELT $ 12)) . #3#))))
         (#4='T
          (SEQ (LETT |m| |n| . #3#)
               (EXIT (LETT |u| (|spadConstant| $ 13) . #3#)))))
        (COND
         ((SPADCALL (|spadConstant| $ 13) |m| (QREFELT $ 11))
          (SEQ (LETT |v| (SPADCALL |m| (QREFELT $ 17)) . #3#)
               (EXIT
                (COND
                 ((QEQCAR |v| 0)
                  (PROGN
                   (LETT #1#
                         (SEQ
                          (SEQ (LETT |rec| NIL . #3#)
                               (LETT #2#
                                     (LETT |l|
                                           (SPADCALL
                                            (LETT |sv|
                                                  (SPADCALL (QCDR |v|)
                                                            (QREFELT $ 18))
                                                  . #3#)
                                            (QREFELT $ 22))
                                           . #3#)
                                     . #3#)
                               G190
                               (COND
                                ((OR (ATOM #2#)
                                     (PROGN (LETT |rec| (CAR #2#) . #3#) NIL))
                                 (GO G191)))
                               (SEQ
                                (EXIT
                                 (QSETVELT |rec| 2
                                           (SPADCALL 2 (QVELT |rec| 2)
                                                     (QREFELT $ 25)))))
                               (LETT #2# (CDR #2#) . #3#) (GO G190) G191
                               (EXIT NIL))
                          (EXIT
                           (SPADCALL
                            (SPADCALL |u| (SPADCALL |sv| (QREFELT $ 26))
                                      (QREFELT $ 27))
                            |l| (QREFELT $ 28))))
                         . #3#)
                   (GO #1#))))))))
        (LETT |lim|
              (SPADCALL (|spadConstant| $ 13) (SPADCALL |m| 3 (QREFELT $ 30))
                        (QREFELT $ 31))
              . #3#)
        (EXIT
         (COND
          ((SPADCALL (SPADCALL 100000 (QREFELT $ 32)) |lim| (QREFELT $ 11))
           (SPADCALL |u|
                     (SPADCALL (SPADCALL |m| (QREFELT $ 33)) (QREFELT $ 22))
                     (QREFELT $ 28)))
          (#4#
           (SEQ (LETT |x| (|INTFACT;BasicSieve| |m| |lim| $) . #3#)
                (LETT |y|
                      (SEQ (LETT |m| (SPADCALL |x| (QREFELT $ 26)) . #3#)
                           (EXIT
                            (COND
                             ((SPADCALL |m| (|spadConstant| $ 13)
                                        (QREFELT $ 34))
                              (SPADCALL |x| (QREFELT $ 22)))
                             (#4#
                              (SEQ
                               (LETT |v| (SPADCALL |m| (QREFELT $ 17)) . #3#)
                               (EXIT
                                (COND
                                 ((QEQCAR |v| 0)
                                  (SPADCALL (SPADCALL |x| (QREFELT $ 22))
                                            (VECTOR (CONS 1 "sqfr") (QCDR |v|)
                                                    2)
                                            (QREFELT $ 35)))
                                 (#4#
                                  (SPADCALL (SPADCALL |x| (QREFELT $ 22))
                                            (VECTOR (CONS 1 "sqfr") |m| 1)
                                            (QREFELT $ 35))))))))))
                      . #3#)
                (EXIT (SPADCALL |u| |y| (QREFELT $ 28)))))))))
      #1# (EXIT #1#))))) 

(DEFUN |INTFACT;PollardSmallFactor;IU;2| (|n| $)
  (PROG (G |x| |y| #1=#:G1881 #2=#:G1880 |i| |l| |ys| #3=#:G1879 |r| |k| |q|
         #4=#:G1878 #5=#:G1877 #6=#:G1876 #7=#:G1875 |m| |x0|)
    (RETURN
     (SEQ
      (LETT |x0| (SPADCALL (QREFELT $ 36))
            . #8=(|INTFACT;PollardSmallFactor;IU;2|))
      (LETT |m| (SPADCALL 100 (QREFELT $ 32)) . #8#)
      (LETT |y| (SPADCALL |x0| |n| (QREFELT $ 37)) . #8#)
      (LETT |r| (|spadConstant| $ 13) . #8#)
      (LETT |q| (|spadConstant| $ 13) . #8#)
      (LETT G (|spadConstant| $ 13) . #8#)
      (SEQ (LETT #7# NIL . #8#) G190 (COND (#7# #9=(GO G191)))
           (SEQ (LETT |x| |y| . #8#) (LETT |ys| |y| . #8#)
                (SEQ (LETT |i| 1 . #8#)
                     (LETT #6# (SPADCALL |r| (QREFELT $ 38)) . #8#) G190
                     (COND ((QSGREATERP |i| #6#) #9#))
                     (SEQ
                      (LETT |y|
                            (SPADCALL
                             (SPADCALL (SPADCALL |y| |y| (QREFELT $ 27))
                                       (SPADCALL 5 (QREFELT $ 32))
                                       (QREFELT $ 31))
                             |n| (QREFELT $ 37))
                            . #8#)
                      (EXIT
                       (LETT |q|
                             (SPADCALL
                              (SPADCALL |q|
                                        (SPADCALL
                                         (SPADCALL |x| |y| (QREFELT $ 39))
                                         (QREFELT $ 40))
                                        (QREFELT $ 27))
                              |n| (QREFELT $ 37))
                             . #8#)))
                     (LETT |i| (QSADD1 |i|) . #8#) #10=(GO G190) G191
                     (EXIT NIL))
                (LETT |k| (|spadConstant| $ 7) . #8#)
                (LETT G (SPADCALL |q| |n| (QREFELT $ 41)) . #8#)
                (SEQ (LETT #5# NIL . #8#) G190 (COND (#5# #9#))
                     (SEQ (LETT |ys| |y| . #8#)
                          (SEQ (LETT |i| 1 . #8#)
                               (LETT #4#
                                     (SPADCALL
                                      (SPADCALL |m|
                                                (SPADCALL |r| |k|
                                                          (QREFELT $ 39))
                                                (QREFELT $ 42))
                                      (QREFELT $ 38))
                                     . #8#)
                               G190 (COND ((QSGREATERP |i| #4#) #9#))
                               (SEQ
                                (LETT |y|
                                      (SPADCALL
                                       (SPADCALL
                                        (SPADCALL |y| |y| (QREFELT $ 27))
                                        (SPADCALL 5 (QREFELT $ 32))
                                        (QREFELT $ 31))
                                       |n| (QREFELT $ 37))
                                      . #8#)
                                (EXIT
                                 (LETT |q|
                                       (SPADCALL
                                        (SPADCALL |q|
                                                  (SPADCALL
                                                   (SPADCALL |x| |y|
                                                             (QREFELT $ 39))
                                                   (QREFELT $ 40))
                                                  (QREFELT $ 27))
                                        |n| (QREFELT $ 37))
                                       . #8#)))
                               (LETT |i| (QSADD1 |i|) . #8#) #10# G191
                               (EXIT NIL))
                          (LETT G (SPADCALL |q| |n| (QREFELT $ 41)) . #8#)
                          (EXIT
                           (LETT |k| (SPADCALL |k| |m| (QREFELT $ 31)) . #8#)))
                     (LETT #5#
                           (COND
                            ((SPADCALL |k| |r| (QREFELT $ 11))
                             (SPADCALL (|spadConstant| $ 13) G (QREFELT $ 11)))
                            ('T 'T))
                           . #8#)
                     #10# G191 (EXIT NIL))
                (LETT |k| (SPADCALL |k| |r| (QREFELT $ 31)) . #8#)
                (EXIT (LETT |r| (SPADCALL 2 |r| (QREFELT $ 43)) . #8#)))
           (LETT #7# (SPADCALL (|spadConstant| $ 13) G (QREFELT $ 11)) . #8#)
           #10# G191 (EXIT NIL))
      (COND
       ((SPADCALL G |n| (QREFELT $ 34))
        (SEQ (LETT |l| (SPADCALL |k| |m| (QREFELT $ 39)) . #8#)
             (LETT G (|spadConstant| $ 13) . #8#)
             (SEQ (LETT #3# NIL . #8#) G190 (COND (#3# #9#))
                  (SEQ
                   (LETT |ys|
                         (SPADCALL
                          (SPADCALL (SPADCALL |ys| |ys| (QREFELT $ 27))
                                    (SPADCALL 5 (QREFELT $ 32)) (QREFELT $ 31))
                          |n| (QREFELT $ 37))
                         . #8#)
                   (LETT G
                         (SPADCALL
                          (SPADCALL (SPADCALL |x| |ys| (QREFELT $ 39))
                                    (QREFELT $ 40))
                          |n| (QREFELT $ 41))
                         . #8#)
                   (EXIT
                    (LETT |l|
                          (SPADCALL |l| (|spadConstant| $ 13) (QREFELT $ 31))
                          . #8#)))
                  (LETT #3# (SPADCALL (|spadConstant| $ 13) G (QREFELT $ 11))
                        . #8#)
                  #10# G191 (EXIT NIL))
             (EXIT
              (COND
               ((SPADCALL G |n| (QREFELT $ 34))
                (SEQ (LETT |y| |x0| . #8#) (LETT |x| |x0| . #8#)
                     (SEQ (LETT |i| 1 . #8#)
                          (LETT #2# (SPADCALL |l| (QREFELT $ 38)) . #8#) G190
                          (COND ((QSGREATERP |i| #2#) #9#))
                          (SEQ
                           (EXIT
                            (LETT |y|
                                  (SPADCALL
                                   (SPADCALL (SPADCALL |y| |y| (QREFELT $ 27))
                                             (SPADCALL 5 (QREFELT $ 32))
                                             (QREFELT $ 31))
                                   |n| (QREFELT $ 37))
                                  . #8#)))
                          (LETT |i| (QSADD1 |i|) . #8#) #10# G191 (EXIT NIL))
                     (LETT G
                           (SPADCALL
                            (SPADCALL (SPADCALL |x| |y| (QREFELT $ 39))
                                      (QREFELT $ 40))
                            |n| (QREFELT $ 41))
                           . #8#)
                     (EXIT
                      (SEQ (LETT #1# NIL . #8#) G190 (COND (#1# #9#))
                           (SEQ
                            (LETT |y|
                                  (SPADCALL
                                   (SPADCALL (SPADCALL |y| |y| (QREFELT $ 27))
                                             (SPADCALL 5 (QREFELT $ 32))
                                             (QREFELT $ 31))
                                   |n| (QREFELT $ 37))
                                  . #8#)
                            (LETT |x|
                                  (SPADCALL
                                   (SPADCALL (SPADCALL |x| |x| (QREFELT $ 27))
                                             (SPADCALL 5 (QREFELT $ 32))
                                             (QREFELT $ 31))
                                   |n| (QREFELT $ 37))
                                  . #8#)
                            (EXIT
                             (LETT G
                                   (SPADCALL
                                    (SPADCALL (SPADCALL |x| |y| (QREFELT $ 39))
                                              (QREFELT $ 40))
                                    |n| (QREFELT $ 41))
                                   . #8#)))
                           (LETT #1#
                                 (SPADCALL (|spadConstant| $ 13) G
                                           (QREFELT $ 11))
                                 . #8#)
                           #10# G191 (EXIT NIL))))))))))
      (EXIT
       (COND ((SPADCALL G |n| (QREFELT $ 34)) (CONS 1 "failed"))
             ('T (CONS 0 G)))))))) 

(DEFUN |INTFACT;PollardSmallFactor20| (|n| $)
  (PROG (#1=#:G1888 |r| |i|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ (LETT |i| 1 . #2=(|INTFACT;PollardSmallFactor20|)) G190
             (COND ((QSGREATERP |i| 20) (GO G191)))
             (SEQ (LETT |r| (SPADCALL |n| (QREFELT $ 44)) . #2#)
                  (EXIT
                   (COND
                    ((QEQCAR |r| 0) (PROGN (LETT #1# |r| . #2#) (GO #1#))))))
             (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191 (EXIT NIL))
        (EXIT |r|)))
      #1# (EXIT #1#))))) 

(DEFUN |INTFACT;BasicSieve| (|r| |lim| $)
  (PROG (|d| |ls| |n| |m| #1=#:G1901 #2=#:G1902 |s| |l|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |l|
              (LIST (|spadConstant| $ 13) (SPADCALL 2 (QREFELT $ 32))
                    (SPADCALL 2 (QREFELT $ 32)) (SPADCALL 4 (QREFELT $ 32))
                    (SPADCALL 2 (QREFELT $ 32)) (SPADCALL 4 (QREFELT $ 32))
                    (SPADCALL 2 (QREFELT $ 32)) (SPADCALL 4 (QREFELT $ 32))
                    (SPADCALL 6 (QREFELT $ 32)) (SPADCALL 2 (QREFELT $ 32))
                    (SPADCALL 6 (QREFELT $ 32)))
              . #3=(|INTFACT;BasicSieve|))
        (SPADCALL |l| (SPADCALL |l| 3 (QREFELT $ 46)) (QREFELT $ 47))
        (LETT |d| (SPADCALL 2 (QREFELT $ 32)) . #3#) (LETT |n| |r| . #3#)
        (LETT |ls| NIL . #3#)
        (EXIT
         (SEQ (LETT |s| NIL . #3#) (LETT #2# |l| . #3#) G190
              (COND
               ((OR (ATOM #2#) (PROGN (LETT |s| (CAR #2#) . #3#) NIL))
                #4=(GO G191)))
              (SEQ
               (EXIT
                (COND
                 ((SPADCALL |lim| |d| (QREFELT $ 11))
                  (PROGN
                   (LETT #1# (SPADCALL |n| |ls| (QREFELT $ 28)) . #3#)
                   (GO #1#)))
                 ('T
                  (SEQ
                   (COND
                    ((SPADCALL |n| (SPADCALL |d| |d| (QREFELT $ 27))
                               (QREFELT $ 11))
                     (SEQ
                      (COND
                       ((SPADCALL (|spadConstant| $ 13) |n| (QREFELT $ 11))
                        (LETT |ls|
                              (SPADCALL |ls| (VECTOR (CONS 3 "prime") |n| 1)
                                        (QREFELT $ 35))
                              . #3#)))
                      (EXIT
                       (PROGN
                        (LETT #1#
                              (SPADCALL (|spadConstant| $ 13) |ls|
                                        (QREFELT $ 28))
                              . #3#)
                        (GO #1#))))))
                   (SEQ (LETT |m| 0 . #3#) G190
                        (COND
                         ((NULL
                           (SPADCALL (SPADCALL |n| |d| (QREFELT $ 37))
                                     (QREFELT $ 48)))
                          #4#))
                        (SEQ
                         (EXIT
                          (LETT |n| (SPADCALL |n| |d| (QREFELT $ 49)) . #3#)))
                        (LETT |m| (QSADD1 |m|) . #3#) #5=(GO G190) G191
                        (EXIT NIL))
                   (COND
                    ((< 0 |m|)
                     (LETT |ls|
                           (SPADCALL |ls| (VECTOR (CONS 3 "prime") |d| |m|)
                                     (QREFELT $ 35))
                           . #3#)))
                   (EXIT
                    (LETT |d| (SPADCALL |d| |s| (QREFELT $ 31)) . #3#)))))))
              (LETT #2# (CDR #2#) . #3#) #5# G191 (EXIT NIL)))))
      #1# (EXIT #1#))))) 

(DEFUN |INTFACT;BasicMethod;IF;5| (|n| $)
  (PROG (|x| |u| |m|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |n| (|spadConstant| $ 7) (QREFELT $ 11))
        (SEQ
         (LETT |m| (SPADCALL |n| (QREFELT $ 12))
               . #1=(|INTFACT;BasicMethod;IF;5|))
         (EXIT
          (LETT |u| (SPADCALL (|spadConstant| $ 13) (QREFELT $ 12)) . #1#))))
       ('T
        (SEQ (LETT |m| |n| . #1#)
             (EXIT (LETT |u| (|spadConstant| $ 13) . #1#)))))
      (LETT |x|
            (|INTFACT;BasicSieve| |m|
             (SPADCALL (|spadConstant| $ 13) (SPADCALL |m| (QREFELT $ 50))
                       (QREFELT $ 31))
             $)
            . #1#)
      (EXIT (SPADCALL |u| (SPADCALL |x| (QREFELT $ 22)) (QREFELT $ 28))))))) 

(DEFUN |INTFACT;factor;IF;6| (|m| $)
  (PROG (|flb| |c| |n| |d| |y| |x| |s| |f| |b| |a| |u|)
    (RETURN
     (SEQ
      (COND ((SPADCALL |m| (QREFELT $ 48)) (|spadConstant| $ 9))
            (#1='T
             (SEQ
              (COND
               ((SPADCALL |m| (QREFELT $ 52))
                (SEQ
                 (LETT |n| (SPADCALL |m| (QREFELT $ 12))
                       . #2=(|INTFACT;factor;IF;6|))
                 (EXIT
                  (LETT |u| (SPADCALL (|spadConstant| $ 13) (QREFELT $ 12))
                        . #2#))))
               (#1#
                (SEQ (LETT |n| |m| . #2#)
                     (EXIT (LETT |u| (|spadConstant| $ 13) . #2#)))))
              (LETT |b|
                    (|INTFACT;BasicSieve| |n| (SPADCALL 10000 (QREFELT $ 32))
                     $)
                    . #2#)
              (LETT |flb| (SPADCALL |b| (QREFELT $ 22)) . #2#)
              (LETT |n| (SPADCALL |b| (QREFELT $ 26)) . #2#)
              (EXIT
               (COND
                ((SPADCALL |n| (|spadConstant| $ 13) (QREFELT $ 34))
                 (SPADCALL |u| |flb| (QREFELT $ 28)))
                (#1#
                 (SEQ (LETT |a| (SPADCALL (QREFELT $ 54)) . #2#)
                      (LETT |b| (SPADCALL (QREFELT $ 54)) . #2#)
                      (LETT |f| (SPADCALL (QREFELT $ 54)) . #2#)
                      (SPADCALL |n| |a| (QREFELT $ 55))
                      (SEQ G190
                           (COND
                            ((NULL
                              (COND ((SPADCALL |a| (QREFELT $ 56)) 'NIL)
                                    ('T 'T)))
                             #3=(GO G191)))
                           (SEQ (LETT |n| (SPADCALL |a| (QREFELT $ 57)) . #2#)
                                (LETT |c| (SPADCALL |n| |a| (QREFELT $ 58))
                                      . #2#)
                                (SPADCALL |n| |a| (QREFELT $ 59))
                                (EXIT
                                 (COND
                                  ((SPADCALL |n| (QREFELT $ 61))
                                   (SPADCALL |n| |b| |c| (QREFELT $ 62)))
                                  ((< 1
                                      (QCDR
                                       (LETT |s| (SPADCALL |n| (QREFELT $ 64))
                                             . #2#)))
                                   (SPADCALL (QCAR |s|) |a| (* |c| (QCDR |s|))
                                             (QREFELT $ 62)))
                                  ('T
                                   (SEQ
                                    (LETT |x| (SPADCALL |n| (QREFELT $ 50))
                                          . #2#)
                                    (COND
                                     ((SPADCALL (SPADCALL |x| 2 (QREFELT $ 66))
                                                |n| (QREFELT $ 11))
                                      (LETT |x|
                                            (SPADCALL |x| (|spadConstant| $ 13)
                                                      (QREFELT $ 31))
                                            . #2#)))
                                    (LETT |y|
                                          (SPADCALL
                                           (SPADCALL
                                            (SPADCALL |x| 2 (QREFELT $ 66)) |n|
                                            (QREFELT $ 39))
                                           (QREFELT $ 17))
                                          . #2#)
                                    (EXIT
                                     (COND
                                      ((QEQCAR |y| 0)
                                       (SEQ
                                        (SPADCALL
                                         (SPADCALL |x| (QCDR |y|)
                                                   (QREFELT $ 31))
                                         |a| |c| (QREFELT $ 62))
                                        (EXIT
                                         (SPADCALL
                                          (SPADCALL |x| (QCDR |y|)
                                                    (QREFELT $ 39))
                                          |a| |c| (QREFELT $ 62)))))
                                      ('T
                                       (SEQ
                                        (LETT |d|
                                              (|INTFACT;PollardSmallFactor20|
                                               |n| $)
                                              . #2#)
                                        (EXIT
                                         (COND
                                          ((QEQCAR |d| 0)
                                           (SEQ
                                            (SEQ (LETT |m| 0 . #2#) G190
                                                 (COND
                                                  ((NULL
                                                    (SPADCALL
                                                     (SPADCALL |n| (QCDR |d|)
                                                               (QREFELT $ 37))
                                                     (QREFELT $ 48)))
                                                   #3#))
                                                 (SEQ
                                                  (EXIT
                                                   (LETT |n|
                                                         (SPADCALL |n|
                                                                   (QCDR |d|)
                                                                   (QREFELT $
                                                                            49))
                                                         . #2#)))
                                                 (LETT |m| (QSADD1 |m|) . #2#)
                                                 #4=(GO G190) G191 (EXIT NIL))
                                            (SPADCALL (QCDR |d|) |a|
                                                      (* |m| |c|)
                                                      (QREFELT $ 62))
                                            (EXIT
                                             (COND
                                              ((SPADCALL (|spadConstant| $ 13)
                                                         |n| (QREFELT $ 11))
                                               (SPADCALL |n| |a| |c|
                                                         (QREFELT $ 62)))))))
                                          ('T
                                           (SPADCALL |n| |f| |c|
                                                     (QREFELT $
                                                              62))))))))))))))
                           NIL #4# G191 (EXIT NIL))
                      (SEQ G190
                           (COND
                            ((NULL
                              (COND ((SPADCALL |b| (QREFELT $ 56)) 'NIL)
                                    ('T 'T)))
                             #3#))
                           (SEQ (LETT |n| (SPADCALL |b| (QREFELT $ 57)) . #2#)
                                (LETT |c| (SPADCALL |n| |b| (QREFELT $ 58))
                                      . #2#)
                                (SPADCALL |n| |b| (QREFELT $ 59))
                                (EXIT
                                 (LETT |flb|
                                       (SPADCALL |flb|
                                                 (VECTOR (CONS 3 "prime") |n|
                                                         |c|)
                                                 (QREFELT $ 35))
                                       . #2#)))
                           NIL #4# G191 (EXIT NIL))
                      (SEQ G190
                           (COND
                            ((NULL
                              (COND ((SPADCALL |f| (QREFELT $ 56)) 'NIL)
                                    ('T 'T)))
                             #3#))
                           (SEQ (LETT |n| (SPADCALL |f| (QREFELT $ 57)) . #2#)
                                (LETT |c| (SPADCALL |n| |f| (QREFELT $ 58))
                                      . #2#)
                                (SPADCALL |n| |f| (QREFELT $ 59))
                                (EXIT
                                 (LETT |flb|
                                       (SPADCALL |flb|
                                                 (VECTOR (CONS 0 "nil") |n|
                                                         |c|)
                                                 (QREFELT $ 35))
                                       . #2#)))
                           NIL #4# G191 (EXIT NIL))
                      (EXIT (SPADCALL |u| |flb| (QREFELT $ 28)))))))))))))) 

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

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

(MAKEPROP '|IntegerFactorizationPackage| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (0 . |Zero|)
              (|Factored| 6) (4 . |Zero|) (|Boolean|) (8 . <) (14 . -)
              (19 . |One|) (23 . |One|) (|Union| 6 '"failed")
              (|IntegerRoots| 6) (27 . |perfectSqrt|) |INTFACT;squareFree;IF;1|
              (|Union| '"nil" '"sqfr" '"irred" '"prime")
              (|Record| (|:| |flg| 19) (|:| |fctr| 6) (|:| |xpnt| 24))
              (|List| 20) (32 . |factorList|) (|PositiveInteger|) (|Integer|)
              (37 . *) (43 . |unit|) (48 . *) (54 . |makeFR|)
              (|NonNegativeInteger|) (60 . |approxNthRoot|) (66 . +)
              (72 . |coerce|) |INTFACT;factor;IF;6| (77 . =) (83 . |concat!|)
              (89 . |random|) (93 . |rem|) (99 . |convert|) (104 . -)
              (110 . |abs|) (115 . |gcd|) (121 . |min|) (127 . *)
              |INTFACT;PollardSmallFactor;IU;2| (|List| 6) (133 . |rest|)
              (139 . |concat!|) (145 . |zero?|) (150 . |quo|)
              (156 . |approxSqrt|) |INTFACT;BasicMethod;IF;5|
              (161 . |negative?|) (|ListMultiDictionary| 6)
              (166 . |dictionary|) (170 . |insert!|) (176 . |empty?|)
              (181 . |inspect|) (186 . |count|) (192 . |remove!|)
              (|IntegerPrimesPackage| 6) (198 . |prime?|) (203 . |insert!|)
              (|Record| (|:| |base| 6) (|:| |exponent| 29))
              (210 . |perfectNthRoot|) (215 . |base|) (219 . ^))
           '#(|squareFree| 225 |factor| 230 |PollardSmallFactor| 235
              |BasicMethod| 240)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 66
                                                 '(0 6 0 7 0 8 0 9 2 6 10 0 0
                                                   11 1 6 0 0 12 0 6 0 13 0 8 0
                                                   14 1 16 15 6 17 1 8 21 0 22
                                                   2 24 0 23 0 25 1 8 6 0 26 2
                                                   6 0 0 0 27 2 8 0 6 21 28 2
                                                   16 6 6 29 30 2 6 0 0 0 31 1
                                                   6 0 24 32 2 6 10 0 0 34 2 21
                                                   0 0 20 35 0 6 0 36 2 6 0 0 0
                                                   37 1 6 24 0 38 2 6 0 0 0 39
                                                   1 6 0 0 40 2 6 0 0 0 41 2 6
                                                   0 0 0 42 2 6 0 23 0 43 2 45
                                                   0 0 29 46 2 45 0 0 0 47 1 6
                                                   10 0 48 2 6 0 0 0 49 1 16 6
                                                   6 50 1 6 10 0 52 0 53 0 54 2
                                                   53 0 6 0 55 1 53 10 0 56 1
                                                   53 6 0 57 2 53 29 6 0 58 2
                                                   53 0 6 0 59 1 60 10 6 61 3
                                                   53 0 6 0 29 62 1 16 63 6 64
                                                   0 6 0 65 2 6 0 0 23 66 1 0 8
                                                   6 18 1 0 8 6 33 1 0 15 6 44
                                                   1 0 8 6 51)))))
           '|lookupComplete|)) 
