
(/VERSIONCHECK 2) 

(DEFUN |FFFG;ShiftAction;2NniVD;1| (|k| |l| |f| $)
  (SPADCALL (EXPT |k| |l|) (SPADCALL |f| |k| (QREFELT $ 9)) (QREFELT $ 10))) 

(DEFUN |FFFG;ShiftC;NniL;2| (|total| $)
  (PROG (#1=#:G992 |i| #2=#:G991)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|FFFG;ShiftC;NniL;2|))
       (SEQ (LETT |i| 0 . #3#) (LETT #1# (- |total| 1) . #3#) G190
            (COND ((QSGREATERP |i| #1#) (GO G191)))
            (SEQ
             (EXIT (LETT #2# (CONS (SPADCALL |i| (QREFELT $ 15)) #2#) . #3#)))
            (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |FFFG;qShiftAction;D2NniVD;3| (|q| |k| |l| |f| $)
  (SPADCALL (SPADCALL |q| (* |k| |l|) (QREFELT $ 18))
            (SPADCALL |f| |k| (QREFELT $ 9)) (QREFELT $ 19))) 

(DEFUN |FFFG;qShiftC;DNniL;4| (|q| |total| $)
  (PROG (#1=#:G997 |i| #2=#:G996)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|FFFG;qShiftC;DNniL;4|))
       (SEQ (LETT |i| 0 . #3#) (LETT #1# (- |total| 1) . #3#) G190
            (COND ((QSGREATERP |i| #1#) (GO G191)))
            (SEQ
             (EXIT
              (LETT #2# (CONS (SPADCALL |q| |i| (QREFELT $ 18)) #2#) . #3#)))
            (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |FFFG;DiffAction;2NniVD;5| (|k| |l| |f| $)
  (PROG (#1=#:G998)
    (RETURN
     (SPADCALL |f|
               (PROG1 (LETT #1# (- |k| |l|) |FFFG;DiffAction;2NniVD;5|)
                 (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
               (QREFELT $ 9))))) 

(DEFUN |FFFG;DiffC;NniL;6| (|total| $)
  (PROG (|i| #1=#:G1002)
    (RETURN
     (SEQ
      (PROGN
       (LETT #1# NIL . #2=(|FFFG;DiffC;NniL;6|))
       (SEQ (LETT |i| 1 . #2#) G190 (COND ((QSGREATERP |i| |total|) (GO G191)))
            (SEQ (EXIT (LETT #1# (CONS (|spadConstant| $ 23) #1#) . #2#)))
            (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191
            (EXIT (NREVERSE0 #1#)))))))) 

(DEFUN |FFFG;generalCoefficient;MVNniVD;7| (|coeffAction| |f| |k| |p| $)
  (PROG (|res| #1=#:G1011 |l| |b| |a| #2=#:G1010 |i|)
    (RETURN
     (SEQ
      (LETT |res| (|spadConstant| $ 23)
            . #3=(|FFFG;generalCoefficient;MVNniVD;7|))
      (SEQ (LETT |i| 1 . #3#) (LETT #2# (QVSIZE |f|) . #3#) G190
           (COND ((QSGREATERP |i| #2#) #4=(GO G191)))
           (SEQ (LETT |a| (SPADCALL |f| |i| (QREFELT $ 26)) . #3#)
                (LETT |b| (SPADCALL |p| |i| (QREFELT $ 29)) . #3#)
                (EXIT
                 (SEQ (LETT |l| (SPADCALL |b| (QREFELT $ 30)) . #3#)
                      (LETT #1# (SPADCALL |b| (QREFELT $ 31)) . #3#) G190
                      (COND ((> |l| #1#) #4#))
                      (SEQ
                       (EXIT
                        (COND
                         ((NULL
                           (SPADCALL (SPADCALL |b| |l| (QREFELT $ 32))
                                     (QREFELT $ 34)))
                          (LETT |res|
                                (SPADCALL |res|
                                          (SPADCALL
                                           (SPADCALL |b| |l| (QREFELT $ 32))
                                           (SPADCALL |k| |l| |a| |coeffAction|)
                                           (QREFELT $ 19))
                                          (QREFELT $ 35))
                                . #3#)))))
                      (LETT |l| (+ |l| 1) . #3#) #5=(GO G190) G191
                      (EXIT NIL))))
           (LETT |i| (QSADD1 |i|) . #3#) #5# G191 (EXIT NIL))
      (EXIT |res|))))) 

(DEFUN |FFFG;generalInterpolation;LMVLM;8| (C |coeffAction| |f| |eta| $)
  (PROG (|c|)
    (RETURN
     (SEQ
      (LETT |c|
            (CONS #'|FFFG;generalInterpolation;LMVLM;8!0|
                  (VECTOR $ |f| |coeffAction|))
            |FFFG;generalInterpolation;LMVLM;8|)
      (EXIT (SPADCALL C |c| |eta| (QREFELT $ 43))))))) 

(DEFUN |FFFG;generalInterpolation;LMVLM;8!0| (|x| |y| $$)
  (PROG (|coeffAction| |f| $)
    (LETT |coeffAction| (QREFELT $$ 2)
          . #1=(|FFFG;generalInterpolation;LMVLM;8|))
    (LETT |f| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G1012)
        (RETURN
         (SPADCALL |coeffAction| |f|
                   (PROG1
                       (LETT #2#
                             (SPADCALL |x| (|spadConstant| $ 38)
                                       (QREFELT $ 39))
                             NIL)
                     (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#))
                   |y| (QREFELT $ 37)))))))) 

(DEFUN |FFFG;nextVector!| (|p| |v| $)
  (PROG (#1=#:G1028 #2=#:G1032 |sum| #3=#:G1021 #4=#:G1033 |j| |i| |pos| |n|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |n| (SPADCALL |v| (QREFELT $ 45)) . #5=(|FFFG;nextVector!|))
            (LETT |pos|
                  (SPADCALL (CONS #'|FFFG;nextVector!!0| (VECTOR $ |p|)) |v|
                            (QREFELT $ 48))
                  . #5#)
            (EXIT
             (COND
              ((ZEROP |pos|)
               (PROGN (LETT #2# (CONS 0 "failed") . #5#) (GO #2#)))
              (#6='T
               (SEQ
                (COND
                 ((EQL |pos| 1)
                  (SEQ (LETT |sum| (SPADCALL |v| 1 (QREFELT $ 49)) . #5#)
                       (SEQ (LETT |i| 2 . #5#) G190
                            (COND ((QSGREATERP |i| |n|) #7=(GO G191)))
                            (SEQ
                             (EXIT
                              (COND
                               ((< (SPADCALL |v| |i| (QREFELT $ 49)) |p|)
                                (COND
                                 ((< 0 |sum|)
                                  (SEQ
                                   (SPADCALL |v| |i|
                                             (+
                                              (SPADCALL |v| |i| (QREFELT $ 49))
                                              1)
                                             (QREFELT $ 51))
                                   (LETT |sum| (- |sum| 1) . #5#)
                                   (SEQ (LETT |j| 1 . #5#)
                                        (LETT #4# (- |i| 1) . #5#) G190
                                        (COND ((QSGREATERP |j| #4#) #7#))
                                        (SEQ
                                         (EXIT
                                          (COND
                                           ((< |p| |sum|)
                                            (SEQ
                                             (SPADCALL |v| |j| |p|
                                                       (QREFELT $ 51))
                                             (EXIT
                                              (LETT |sum| (- |sum| |p|)
                                                    . #5#))))
                                           ('T
                                            (SEQ
                                             (SPADCALL |v| |j|
                                                       (PROG1
                                                           (LETT #3# |sum|
                                                                 . #5#)
                                                         (|check-subtype|
                                                          (>= #3# 0)
                                                          '(|NonNegativeInteger|)
                                                          #3#))
                                                       (QREFELT $ 51))
                                             (EXIT (LETT |sum| 0 . #5#)))))))
                                        (LETT |j| (QSADD1 |j|) . #5#)
                                        #8=(GO G190) G191 (EXIT NIL))
                                   (EXIT
                                    (PROGN
                                     (LETT #2# (CONS 1 |v|) . #5#)
                                     (GO #2#)))))
                                 ('T
                                  (LETT |sum|
                                        (+ |sum|
                                           (SPADCALL |v| |i| (QREFELT $ 49)))
                                        . #5#))))
                               ('T
                                (LETT |sum|
                                      (+ |sum|
                                         (SPADCALL |v| |i| (QREFELT $ 49)))
                                      . #5#)))))
                            (LETT |i| (QSADD1 |i|) . #5#) #8# G191 (EXIT NIL))
                       (EXIT
                        (PROGN (LETT #2# (CONS 0 "failed") . #5#) (GO #2#)))))
                 (#6#
                  (SEQ
                   (SPADCALL |v| |pos|
                             (+ (SPADCALL |v| |pos| (QREFELT $ 49)) 1)
                             (QREFELT $ 51))
                   (EXIT
                    (SPADCALL |v| (- |pos| 1)
                              (PROG1
                                  (LETT #1#
                                        (-
                                         (SPADCALL |v| (- |pos| 1)
                                                   (QREFELT $ 49))
                                         1)
                                        . #5#)
                                (|check-subtype| (>= #1# 0)
                                                 '(|NonNegativeInteger|) #1#))
                              (QREFELT $ 51))))))
                (EXIT (CONS 1 |v|))))))))
      #2# (EXIT #2#))))) 

(DEFUN |FFFG;nextVector!!0| (|x| $$)
  (PROG (|p| $)
    (LETT |p| (QREFELT $$ 1) . #1=(|FFFG;nextVector!|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL |x| |p| (QREFELT $ 46)))))) 

(DEFUN |FFFG;vectorStream| (|p| |v| $)
  (PROG ()
    (RETURN
     (SEQ
      (SPADCALL (CONS #'|FFFG;vectorStream!0| (VECTOR $ |v| |p|))
                (QREFELT $ 57)))))) 

(DEFUN |FFFG;vectorStream!0| ($$)
  (PROG (|p| |v| $)
    (LETT |p| (QREFELT $$ 2) . #1=(|FFFG;vectorStream|))
    (LETT |v| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|next|)
        (RETURN
         (SEQ
          (LETT |next| (|FFFG;nextVector!| |p| (SPADCALL |v| (QREFELT $ 52)) $)
                NIL)
          (EXIT
           (COND ((QEQCAR |next| 0) (SPADCALL (QREFELT $ 54)))
                 ('T
                  (SPADCALL (QCDR |next|)
                            (|FFFG;vectorStream| |p| (QCDR |next|) $)
                            (QREFELT $ 55)))))))))))) 

(DEFUN |FFFG;vectorStream2| (|p| |v| $)
  (PROG ()
    (RETURN
     (SEQ
      (SPADCALL (CONS #'|FFFG;vectorStream2!0| (VECTOR $ |v| |p|))
                (QREFELT $ 57)))))) 

(DEFUN |FFFG;vectorStream2!0| ($$)
  (PROG (|p| |v| $)
    (LETT |p| (QREFELT $$ 2) . #1=(|FFFG;vectorStream2|))
    (LETT |v| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|next| |next2|)
        (RETURN
         (SEQ
          (LETT |next| (|FFFG;nextVector!| |p| (SPADCALL |v| (QREFELT $ 52)) $)
                NIL)
          (EXIT
           (COND ((QEQCAR |next| 0) (SPADCALL (QREFELT $ 54)))
                 ('T
                  (SEQ
                   (LETT |next2|
                         (|FFFG;nextVector!| |p|
                          (SPADCALL (QCDR |next|) (QREFELT $ 52)) $)
                         NIL)
                   (EXIT
                    (COND
                     ((QEQCAR |next2| 0)
                      (SPADCALL (QCDR |next|) (SPADCALL (QREFELT $ 54))
                                (QREFELT $ 55)))
                     ('T
                      (SPADCALL (QCDR |next2|)
                                (|FFFG;vectorStream2| |p| (QCDR |next2|) $)
                                (QREFELT $ 55)))))))))))))))) 

(DEFUN |FFFG;generalInterpolation;LMV2NniS;12|
       (C |coeffAction| |f| |sumEta| |maxEta| $)
  (PROG (|eta| #1=#:G1054 |sum| |entry| #2=#:G1061 |i| #3=#:G1060)
    (RETURN
     (SEQ (LETT |sum| |sumEta| . #4=(|FFFG;generalInterpolation;LMV2NniS;12|))
          (LETT |eta|
                (PROGN
                 (LETT #3# NIL . #4#)
                 (SEQ (LETT |i| 1 . #4#) (LETT #2# (QVSIZE |f|) . #4#) G190
                      (COND ((QSGREATERP |i| #2#) (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #3#
                              (CONS
                               (SEQ
                                (COND
                                 ((< |sum| |maxEta|)
                                  (SEQ (LETT |entry| |sum| . #4#)
                                       (EXIT (LETT |sum| 0 . #4#))))
                                 ('T
                                  (SEQ (LETT |entry| |maxEta| . #4#)
                                       (EXIT
                                        (LETT |sum| (- |sum| |maxEta|)
                                              . #4#)))))
                                (EXIT
                                 (PROG1 (LETT #1# |entry| . #4#)
                                   (|check-subtype| (>= #1# 0)
                                                    '(|NonNegativeInteger|)
                                                    #1#))))
                               #3#)
                              . #4#)))
                      (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                      (EXIT (NREVERSE0 #3#))))
                . #4#)
          (EXIT
           (COND
            ((EQL (QVSIZE |f|) 2)
             (SPADCALL
              (CONS #'|FFFG;generalInterpolation;LMV2NniS;12!0|
                    (VECTOR $ |f| |coeffAction| C))
              (SPADCALL |eta| (|FFFG;vectorStream2| |maxEta| |eta| $)
                        (QREFELT $ 55))
              (QREFELT $ 61)))
            ('T
             (SPADCALL
              (CONS #'|FFFG;generalInterpolation;LMV2NniS;12!1|
                    (VECTOR $ |f| |coeffAction| C))
              (SPADCALL |eta| (|FFFG;vectorStream| |maxEta| |eta| $)
                        (QREFELT $ 55))
              (QREFELT $ 61))))))))) 

(DEFUN |FFFG;generalInterpolation;LMV2NniS;12!1| (|x| $$)
  (PROG (C |coeffAction| |f| $)
    (LETT C (QREFELT $$ 3) . #1=(|FFFG;generalInterpolation;LMV2NniS;12|))
    (LETT |coeffAction| (QREFELT $$ 2) . #1#)
    (LETT |f| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL C |coeffAction| |f| |x| (QREFELT $ 44)))))) 

(DEFUN |FFFG;generalInterpolation;LMV2NniS;12!0| (|x| $$)
  (PROG (C |coeffAction| |f| $)
    (LETT C (QREFELT $$ 3) . #1=(|FFFG;generalInterpolation;LMV2NniS;12|))
    (LETT |coeffAction| (QREFELT $$ 2) . #1#)
    (LETT |f| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (SPADCALL C |coeffAction| |f| |x| (QREFELT $ 44)))))) 

(DEFUN |FFFG;interpolate;2LNniF;13| (|x| |y| |d| $)
  (PROG (|r| |gy| |gx|)
    (RETURN
     (SEQ
      (LETT |gx| (SPADCALL |x| (QREFELT $ 66))
            . #1=(|FFFG;interpolate;2LNniF;13|))
      (LETT |gy| (SPADCALL |y| (QREFELT $ 66)) . #1#)
      (LETT |r| (SPADCALL (QCAR |gx|) (QCAR |gy|) |d| (QREFELT $ 68)) . #1#)
      (EXIT
       (SPADCALL
        (SPADCALL (SPADCALL |r| (QREFELT $ 69))
                  (SPADCALL (QCDR |gx|) 1 (QREFELT $ 70)) (QREFELT $ 71))
        (SPADCALL (QCDR |gy|)
                  (SPADCALL (SPADCALL |r| (QREFELT $ 72))
                            (SPADCALL (QCDR |gx|) 1 (QREFELT $ 70))
                            (QREFELT $ 71))
                  (QREFELT $ 73))
        (QREFELT $ 74))))))) 

(DEFUN |FFFG;interpolate;2LNniF;14| (|x| |y| |d| $)
  (PROG (M |eta| #1=#:G1067 |c| N)
    (RETURN
     (SEQ
      (COND
       ((NULL
         (EQL (LETT N (LENGTH |x|) . #2=(|FFFG;interpolate;2LNniF;14|))
              (LENGTH |y|)))
        (|error| "interpolate: number of points and values must match")))
      (COND
       ((NULL (< |d| N))
        (|error|
         "interpolate: numerator degree must be smaller than number of data points")))
      (LETT |c| (CONS #'|FFFG;interpolate;2LNniF;14!0| (VECTOR |x| $ |y|))
            . #2#)
      (LETT |eta|
            (LIST |d|
                  (PROG1 (LETT #1# (- N |d|) . #2#)
                    (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#)))
            . #2#)
      (LETT M (SPADCALL |x| |c| |eta| (QREFELT $ 43)) . #2#)
      (EXIT
       (COND
        ((SPADCALL (SPADCALL M 2 1 (QREFELT $ 81)) (QREFELT $ 82))
         (SPADCALL (SPADCALL M 1 2 (QREFELT $ 81))
                   (SPADCALL M 2 2 (QREFELT $ 81)) (QREFELT $ 74)))
        ('T
         (SPADCALL (SPADCALL M 1 1 (QREFELT $ 81))
                   (SPADCALL M 2 1 (QREFELT $ 81)) (QREFELT $ 74))))))))) 

(DEFUN |FFFG;interpolate;2LNniF;14!0| (|s| |u| $$)
  (PROG (|y| $ |x|)
    (LETT |y| (QREFELT $$ 2) . #1=(|FFFG;interpolate;2LNniF;14|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |x| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL
       (SPADCALL (SPADCALL |y| |s| (QREFELT $ 76))
                 (SPADCALL (SPADCALL |u| 2 (QREFELT $ 29))
                           (SPADCALL |x| |s| (QREFELT $ 76)) (QREFELT $ 77))
                 (QREFELT $ 19))
       (SPADCALL (SPADCALL |u| (|spadConstant| $ 79) (QREFELT $ 29))
                 (SPADCALL |x| |s| (QREFELT $ 76)) (QREFELT $ 77))
       (QREFELT $ 80)))))) 

(DEFUN |FFFG;recurrence| (M |pi| |m| |r| |d| |z| |Ck| |p| $)
  (PROG (#1=#:G1074 |newMiPi| |pl| |Mil| |rl| |l| |MiPi| |i| |polyf| |rPi|)
    (RETURN
     (SEQ
      (LETT |rPi| (SPADCALL |r| |pi| (QREFELT $ 84)) . #2=(|FFFG;recurrence|))
      (LETT |polyf|
            (SPADCALL |rPi|
                      (SPADCALL |z| (SPADCALL |Ck| (QREFELT $ 85))
                                (QREFELT $ 86))
                      (QREFELT $ 73))
            . #2#)
      (SEQ (LETT |i| 1 . #2#) G190 (COND ((QSGREATERP |i| |m|) #3=(GO G191)))
           (SEQ (LETT |MiPi| (SPADCALL M |i| |pi| (QREFELT $ 87)) . #2#)
                (LETT |newMiPi| (SPADCALL |polyf| |MiPi| (QREFELT $ 88)) . #2#)
                (SEQ (LETT |l| 1 . #2#) G190 (COND ((QSGREATERP |l| |m|) #3#))
                     (SEQ
                      (EXIT
                       (COND
                        ((COND ((EQL |l| |pi|) 'NIL) ('T 'T))
                         (SEQ
                          (LETT |rl| (SPADCALL |r| |l| (QREFELT $ 84)) . #2#)
                          (LETT |Mil|
                                (PROG2
                                    (LETT #1#
                                          (SPADCALL
                                           (SPADCALL
                                            (SPADCALL
                                             (SPADCALL M |i| |l|
                                                       (QREFELT $ 87))
                                             |rPi| (QREFELT $ 89))
                                            (SPADCALL |MiPi| |rl|
                                                      (QREFELT $ 89))
                                            (QREFELT $ 86))
                                           |d| (QREFELT $ 91))
                                          . #2#)
                                    (QCDR #1#)
                                  (|check-union| (QEQCAR #1# 0)
                                                 (|SparseUnivariatePolynomial|
                                                  (QREFELT $ 6))
                                                 #1#))
                                . #2#)
                          (SPADCALL M |i| |l| |Mil| (QREFELT $ 92))
                          (LETT |pl| (SPADCALL |p| |l| (QREFELT $ 84)) . #2#)
                          (EXIT
                           (LETT |newMiPi|
                                 (SPADCALL |newMiPi|
                                           (SPADCALL |pl| |Mil| (QREFELT $ 73))
                                           (QREFELT $ 86))
                                 . #2#)))))))
                     (LETT |l| (QSADD1 |l|) . #2#) #4=(GO G190) G191
                     (EXIT NIL))
                (EXIT
                 (SPADCALL M |i| |pi|
                           (PROG2
                               (LETT #1#
                                     (SPADCALL |newMiPi| |d| (QREFELT $ 91))
                                     . #2#)
                               (QCDR #1#)
                             (|check-union| (QEQCAR #1# 0)
                                            (|SparseUnivariatePolynomial|
                                             (QREFELT $ 6))
                                            #1#))
                           (QREFELT $ 92))))
           (LETT |i| (QSADD1 |i|) . #2#) #4# G191 (EXIT NIL))
      (EXIT M))))) 

(DEFUN |FFFG;fffg;LMLM;16| (C |c| |eta| $)
  (PROG (|d| M #1=#:G1089 |l| |lambda| |lambdaMax| |Lambda| #2=#:G1097 |k| |p|
         |r| |etak| K |m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL (|spadConstant| $ 12) 1 (QREFELT $ 70))
            . #3=(|FFFG;fffg;LMLM;16|))
      (LETT |m| (SPADCALL |eta| (QREFELT $ 45)) . #3#)
      (LETT M (SPADCALL |m| (|spadConstant| $ 93) (QREFELT $ 94)) . #3#)
      (LETT |d| (|spadConstant| $ 12) . #3#)
      (LETT K (SPADCALL (ELT $ 95) |eta| (QREFELT $ 97)) . #3#)
      (LETT |etak| (SPADCALL |m| (QREFELT $ 99)) . #3#)
      (LETT |r| (SPADCALL |m| (QREFELT $ 100)) . #3#)
      (LETT |p| (SPADCALL |m| (QREFELT $ 100)) . #3#)
      (SEQ (LETT |k| 1 . #3#) G190 (COND ((QSGREATERP |k| K) #4=(GO G191)))
           (SEQ
            (SEQ (LETT |l| 1 . #3#) G190 (COND ((QSGREATERP |l| |m|) #4#))
                 (SEQ
                  (EXIT
                   (SPADCALL |r| |l|
                             (SPADCALL |k| (SPADCALL M |l| (QREFELT $ 101))
                                       |c|)
                             (QREFELT $ 102))))
                 (LETT |l| (QSADD1 |l|) . #3#) #5=(GO G190) G191 (EXIT NIL))
            (LETT |Lambda|
                  (PROGN
                   (LETT #2# NIL . #3#)
                   (SEQ (LETT |l| 1 . #3#) G190
                        (COND ((QSGREATERP |l| |m|) #4#))
                        (SEQ
                         (EXIT
                          (COND
                           ((COND
                             ((SPADCALL (SPADCALL |r| |l| (QREFELT $ 103))
                                        (|spadConstant| $ 23) (QREFELT $ 104))
                              'NIL)
                             ('T 'T))
                            (LETT #2#
                                  (CONS
                                   (- (SPADCALL |eta| |l| (QREFELT $ 49))
                                      (SPADCALL |etak| |l| (QREFELT $ 105)))
                                   #2#)
                                  . #3#)))))
                        (LETT |l| (QSADD1 |l|) . #3#) #5# G191
                        (EXIT (NREVERSE0 #2#))))
                  . #3#)
            (EXIT
             (COND ((NULL |Lambda|) "iterate")
                   ('T
                    (SEQ
                     (LETT |lambdaMax|
                           (SPADCALL (ELT $ 107) |Lambda| (QREFELT $ 110))
                           . #3#)
                     (LETT |lambda| 1 . #3#)
                     (SEQ G190
                          (COND
                           ((NULL
                             (COND
                              ((<
                                (- (SPADCALL |eta| |lambda| (QREFELT $ 49))
                                   (SPADCALL |etak| |lambda| (QREFELT $ 105)))
                                |lambdaMax|)
                               'T)
                              ('T
                               (SPADCALL
                                (SPADCALL |r| |lambda| (QREFELT $ 103))
                                (|spadConstant| $ 23) (QREFELT $ 104)))))
                            #4#))
                          (SEQ (EXIT (LETT |lambda| (+ |lambda| 1) . #3#))) NIL
                          #5# G191 (EXIT NIL))
                     (SEQ (LETT |l| 1 . #3#) G190
                          (COND ((QSGREATERP |l| |m|) #4#))
                          (SEQ
                           (EXIT
                            (COND
                             ((COND ((EQL |l| |lambda|) 'NIL) ('T 'T))
                              (COND
                               ((< 0 (SPADCALL |etak| |l| (QREFELT $ 105)))
                                (SPADCALL |p| |l|
                                          (SPADCALL
                                           (SPADCALL M |l| |lambda|
                                                     (QREFELT $ 81))
                                           (PROG1
                                               (LETT #1#
                                                     (-
                                                      (SPADCALL |etak| |l|
                                                                (QREFELT $
                                                                         105))
                                                      1)
                                                     . #3#)
                                             (|check-subtype| (>= #1# 0)
                                                              '(|NonNegativeInteger|)
                                                              #1#))
                                           (QREFELT $ 32))
                                          (QREFELT $ 102)))
                               ('T
                                (SPADCALL |p| |l| (|spadConstant| $ 23)
                                          (QREFELT $ 102))))))))
                          (LETT |l| (QSADD1 |l|) . #3#) #5# G191 (EXIT NIL))
                     (LETT M
                           (|FFFG;recurrence| M |lambda| |m| |r| |d| |z|
                            (SPADCALL C |k| (QREFELT $ 76)) |p| $)
                           . #3#)
                     (LETT |d| (SPADCALL |r| |lambda| (QREFELT $ 103)) . #3#)
                     (EXIT
                      (SPADCALL |etak| |lambda|
                                (+ (SPADCALL |etak| |lambda| (QREFELT $ 105))
                                   1)
                                (QREFELT $ 111))))))))
           (LETT |k| (QSADD1 |k|) . #3#) #5# G191 (EXIT NIL))
      (EXIT M))))) 

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

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

(MAKEPROP '|FractionFreeFastGaussian| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
              (|NonNegativeInteger|) (0 . |coefficient|) (6 . *)
              |FFFG;ShiftAction;2NniVD;1| (12 . |One|) (16 . |One|) (|Integer|)
              (20 . |coerce|) (|List| 6) |FFFG;ShiftC;NniL;2| (25 . ^) (31 . *)
              |FFFG;qShiftAction;D2NniVD;3| |FFFG;qShiftC;DNniL;4|
              |FFFG;DiffAction;2NniVD;5| (37 . |Zero|) |FFFG;DiffC;NniL;6|
              (|Vector| 7) (41 . |elt|) (|SparseUnivariatePolynomial| 6)
              (|Vector| 27) (47 . |elt|) (53 . |minimumDegree|) (58 . |degree|)
              (63 . |coefficient|) (|Boolean|) (69 . |zero?|) (74 . +)
              (|Mapping| 6 8 8 7) |FFFG;generalCoefficient;MVNniVD;7|
              (80 . |One|) (84 . -) (|Matrix| 27) (|Mapping| 6 8 28) (|List| 8)
              |FFFG;fffg;LMLM;16| |FFFG;generalInterpolation;LMVLM;8|
              (90 . |#|) (95 . <) (|Mapping| 33 8) (101 . |position|)
              (107 . |elt|) (113 . |Zero|) (117 . |setelt|) (124 . |copy|)
              (|Stream| 42) (129 . |empty|) (133 . |cons|) (|Mapping| $)
              (139 . |delay|) (|Stream| 40) (|Mapping| 40 42)
              (|StreamFunctions2| 42 40) (144 . |map|)
              |FFFG;generalInterpolation;LMV2NniS;12|
              (|Record| (|:| |num| 16) (|:| |den| 6)) (|List| (|Fraction| 6))
              (|InnerCommonDenominator| 6 (|Fraction| 6) 16 64)
              (150 . |splitDenominator|) (|Fraction| 27)
              |FFFG;interpolate;2LNniF;14| (155 . |numer|) (160 . |monomial|)
              (166 . |elt|) (172 . |denom|) (177 . *) (183 . /)
              |FFFG;interpolate;2LNniF;13| (189 . |elt|) (195 . |elt|)
              (|PositiveInteger|) (201 . |One|) (205 . -) (211 . |elt|)
              (218 . |zero?|) (|Vector| 6) (223 . |qelt|) (229 . |coerce|)
              (234 . -) (240 . |qelt|) (247 . *) (253 . *)
              (|Union| $ '"failed") (259 . |exquo|) (265 . |qsetelt!|)
              (273 . |One|) (277 . |scalarMatrix|) (283 . +) (|Mapping| 8 8 8)
              (289 . |reduce|) (|Vector| 8) (295 . |zero|) (300 . |zero|)
              (305 . |column|) (311 . |setelt|) (318 . |elt|) (324 . =)
              (330 . |elt|) (336 . |max|) (342 . |max|) (|Mapping| 14 14 14)
              (|List| 14) (348 . |reduce|) (354 . |setelt|))
           '#(|qShiftC| 361 |qShiftAction| 367 |interpolate| 375
              |generalInterpolation| 389 |generalCoefficient| 406 |fffg| 414
              |ShiftC| 421 |ShiftAction| 426 |DiffC| 433 |DiffAction| 438)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 111
                                                 '(2 7 6 0 8 9 2 6 0 8 0 10 0 6
                                                   0 12 0 7 0 13 1 6 0 14 15 2
                                                   6 0 0 8 18 2 6 0 0 0 19 0 6
                                                   0 23 2 25 7 0 14 26 2 28 27
                                                   0 14 29 1 27 8 0 30 1 27 8 0
                                                   31 2 27 6 0 8 32 1 6 33 0 34
                                                   2 6 0 0 0 35 0 8 0 38 2 14 0
                                                   0 0 39 1 42 8 0 45 2 8 33 0
                                                   0 46 2 42 14 47 0 48 2 42 8
                                                   0 14 49 0 7 0 50 3 42 8 0 14
                                                   8 51 1 42 0 0 52 0 53 0 54 2
                                                   53 0 42 0 55 1 53 0 56 57 2
                                                   60 58 59 53 61 1 65 63 64 66
                                                   1 67 27 0 69 2 27 0 6 8 70 2
                                                   27 0 0 0 71 1 67 27 0 72 2
                                                   27 0 6 0 73 2 67 0 27 27 74
                                                   2 16 6 0 14 76 2 27 6 0 6 77
                                                   0 78 0 79 2 6 0 0 0 80 3 40
                                                   27 0 14 14 81 1 27 33 0 82 2
                                                   83 6 0 14 84 1 27 0 6 85 2
                                                   27 0 0 0 86 3 40 27 0 14 14
                                                   87 2 27 0 0 0 88 2 27 0 0 6
                                                   89 2 27 90 0 6 91 4 40 27 0
                                                   14 14 27 92 0 27 0 93 2 40 0
                                                   8 27 94 2 8 0 0 0 95 2 42 8
                                                   96 0 97 1 98 0 8 99 1 83 0 8
                                                   100 2 40 28 0 14 101 3 83 6
                                                   0 14 6 102 2 83 6 0 14 103 2
                                                   6 33 0 0 104 2 98 8 0 14 105
                                                   2 8 0 0 0 106 2 14 0 0 0 107
                                                   2 109 14 108 0 110 3 98 8 0
                                                   14 8 111 2 0 16 6 8 21 4 0 6
                                                   6 8 8 7 20 3 0 67 64 64 8 75
                                                   3 0 67 16 16 8 68 4 0 40 16
                                                   36 25 42 44 5 0 58 16 36 25
                                                   8 8 62 4 0 6 36 25 8 28 37 3
                                                   0 40 16 41 42 43 1 0 16 8 17
                                                   3 0 6 8 8 7 11 1 0 16 8 24 3
                                                   0 6 8 8 7 22)))))
           '|lookupComplete|)) 
