
(/VERSIONCHECK 2) 

(DEFUN |FSPECF;abs;2F;1| (|x| $) (SPADCALL (QREFELT $ 13) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;Gamma;2F;2| (|x| $) (SPADCALL (QREFELT $ 14) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;Gamma;3F;3| (|a| |x| $)
  (SPADCALL (QREFELT $ 15) |a| |x| (QREFELT $ 38))) 

(DEFUN |FSPECF;Beta;3F;4| (|x| |y| $)
  (SPADCALL (QREFELT $ 16) |x| |y| (QREFELT $ 38))) 

(DEFUN |FSPECF;digamma;2F;5| (|x| $)
  (SPADCALL (QREFELT $ 17) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;polygamma;3F;6| (|k| |x| $)
  (SPADCALL (QREFELT $ 18) |k| |x| (QREFELT $ 38))) 

(DEFUN |FSPECF;besselJ;3F;7| (|a| |x| $)
  (SPADCALL (QREFELT $ 19) |a| |x| (QREFELT $ 38))) 

(DEFUN |FSPECF;besselY;3F;8| (|a| |x| $)
  (SPADCALL (QREFELT $ 20) |a| |x| (QREFELT $ 38))) 

(DEFUN |FSPECF;besselI;3F;9| (|a| |x| $)
  (SPADCALL (QREFELT $ 21) |a| |x| (QREFELT $ 38))) 

(DEFUN |FSPECF;besselK;3F;10| (|a| |x| $)
  (SPADCALL (QREFELT $ 22) |a| |x| (QREFELT $ 38))) 

(DEFUN |FSPECF;airyAi;2F;11| (|x| $)
  (SPADCALL (QREFELT $ 23) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;airyAiPrime;2F;12| (|x| $)
  (SPADCALL (QREFELT $ 24) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;airyBi;2F;13| (|x| $)
  (SPADCALL (QREFELT $ 25) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;airyBiPrime;2F;14| (|x| $)
  (SPADCALL (QREFELT $ 26) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;lambertW;2F;15| (|x| $)
  (SPADCALL (QREFELT $ 27) |x| (QREFELT $ 35))) 

(DEFUN |FSPECF;polylog;3F;16| (|s| |x| $)
  (SPADCALL (QREFELT $ 28) |s| |x| (QREFELT $ 38))) 

(DEFUN |FSPECF;weierstrassP;4F;17| (|g2| |g3| |x| $)
  (SPADCALL (QREFELT $ 29) |g2| |g3| |x| (QREFELT $ 53))) 

(DEFUN |FSPECF;weierstrassPPrime;4F;18| (|g2| |g3| |x| $)
  (SPADCALL (QREFELT $ 30) |g2| |g3| |x| (QREFELT $ 53))) 

(DEFUN |FSPECF;weierstrassSigma;4F;19| (|g2| |g3| |x| $)
  (SPADCALL (QREFELT $ 31) |g2| |g3| |x| (QREFELT $ 53))) 

(DEFUN |FSPECF;weierstrassZeta;4F;20| (|g2| |g3| |x| $)
  (SPADCALL (QREFELT $ 32) |g2| |g3| |x| (QREFELT $ 53))) 

(DEFUN |FSPECF;hypergeometricF;2L2F;21| (|a| |b| |z| $)
  (PROG (|q| |p| |nbi| |nai|)
    (RETURN
     (SEQ (LETT |nai| (LENGTH |a|) . #1=(|FSPECF;hypergeometricF;2L2F;21|))
          (LETT |nbi| (LENGTH |b|) . #1#)
          (COND
           ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61))
            (COND
             ((NULL (< (+ |nbi| 1) |nai|)) (EXIT (|spadConstant| $ 63))))))
          (LETT |p| (SPADCALL (LENGTH |a|) (QREFELT $ 65)) . #1#)
          (LETT |q| (SPADCALL (LENGTH |b|) (QREFELT $ 65)) . #1#)
          (EXIT
           (SPADCALL (QREFELT $ 33)
                     (SPADCALL
                      (SPADCALL |a| (SPADCALL |b| (LIST |z|) (QREFELT $ 67))
                                (QREFELT $ 67))
                      (LIST |p| |q|) (QREFELT $ 67))
                     (QREFELT $ 69))))))) 

(DEFUN |FSPECF;meijerG;4L2F;22| (|a| |b| |c| |d| |z| $)
  (PROG (|m2| |m1| |n2| |n1|)
    (RETURN
     (SEQ
      (LETT |n1| (SPADCALL (LENGTH |a|) (QREFELT $ 65))
            . #1=(|FSPECF;meijerG;4L2F;22|))
      (LETT |n2| (SPADCALL (LENGTH |b|) (QREFELT $ 65)) . #1#)
      (LETT |m1| (SPADCALL (LENGTH |c|) (QREFELT $ 65)) . #1#)
      (LETT |m2| (SPADCALL (LENGTH |d|) (QREFELT $ 65)) . #1#)
      (EXIT
       (SPADCALL (QREFELT $ 34)
                 (SPADCALL
                  (SPADCALL |a|
                            (SPADCALL |b|
                                      (SPADCALL |c|
                                                (SPADCALL |d| (LIST |z|)
                                                          (QREFELT $ 67))
                                                (QREFELT $ 67))
                                      (QREFELT $ 67))
                            (QREFELT $ 67))
                  (LIST |n1| |n2| |m1| |m2|) (QREFELT $ 67))
                 (QREFELT $ 69))))))) 

(DEFUN |FSPECF;grad2| (|l| |t| |op| |d2| $)
  (PROG (|x2| |x1|)
    (RETURN
     (SEQ (LETT |x1| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;grad2|))
          (LETT |x2| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |x1| |t| (QREFELT $ 88))
                      (SPADCALL (QREFELT $ 73)
                                (LIST
                                 (SPADCALL |op| (LIST (QREFELT $ 76) |x2|)
                                           (QREFELT $ 69))
                                 (QREFELT $ 76) |x1|)
                                (QREFELT $ 89))
                      (QREFELT $ 90))
            (SPADCALL (SPADCALL |x2| |t| (QREFELT $ 88))
                      (SPADCALL |x1| |x2| |d2|) (QREFELT $ 90))
            (QREFELT $ 91))))))) 

(DEFUN |FSPECF;grad3| (|l| |t| |op| |d3| $)
  (PROG (|x3| |x2| |x1|)
    (RETURN
     (SEQ (LETT |x1| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;grad3|))
          (LETT |x2| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
          (LETT |x3| (SPADCALL |l| 3 (QREFELT $ 87)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL (SPADCALL |x1| |t| (QREFELT $ 88))
                       (SPADCALL (QREFELT $ 73)
                                 (LIST
                                  (SPADCALL |op|
                                            (LIST (QREFELT $ 76) |x2| |x3|)
                                            (QREFELT $ 69))
                                  (QREFELT $ 76) |x1|)
                                 (QREFELT $ 89))
                       (QREFELT $ 90))
             (SPADCALL (SPADCALL |x2| |t| (QREFELT $ 88))
                       (SPADCALL (QREFELT $ 73)
                                 (LIST
                                  (SPADCALL |op|
                                            (LIST |x1| (QREFELT $ 76) |x3|)
                                            (QREFELT $ 69))
                                  (QREFELT $ 76) |x2|)
                                 (QREFELT $ 89))
                       (QREFELT $ 90))
             (QREFELT $ 91))
            (SPADCALL (SPADCALL |x3| |t| (QREFELT $ 88))
                      (SPADCALL |x1| |x2| |x3| |d3|) (QREFELT $ 90))
            (QREFELT $ 91))))))) 

(DEFUN |FSPECF;whittakerM;4F;25| (|k| |m| |z| $)
  (SPADCALL (QREFELT $ 92) |k| |m| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eWhittakerM| (|k| |m| |z| $)
  (SPADCALL (QREFELT $ 92) (LIST |k| |m| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elWhittakerM| (|l| $)
  (|FSPECF;eWhittakerM| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eWhittakerMGradz| (|k| |m| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (QREFELT $ 79) (SPADCALL |k| |z| (QREFELT $ 97)) (QREFELT $ 98))
    (SPADCALL |k| |m| |z| (QREFELT $ 93)) (QREFELT $ 90))
   (SPADCALL
    (SPADCALL (SPADCALL (QREFELT $ 79) |k| (QREFELT $ 91)) |m| (QREFELT $ 91))
    (SPADCALL (SPADCALL |k| (|spadConstant| $ 63) (QREFELT $ 91)) |m| |z|
              (QREFELT $ 93))
    (QREFELT $ 90))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dWhittakerM| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 92)
   (CONS (|function| |FSPECF;eWhittakerMGradz|) $) $)) 

(DEFUN |FSPECF;whittakerW;4F;30| (|k| |m| |z| $)
  (SPADCALL (QREFELT $ 101) |k| |m| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eWhittakerW| (|k| |m| |z| $)
  (SPADCALL (QREFELT $ 101) (LIST |k| |m| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elWhittakerW| (|l| $)
  (|FSPECF;eWhittakerW| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eWhittakerWGradz| (|k| |m| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (QREFELT $ 79) (SPADCALL |k| |z| (QREFELT $ 97)) (QREFELT $ 98))
    (SPADCALL |k| |m| |z| (QREFELT $ 102)) (QREFELT $ 90))
   (SPADCALL (SPADCALL |k| (|spadConstant| $ 63) (QREFELT $ 91)) |m| |z|
             (QREFELT $ 102))
   (QREFELT $ 98))) 

(DEFUN |FSPECF;dWhittakerW| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 101)
   (CONS (|function| |FSPECF;eWhittakerWGradz|) $) $)) 

(DEFUN |FSPECF;angerJ;3F;35| (|v| |z| $)
  (SPADCALL (QREFELT $ 103) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eAngerJ| (|v| |z| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61))
    (SPADCALL
     (SPADCALL (SPADCALL |v| (SPADCALL (QREFELT $ 105)) (QREFELT $ 90))
               (QREFELT $ 106))
     (SPADCALL |v| (SPADCALL (QREFELT $ 105)) (QREFELT $ 90)) (QREFELT $ 97)))
   ('T (SPADCALL (QREFELT $ 103) (LIST |v| |z|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elAngerJ| (|l| $)
  (|FSPECF;eAngerJ| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eAngerJGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 104))
     (QREFELT $ 107))
    (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 104)) (QREFELT $ 90))
              |z| (QREFELT $ 97))
    (QREFELT $ 91))
   (SPADCALL
    (SPADCALL (SPADCALL |v| (SPADCALL (QREFELT $ 105)) (QREFELT $ 90))
              (QREFELT $ 106))
    (SPADCALL (SPADCALL (QREFELT $ 105)) |z| (QREFELT $ 90)) (QREFELT $ 97))
   (QREFELT $ 98))) 

(DEFUN |FSPECF;dAngerJ| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 103)
   (CONS (|function| |FSPECF;eAngerJGradz|) $) $)) 

(DEFUN |FSPECF;eeAngerJ| (|l| $) (SPADCALL (QREFELT $ 103) |l| (QREFELT $ 89))) 

(DEFUN |FSPECF;weberE;3F;41| (|v| |z| $)
  (SPADCALL (QREFELT $ 108) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eWeberE| (|v| |z| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61))
    (SPADCALL
     (SPADCALL 2
               (SPADCALL
                (SPADCALL
                 (SPADCALL (SPADCALL (QREFELT $ 79) |v| (QREFELT $ 90))
                           (SPADCALL (QREFELT $ 105)) (QREFELT $ 90))
                 (QREFELT $ 106))
                2 (QREFELT $ 110))
               (QREFELT $ 84))
     (SPADCALL |v| (SPADCALL (QREFELT $ 105)) (QREFELT $ 90)) (QREFELT $ 97)))
   ('T (SPADCALL (QREFELT $ 108) (LIST |v| |z|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elWeberE| (|l| $)
  (|FSPECF;eWeberE| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eWeberEGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 109))
     (QREFELT $ 107))
    (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 109)) (QREFELT $ 90))
              |z| (QREFELT $ 97))
    (QREFELT $ 91))
   (SPADCALL
    (SPADCALL (|spadConstant| $ 63)
              (SPADCALL
               (SPADCALL |v| (SPADCALL (QREFELT $ 105)) (QREFELT $ 90))
               (QREFELT $ 113))
              (QREFELT $ 98))
    (SPADCALL (SPADCALL (QREFELT $ 105)) |z| (QREFELT $ 90)) (QREFELT $ 97))
   (QREFELT $ 98))) 

(DEFUN |FSPECF;dWeberE| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 108)
   (CONS (|function| |FSPECF;eWeberEGradz|) $) $)) 

(DEFUN |FSPECF;eeWeberE| (|l| $) (SPADCALL (QREFELT $ 108) |l| (QREFELT $ 89))) 

(DEFUN |FSPECF;struveH;3F;47| (|v| |z| $)
  (SPADCALL (QREFELT $ 114) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eStruveH| (|v| |z| $)
  (SPADCALL (QREFELT $ 114) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elStruveH| (|l| $)
  (|FSPECF;eStruveH| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eStruveHGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 115))
     (QREFELT $ 107))
    (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 115)) (QREFELT $ 90))
              |z| (QREFELT $ 97))
    (QREFELT $ 91))
   (SPADCALL
    (SPADCALL (SPADCALL (QREFELT $ 79) |z| (QREFELT $ 90)) |v| (QREFELT $ 116))
    (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 105)) (QREFELT $ 117))
              (SPADCALL (SPADCALL |v| (QREFELT $ 86) (QREFELT $ 91))
                        (QREFELT $ 37))
              (QREFELT $ 90))
    (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dStruveH| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 114)
   (CONS (|function| |FSPECF;eStruveHGradz|) $) $)) 

(DEFUN |FSPECF;struveL;3F;52| (|v| |z| $)
  (SPADCALL (QREFELT $ 118) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eStruveL| (|v| |z| $)
  (SPADCALL (QREFELT $ 118) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elStruveL| (|l| $)
  (|FSPECF;eStruveL| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eStruveLGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
              (QREFELT $ 119))
    (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 119)) (QREFELT $ 90))
              |z| (QREFELT $ 97))
    (QREFELT $ 91))
   (SPADCALL
    (SPADCALL (SPADCALL (QREFELT $ 79) |z| (QREFELT $ 90)) |v| (QREFELT $ 116))
    (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 105)) (QREFELT $ 117))
              (SPADCALL (SPADCALL |v| (QREFELT $ 86) (QREFELT $ 91))
                        (QREFELT $ 37))
              (QREFELT $ 90))
    (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dStruveL| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 118)
   (CONS (|function| |FSPECF;eStruveLGradz|) $) $)) 

(DEFUN |FSPECF;hankelH1;3F;57| (|v| |z| $)
  (SPADCALL (QREFELT $ 120) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eHankelH1| (|v| |z| $)
  (SPADCALL (QREFELT $ 120) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elHankelH1| (|l| $)
  (|FSPECF;eHankelH1| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eHankelH1Gradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
              (QREFELT $ 121))
    (QREFELT $ 107))
   (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 121)) (QREFELT $ 90))
             |z| (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dHankelH1| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 120)
   (CONS (|function| |FSPECF;eHankelH1Gradz|) $) $)) 

(DEFUN |FSPECF;hankelH2;3F;62| (|v| |z| $)
  (SPADCALL (QREFELT $ 122) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eHankelH2| (|v| |z| $)
  (SPADCALL (QREFELT $ 122) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elHankelH2| (|l| $)
  (|FSPECF;eHankelH2| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eHankelH2Gradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
              (QREFELT $ 123))
    (QREFELT $ 107))
   (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 123)) (QREFELT $ 90))
             |z| (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dHankelH2| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 122)
   (CONS (|function| |FSPECF;eHankelH2Gradz|) $) $)) 

(DEFUN |FSPECF;lommelS1;4F;67| (|m| |v| |z| $)
  (SPADCALL (QREFELT $ 124) |m| |v| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eLommelS1| (|m| |v| |z| $)
  (SPADCALL (QREFELT $ 124) (LIST |m| |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elLommelS1| (|l| $)
  (|FSPECF;eLommelS1| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eLommelS1Gradz| (|m| |v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL
     (SPADCALL |v| (SPADCALL |m| |v| |z| (QREFELT $ 125)) (QREFELT $ 90)) |z|
     (QREFELT $ 97))
    (QREFELT $ 107))
   (SPADCALL
    (SPADCALL (SPADCALL |m| |v| (QREFELT $ 91)) (|spadConstant| $ 63)
              (QREFELT $ 98))
    (SPADCALL (SPADCALL |m| (|spadConstant| $ 63) (QREFELT $ 98))
              (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 98)) |z|
              (QREFELT $ 125))
    (QREFELT $ 90))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dLommelS1| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 124)
   (CONS (|function| |FSPECF;eLommelS1Gradz|) $) $)) 

(DEFUN |FSPECF;lommelS2;4F;72| (|mu| |nu| |z| $)
  (SPADCALL (QREFELT $ 126) |mu| |nu| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eLommelS2| (|mu| |nu| |z| $)
  (SPADCALL (QREFELT $ 126) (LIST |mu| |nu| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elLommelS2| (|l| $)
  (|FSPECF;eLommelS2| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eLommelS2Gradz| (|m| |v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL
     (SPADCALL |v| (SPADCALL |m| |v| |z| (QREFELT $ 127)) (QREFELT $ 90)) |z|
     (QREFELT $ 97))
    (QREFELT $ 107))
   (SPADCALL
    (SPADCALL (SPADCALL |m| |v| (QREFELT $ 91)) (|spadConstant| $ 63)
              (QREFELT $ 98))
    (SPADCALL (SPADCALL |m| (|spadConstant| $ 63) (QREFELT $ 98))
              (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 98)) |z|
              (QREFELT $ 127))
    (QREFELT $ 90))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dLommelS2| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 126)
   (CONS (|function| |FSPECF;eLommelS2Gradz|) $) $)) 

(DEFUN |FSPECF;kummerM;4F;77| (|mu| |nu| |z| $)
  (SPADCALL (QREFELT $ 128) |mu| |nu| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eKummerM| (|a| |b| |z| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61)) (|spadConstant| $ 63))
   ('T (SPADCALL (QREFELT $ 128) (LIST |a| |b| |z|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elKummerM| (|l| $)
  (|FSPECF;eKummerM| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eKummerMGradz| (|a| |b| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL (SPADCALL |z| |a| (QREFELT $ 91)) |b| (QREFELT $ 98))
              (SPADCALL |a| |b| |z| (QREFELT $ 129)) (QREFELT $ 90))
    (SPADCALL (SPADCALL |b| |a| (QREFELT $ 98))
              (SPADCALL (SPADCALL |a| (|spadConstant| $ 63) (QREFELT $ 98)) |b|
                        |z| (QREFELT $ 129))
              (QREFELT $ 90))
    (QREFELT $ 91))
   |z| (QREFELT $ 97))) 

(DEFUN |FSPECF;dKummerM| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 128)
   (CONS (|function| |FSPECF;eKummerMGradz|) $) $)) 

(DEFUN |FSPECF;kummerU;4F;82| (|a| |b| |z| $)
  (SPADCALL (QREFELT $ 130) |a| |b| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eKummerU| (|a| |b| |z| $)
  (SPADCALL (QREFELT $ 130) (LIST |a| |b| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elKummerU| (|l| $)
  (|FSPECF;eKummerU| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eKummerUGradz| (|a| |b| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL (SPADCALL |z| |a| (QREFELT $ 91)) |b| (QREFELT $ 98))
              (SPADCALL |a| |b| |z| (QREFELT $ 131)) (QREFELT $ 90))
    (SPADCALL (SPADCALL |a| (|spadConstant| $ 63) (QREFELT $ 98)) |b| |z|
              (QREFELT $ 131))
    (QREFELT $ 98))
   |z| (QREFELT $ 97))) 

(DEFUN |FSPECF;dKummerU| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 130)
   (CONS (|function| |FSPECF;eKummerUGradz|) $) $)) 

(DEFUN |FSPECF;legendreP;4F;87| (|nu| |mu| |z| $)
  (SPADCALL (QREFELT $ 132) |nu| |mu| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eLegendreP| (|nu| |mu| |z| $)
  (SPADCALL (QREFELT $ 132) (LIST |nu| |mu| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elLegendreP| (|l| $)
  (|FSPECF;eLegendreP| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eLegendrePGradz| (|nu| |mu| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL |nu| |mu| (QREFELT $ 98)) (|spadConstant| $ 63)
              (QREFELT $ 91))
    (SPADCALL (SPADCALL |nu| (|spadConstant| $ 63) (QREFELT $ 91)) |mu| |z|
              (QREFELT $ 133))
    (QREFELT $ 90))
   (SPADCALL
    (SPADCALL (SPADCALL |nu| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
              (QREFELT $ 90))
    (SPADCALL |nu| |mu| |z| (QREFELT $ 133)) (QREFELT $ 90))
   (QREFELT $ 98))) 

(DEFUN |FSPECF;dLegendreP| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 132)
   (CONS (|function| |FSPECF;eLegendrePGradz|) $) $)) 

(DEFUN |FSPECF;legendreQ;4F;92| (|nu| |mu| |z| $)
  (SPADCALL (QREFELT $ 134) |nu| |mu| |z| (QREFELT $ 53))) 

(DEFUN |FSPECF;eLegendreQ| (|nu| |mu| |z| $)
  (SPADCALL (QREFELT $ 134) (LIST |nu| |mu| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elLegendreQ| (|l| $)
  (|FSPECF;eLegendreQ| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eLegendreQGradz| (|nu| |mu| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (SPADCALL |nu| |mu| (QREFELT $ 98)) (|spadConstant| $ 63)
              (QREFELT $ 91))
    (SPADCALL (SPADCALL |nu| (|spadConstant| $ 63) (QREFELT $ 91)) |mu| |z|
              (QREFELT $ 135))
    (QREFELT $ 90))
   (SPADCALL
    (SPADCALL (SPADCALL |nu| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
              (QREFELT $ 90))
    (SPADCALL |nu| |mu| |z| (QREFELT $ 135)) (QREFELT $ 90))
   (QREFELT $ 98))) 

(DEFUN |FSPECF;dLegendreQ| (|l| |t| $)
  (|FSPECF;grad3| |l| |t| (QREFELT $ 134)
   (CONS (|function| |FSPECF;eLegendreQGradz|) $) $)) 

(DEFUN |FSPECF;kelvinBei;3F;97| (|v| |z| $)
  (SPADCALL (QREFELT $ 136) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eKelvinBei| (|v| |z| $)
  (SPADCALL (QREFELT $ 136) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elKelvinBei| (|l| $)
  (|FSPECF;eKelvinBei| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eKelvinBeiGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (QREFELT $ 79)
              (SPADCALL (SPADCALL 2 (QREFELT $ 65)) (QREFELT $ 117))
              (QREFELT $ 90))
    (SPADCALL
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 137))
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 138))
     (QREFELT $ 98))
    (QREFELT $ 90))
   (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 137)) (QREFELT $ 90))
             |z| (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dKelvinBei| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 136)
   (CONS (|function| |FSPECF;eKelvinBeiGradz|) $) $)) 

(DEFUN |FSPECF;kelvinBer;3F;102| (|v| |z| $)
  (SPADCALL (QREFELT $ 139) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eKelvinBer| (|v| |z| $)
  (SPADCALL (QREFELT $ 139) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elKelvinBer| (|l| $)
  (|FSPECF;eKelvinBer| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eKelvinBerGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (QREFELT $ 79)
              (SPADCALL (SPADCALL 2 (QREFELT $ 65)) (QREFELT $ 117))
              (QREFELT $ 90))
    (SPADCALL
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 138))
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 137))
     (QREFELT $ 91))
    (QREFELT $ 90))
   (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 138)) (QREFELT $ 90))
             |z| (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dKelvinBer| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 139)
   (CONS (|function| |FSPECF;eKelvinBerGradz|) $) $)) 

(DEFUN |FSPECF;kelvinKei;3F;107| (|v| |z| $)
  (SPADCALL (QREFELT $ 140) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eKelvinKei| (|v| |z| $)
  (SPADCALL (QREFELT $ 140) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elKelvinKei| (|l| $)
  (|FSPECF;eKelvinKei| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eKelvinKeiGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (QREFELT $ 79)
              (SPADCALL (SPADCALL 2 (QREFELT $ 65)) (QREFELT $ 117))
              (QREFELT $ 90))
    (SPADCALL
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 141))
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 142))
     (QREFELT $ 98))
    (QREFELT $ 90))
   (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 141)) (QREFELT $ 90))
             |z| (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dKelvinKei| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 140)
   (CONS (|function| |FSPECF;eKelvinKeiGradz|) $) $)) 

(DEFUN |FSPECF;kelvinKer;3F;112| (|v| |z| $)
  (SPADCALL (QREFELT $ 143) |v| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eKelvinKer| (|v| |z| $)
  (SPADCALL (QREFELT $ 143) (LIST |v| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elKelvinKer| (|l| $)
  (|FSPECF;eKelvinKer| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eKelvinKerGradz| (|v| |z| $)
  (SPADCALL
   (SPADCALL
    (SPADCALL (QREFELT $ 79)
              (SPADCALL (SPADCALL 2 (QREFELT $ 65)) (QREFELT $ 117))
              (QREFELT $ 90))
    (SPADCALL
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 142))
     (SPADCALL (SPADCALL |v| (|spadConstant| $ 63) (QREFELT $ 91)) |z|
               (QREFELT $ 141))
     (QREFELT $ 91))
    (QREFELT $ 90))
   (SPADCALL (SPADCALL |v| (SPADCALL |v| |z| (QREFELT $ 142)) (QREFELT $ 90))
             |z| (QREFELT $ 97))
   (QREFELT $ 91))) 

(DEFUN |FSPECF;dKelvinKer| (|l| |t| $)
  (|FSPECF;grad2| |l| |t| (QREFELT $ 143)
   (CONS (|function| |FSPECF;eKelvinKerGradz|) $) $)) 

(DEFUN |FSPECF;ellipticK;2F;117| (|m| $)
  (SPADCALL (QREFELT $ 144) |m| (QREFELT $ 35))) 

(DEFUN |FSPECF;eEllipticK| (|m| $)
  (SPADCALL (QREFELT $ 144) (LIST |m|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elEllipticK| (|l| $)
  (|FSPECF;eEllipticK| (SPADCALL |l| 1 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;dEllipticK| (|m| $)
  (SPADCALL
   (SPADCALL (QREFELT $ 79)
             (SPADCALL (SPADCALL |m| (QREFELT $ 146))
                       (SPADCALL
                        (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98))
                        (SPADCALL |m| (QREFELT $ 145)) (QREFELT $ 90))
                       (QREFELT $ 98))
             (QREFELT $ 90))
   (SPADCALL |m| (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98))
             (QREFELT $ 90))
   (QREFELT $ 97))) 

(DEFUN |FSPECF;ellipticE;2F;121| (|m| $)
  (SPADCALL (QREFELT $ 151) |m| (QREFELT $ 35))) 

(DEFUN |FSPECF;eEllipticE| (|m| $)
  (SPADCALL (QREFELT $ 151) (LIST |m|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elEllipticE| (|l| $)
  (|FSPECF;eEllipticE| (SPADCALL |l| 1 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;dEllipticE| (|m| $)
  (SPADCALL
   (SPADCALL (QREFELT $ 79)
             (SPADCALL (SPADCALL |m| (QREFELT $ 146))
                       (SPADCALL |m| (QREFELT $ 145)) (QREFELT $ 98))
             (QREFELT $ 90))
   |m| (QREFELT $ 97))) 

(DEFUN |FSPECF;ellipticE;3F;125| (|z| |m| $)
  (SPADCALL (QREFELT $ 152) |z| |m| (QREFELT $ 38))) 

(DEFUN |FSPECF;eEllipticE2| (|z| |m| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61)) (|spadConstant| $ 59))
   ((SPADCALL |z| (|spadConstant| $ 63) (QREFELT $ 61))
    (|FSPECF;eEllipticE| |m| $))
   ('T (SPADCALL (QREFELT $ 152) (LIST |z| |m|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elEllipticE2| (|l| $)
  (|FSPECF;eEllipticE2| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eEllipticE2Gradz| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87))
            . #1=(|FSPECF;eEllipticE2Gradz|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL
        (SPADCALL
         (SPADCALL (|spadConstant| $ 63)
                   (SPADCALL |m| (SPADCALL |z| 2 (QREFELT $ 154))
                             (QREFELT $ 90))
                   (QREFELT $ 98))
         (QREFELT $ 117))
        (SPADCALL
         (SPADCALL (|spadConstant| $ 63) (SPADCALL |z| 2 (QREFELT $ 154))
                   (QREFELT $ 98))
         (QREFELT $ 117))
        (QREFELT $ 97))))))) 

(DEFUN |FSPECF;eEllipticE2Gradm| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87))
            . #1=(|FSPECF;eEllipticE2Gradm|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL
        (SPADCALL (QREFELT $ 79)
                  (SPADCALL (SPADCALL |z| |m| (QREFELT $ 153))
                            (SPADCALL |z| |m| (QREFELT $ 155)) (QREFELT $ 98))
                  (QREFELT $ 90))
        |m| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;inEllipticE2| (|li| $)
  (SPADCALL (CONS (SPADCALL '|ellipticE| (QREFELT $ 159)) |li|)
            (QREFELT $ 160))) 

(DEFUN |FSPECF;ellipticF;3F;131| (|z| |m| $)
  (SPADCALL (QREFELT $ 163) |z| |m| (QREFELT $ 38))) 

(DEFUN |FSPECF;eEllipticF| (|z| |m| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61)) (|spadConstant| $ 59))
   ((SPADCALL |z| (|spadConstant| $ 63) (QREFELT $ 61))
    (SPADCALL |m| (QREFELT $ 145)))
   ('T (SPADCALL (QREFELT $ 163) (LIST |z| |m|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elEllipticF| (|l| $)
  (|FSPECF;eEllipticF| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eEllipticFGradz| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87))
            . #1=(|FSPECF;eEllipticFGradz|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL (|spadConstant| $ 63)
                 (SPADCALL
                  (SPADCALL
                   (SPADCALL (|spadConstant| $ 63)
                             (SPADCALL |m| (SPADCALL |z| 2 (QREFELT $ 154))
                                       (QREFELT $ 90))
                             (QREFELT $ 98))
                   (QREFELT $ 117))
                  (SPADCALL
                   (SPADCALL (|spadConstant| $ 63)
                             (SPADCALL |z| 2 (QREFELT $ 154)) (QREFELT $ 98))
                   (QREFELT $ 117))
                  (QREFELT $ 90))
                 (QREFELT $ 97))))))) 

(DEFUN |FSPECF;eEllipticFGradm| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87))
            . #1=(|FSPECF;eEllipticFGradm|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL
        (SPADCALL (QREFELT $ 79)
                  (SPADCALL
                   (SPADCALL
                    (SPADCALL (SPADCALL |z| |m| (QREFELT $ 153))
                              (SPADCALL
                               (SPADCALL (|spadConstant| $ 63) |m|
                                         (QREFELT $ 98))
                               (SPADCALL |z| |m| (QREFELT $ 155))
                               (QREFELT $ 90))
                              (QREFELT $ 98))
                    |m| (QREFELT $ 97))
                   (SPADCALL
                    (SPADCALL |z|
                              (SPADCALL
                               (SPADCALL (|spadConstant| $ 63)
                                         (SPADCALL |z| 2 (QREFELT $ 154))
                                         (QREFELT $ 98))
                               (QREFELT $ 117))
                              (QREFELT $ 90))
                    (SPADCALL
                     (SPADCALL (|spadConstant| $ 63)
                               (SPADCALL |m| (SPADCALL |z| 2 (QREFELT $ 154))
                                         (QREFELT $ 90))
                               (QREFELT $ 98))
                     (QREFELT $ 117))
                    (QREFELT $ 97))
                   (QREFELT $ 98))
                  (QREFELT $ 90))
        (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98)) (QREFELT $ 97))))))) 

(DEFUN |FSPECF;ellipticPi;4F;136| (|z| |n| |m| $)
  (SPADCALL (QREFELT $ 164) |z| |n| |m| (QREFELT $ 53))) 

(DEFUN |FSPECF;eEllipticPi| (|z| |n| |m| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61)) (|spadConstant| $ 59))
   ('T (SPADCALL (QREFELT $ 164) (LIST |z| |n| |m|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elEllipticPi| (|l| $)
  (|FSPECF;eEllipticPi| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eEllipticPiGradz| (|l| $)
  (PROG (|m| |n| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87))
            . #1=(|FSPECF;eEllipticPiGradz|))
      (LETT |n| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (LETT |m| (SPADCALL |l| 3 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL (|spadConstant| $ 63)
                 (SPADCALL
                  (SPADCALL
                   (SPADCALL (|spadConstant| $ 63)
                             (SPADCALL |n| (SPADCALL |z| 2 (QREFELT $ 154))
                                       (QREFELT $ 90))
                             (QREFELT $ 98))
                   (SPADCALL
                    (SPADCALL (|spadConstant| $ 63)
                              (SPADCALL |m| (SPADCALL |z| 2 (QREFELT $ 154))
                                        (QREFELT $ 90))
                              (QREFELT $ 98))
                    (QREFELT $ 117))
                   (QREFELT $ 90))
                  (SPADCALL
                   (SPADCALL (|spadConstant| $ 63)
                             (SPADCALL |z| 2 (QREFELT $ 154)) (QREFELT $ 98))
                   (QREFELT $ 117))
                  (QREFELT $ 90))
                 (QREFELT $ 97))))))) 

(DEFUN |FSPECF;eEllipticPiGradn| (|l| $)
  (PROG (|t4| |t3| |t2| |t1| |m| |n| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87))
            . #1=(|FSPECF;eEllipticPiGradn|))
      (LETT |n| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (LETT |m| (SPADCALL |l| 3 (QREFELT $ 87)) . #1#)
      (LETT |t1|
            (SPADCALL
             (SPADCALL
              (SPADCALL
               (SPADCALL (SPADCALL |n| 2 (QREFELT $ 154)) |m| (QREFELT $ 98))
               (SPADCALL |z| |n| |m| (QREFELT $ 165)) (QREFELT $ 90))
              (SPADCALL
               (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98))
                         (SPADCALL |n| |m| (QREFELT $ 98)) (QREFELT $ 90))
               |n| (QREFELT $ 90))
              (QREFELT $ 97))
             (QREFELT $ 107))
            . #1#)
      (LETT |t2|
            (SPADCALL (SPADCALL |z| |m| (QREFELT $ 155))
                      (SPADCALL
                       (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98)) |n|
                       (QREFELT $ 90))
                      (QREFELT $ 97))
            . #1#)
      (LETT |t3|
            (SPADCALL
             (SPADCALL (SPADCALL |z| |m| (QREFELT $ 153))
                       (SPADCALL
                        (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98))
                        (SPADCALL |n| |m| (QREFELT $ 98)) (QREFELT $ 90))
                       (QREFELT $ 97))
             (QREFELT $ 107))
            . #1#)
      (LETT |t4|
            (SPADCALL
             (SPADCALL
              (SPADCALL (SPADCALL |n| |z| (QREFELT $ 90))
                        (SPADCALL
                         (SPADCALL (|spadConstant| $ 63)
                                   (SPADCALL |m|
                                             (SPADCALL |z| 2 (QREFELT $ 154))
                                             (QREFELT $ 90))
                                   (QREFELT $ 98))
                         (QREFELT $ 117))
                        (QREFELT $ 90))
              (SPADCALL
               (SPADCALL (|spadConstant| $ 63) (SPADCALL |z| 2 (QREFELT $ 154))
                         (QREFELT $ 98))
               (QREFELT $ 117))
              (QREFELT $ 90))
             (SPADCALL
              (SPADCALL
               (SPADCALL (|spadConstant| $ 63)
                         (SPADCALL |n| (SPADCALL |z| 2 (QREFELT $ 154))
                                   (QREFELT $ 90))
                         (QREFELT $ 98))
               (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98))
               (QREFELT $ 90))
              (SPADCALL |n| |m| (QREFELT $ 98)) (QREFELT $ 90))
             (QREFELT $ 97))
            . #1#)
      (EXIT
       (SPADCALL (QREFELT $ 79)
                 (SPADCALL
                  (SPADCALL (SPADCALL |t1| |t2| (QREFELT $ 91)) |t3|
                            (QREFELT $ 91))
                  |t4| (QREFELT $ 91))
                 (QREFELT $ 90))))))) 

(DEFUN |FSPECF;eEllipticPiGradm| (|l| $)
  (PROG (|t2| |t1| |m| |n| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87))
            . #1=(|FSPECF;eEllipticPiGradm|))
      (LETT |n| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (LETT |m| (SPADCALL |l| 3 (QREFELT $ 87)) . #1#)
      (LETT |t1|
            (SPADCALL
             (SPADCALL (SPADCALL |m| |z| (QREFELT $ 90))
                       (SPADCALL
                        (SPADCALL (|spadConstant| $ 63)
                                  (SPADCALL |z| 2 (QREFELT $ 154))
                                  (QREFELT $ 98))
                        (QREFELT $ 117))
                       (QREFELT $ 90))
             (SPADCALL
              (SPADCALL (|spadConstant| $ 63)
                        (SPADCALL |m| (SPADCALL |z| 2 (QREFELT $ 154))
                                  (QREFELT $ 90))
                        (QREFELT $ 98))
              (QREFELT $ 117))
             (QREFELT $ 97))
            . #1#)
      (LETT |t2|
            (SPADCALL
             (SPADCALL
              (SPADCALL (SPADCALL |z| |m| (QREFELT $ 153)) (QREFELT $ 107))
              |t1| (QREFELT $ 91))
             (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98))
             (QREFELT $ 97))
            . #1#)
      (EXIT
       (SPADCALL
        (SPADCALL (QREFELT $ 79)
                  (SPADCALL (SPADCALL |z| |n| |m| (QREFELT $ 165)) |t2|
                            (QREFELT $ 91))
                  (QREFELT $ 90))
        (SPADCALL |n| |m| (QREFELT $ 98)) (QREFELT $ 97))))))) 

(DEFUN |FSPECF;jacobiSn;3F;142| (|z| |m| $)
  (SPADCALL (QREFELT $ 166) |z| |m| (QREFELT $ 38))) 

(DEFUN |FSPECF;eJacobiSn| (|z| |m| $)
  (PROG (#1=#:G2206 |args|)
    (RETURN
     (SEQ
      (EXIT
       (COND
        ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61))
         (|spadConstant| $ 59))
        ('T
         (SEQ
          (COND
           ((SPADCALL |z| (QREFELT $ 163) (QREFELT $ 168))
            (SEQ
             (LETT |args|
                   (SPADCALL (SPADCALL |z| (QREFELT $ 170)) (QREFELT $ 172))
                   . #2=(|FSPECF;eJacobiSn|))
             (EXIT
              (COND
               ((SPADCALL |m| (SPADCALL |args| 2 (QREFELT $ 87))
                          (QREFELT $ 61))
                (PROGN
                 (LETT #1# (SPADCALL |args| 1 (QREFELT $ 87)) . #2#)
                 (GO #1#))))))))
          (EXIT (SPADCALL (QREFELT $ 166) (LIST |z| |m|) (QREFELT $ 89)))))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;elJacobiSn| (|l| $)
  (|FSPECF;eJacobiSn| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;jacobiGradHelper| (|z| |m| $)
  (SPADCALL
   (SPADCALL |z|
             (SPADCALL
              (SPADCALL (SPADCALL |z| |m| (QREFELT $ 167)) |m| (QREFELT $ 153))
              (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98))
              (QREFELT $ 97))
             (QREFELT $ 98))
   |m| (QREFELT $ 97))) 

(DEFUN |FSPECF;eJacobiSnGradz| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;eJacobiSnGradz|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL (SPADCALL |z| |m| (QREFELT $ 173))
                 (SPADCALL |z| |m| (QREFELT $ 174)) (QREFELT $ 90))))))) 

(DEFUN |FSPECF;eJacobiSnGradm| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;eJacobiSnGradm|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL (QREFELT $ 79)
                 (SPADCALL
                  (SPADCALL (|FSPECF;eJacobiSnGradz| |l| $)
                            (|FSPECF;jacobiGradHelper| |z| |m| $)
                            (QREFELT $ 90))
                  (SPADCALL
                   (SPADCALL (SPADCALL |z| |m| (QREFELT $ 167))
                             (SPADCALL (SPADCALL |z| |m| (QREFELT $ 173)) 2
                                       (QREFELT $ 110))
                             (QREFELT $ 90))
                   (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98))
                   (QREFELT $ 97))
                  (QREFELT $ 91))
                 (QREFELT $ 90))))))) 

(DEFUN |FSPECF;jacobiCn;3F;148| (|z| |m| $)
  (SPADCALL (QREFELT $ 175) |z| |m| (QREFELT $ 38))) 

(DEFUN |FSPECF;eJacobiCn| (|z| |m| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61)) (|spadConstant| $ 63))
   ('T (SPADCALL (QREFELT $ 175) (LIST |z| |m|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elJacobiCn| (|l| $)
  (|FSPECF;eJacobiCn| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eJacobiCnGradz| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;eJacobiCnGradz|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL
        (SPADCALL (SPADCALL |z| |m| (QREFELT $ 167))
                  (SPADCALL |z| |m| (QREFELT $ 174)) (QREFELT $ 90))
        (QREFELT $ 107))))))) 

(DEFUN |FSPECF;eJacobiCnGradm| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;eJacobiCnGradm|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL (QREFELT $ 79)
                 (SPADCALL
                  (SPADCALL (|FSPECF;eJacobiCnGradz| |l| $)
                            (|FSPECF;jacobiGradHelper| |z| |m| $)
                            (QREFELT $ 90))
                  (SPADCALL
                   (SPADCALL
                    (SPADCALL (SPADCALL |z| |m| (QREFELT $ 167)) 2
                              (QREFELT $ 110))
                    (SPADCALL |z| |m| (QREFELT $ 173)) (QREFELT $ 90))
                   (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98))
                   (QREFELT $ 97))
                  (QREFELT $ 98))
                 (QREFELT $ 90))))))) 

(DEFUN |FSPECF;jacobiDn;3F;153| (|z| |m| $)
  (SPADCALL (QREFELT $ 176) |z| |m| (QREFELT $ 38))) 

(DEFUN |FSPECF;eJacobiDn| (|z| |m| $)
  (COND
   ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61)) (|spadConstant| $ 63))
   ('T (SPADCALL (QREFELT $ 176) (LIST |z| |m|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elJacobiDn| (|l| $)
  (|FSPECF;eJacobiDn| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;eJacobiDnGradz| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;eJacobiDnGradz|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL
        (SPADCALL
         (SPADCALL |m| (SPADCALL |z| |m| (QREFELT $ 167)) (QREFELT $ 90))
         (SPADCALL |z| |m| (QREFELT $ 173)) (QREFELT $ 90))
        (QREFELT $ 107))))))) 

(DEFUN |FSPECF;eJacobiDnGradm| (|l| $)
  (PROG (|m| |z|)
    (RETURN
     (SEQ
      (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;eJacobiDnGradm|))
      (LETT |m| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
      (EXIT
       (SPADCALL (QREFELT $ 79)
                 (SPADCALL
                  (SPADCALL (|FSPECF;eJacobiDnGradz| |l| $)
                            (|FSPECF;jacobiGradHelper| |z| |m| $)
                            (QREFELT $ 90))
                  (SPADCALL
                   (SPADCALL
                    (SPADCALL (SPADCALL |z| |m| (QREFELT $ 167)) 2
                              (QREFELT $ 110))
                    (SPADCALL |z| |m| (QREFELT $ 174)) (QREFELT $ 90))
                   (SPADCALL (|spadConstant| $ 63) |m| (QREFELT $ 98))
                   (QREFELT $ 97))
                  (QREFELT $ 98))
                 (QREFELT $ 90))))))) 

(DEFUN |FSPECF;jacobiTheta;3F;158| (|q| |z| $)
  (SPADCALL (QREFELT $ 177) |q| |z| (QREFELT $ 38))) 

(DEFUN |FSPECF;eJacobiTheta| (|q| |z| $)
  (SPADCALL (QREFELT $ 177) (LIST |q| |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elJacobiTheta| (|l| $)
  (|FSPECF;eJacobiTheta| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;lerchPhi;4F;161| (|z| |s| |a| $)
  (SPADCALL (QREFELT $ 179) |z| |s| |a| (QREFELT $ 53))) 

(DEFUN |FSPECF;eLerchPhi| (|z| |s| |a| $)
  (COND
   ((SPADCALL |a| (|spadConstant| $ 63) (QREFELT $ 61))
    (SPADCALL (SPADCALL |s| |z| (QREFELT $ 52)) |z| (QREFELT $ 97)))
   ('T (SPADCALL (QREFELT $ 179) (LIST |a| |s| |z|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;elLerchPhi| (|l| $)
  (|FSPECF;eLerchPhi| (SPADCALL |l| 1 (QREFELT $ 87))
   (SPADCALL |l| 2 (QREFELT $ 87)) (SPADCALL |l| 3 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;dLerchPhi| (|l| |t| $)
  (PROG (|da| |dz| |a| |s| |z|)
    (RETURN
     (SEQ (LETT |z| (SPADCALL |l| 1 (QREFELT $ 87)) . #1=(|FSPECF;dLerchPhi|))
          (LETT |s| (SPADCALL |l| 2 (QREFELT $ 87)) . #1#)
          (LETT |a| (SPADCALL |l| 3 (QREFELT $ 87)) . #1#)
          (LETT |dz|
                (SPADCALL
                 (SPADCALL (SPADCALL |z| |t| (QREFELT $ 88))
                           (SPADCALL
                            (SPADCALL |z|
                                      (SPADCALL |s| (|spadConstant| $ 63)
                                                (QREFELT $ 98))
                                      |a| (QREFELT $ 180))
                            (SPADCALL |a|
                                      (SPADCALL |z| |s| |a| (QREFELT $ 180))
                                      (QREFELT $ 90))
                            (QREFELT $ 98))
                           (QREFELT $ 90))
                 |z| (QREFELT $ 97))
                . #1#)
          (LETT |da|
                (SPADCALL
                 (SPADCALL
                  (SPADCALL (SPADCALL |a| |t| (QREFELT $ 88)) |s|
                            (QREFELT $ 90))
                  (SPADCALL |z|
                            (SPADCALL |s| (|spadConstant| $ 63) (QREFELT $ 91))
                            |a| (QREFELT $ 180))
                  (QREFELT $ 90))
                 (QREFELT $ 107))
                . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL (SPADCALL |s| |t| (QREFELT $ 88))
                       (SPADCALL (QREFELT $ 73)
                                 (LIST
                                  (SPADCALL (QREFELT $ 179)
                                            (LIST |z| (QREFELT $ 76) |a|)
                                            (QREFELT $ 69))
                                  (QREFELT $ 76) |s|)
                                 (QREFELT $ 89))
                       (QREFELT $ 90))
             |dz| (QREFELT $ 91))
            |da| (QREFELT $ 91))))))) 

(DEFUN |FSPECF;riemannZeta;2F;165| (|z| $)
  (SPADCALL (QREFELT $ 181) |z| (QREFELT $ 35))) 

(DEFUN |FSPECF;eRiemannZeta| (|z| $)
  (SPADCALL (QREFELT $ 181) (LIST |z|) (QREFELT $ 89))) 

(DEFUN |FSPECF;elRiemannZeta| (|l| $)
  (|FSPECF;eRiemannZeta| (SPADCALL |l| 1 (QREFELT $ 87)) $)) 

(DEFUN |FSPECF;belong?;BoB;168| (|op| $)
  (SPADCALL |op| (QREFELT $ 8) (QREFELT $ 183))) 

(DEFUN |FSPECF;operator;2Bo;169| (|op| $)
  (COND ((SPADCALL |op| '|abs| (QREFELT $ 185)) (QREFELT $ 13))
        ((SPADCALL |op| '|Gamma| (QREFELT $ 185)) (QREFELT $ 14))
        ((SPADCALL |op| '|Gamma2| (QREFELT $ 185)) (QREFELT $ 15))
        ((SPADCALL |op| '|Beta| (QREFELT $ 185)) (QREFELT $ 16))
        ((SPADCALL |op| '|digamma| (QREFELT $ 185)) (QREFELT $ 17))
        ((SPADCALL |op| '|polygamma| (QREFELT $ 185)) (QREFELT $ 18))
        ((SPADCALL |op| '|besselJ| (QREFELT $ 185)) (QREFELT $ 19))
        ((SPADCALL |op| '|besselY| (QREFELT $ 185)) (QREFELT $ 20))
        ((SPADCALL |op| '|besselI| (QREFELT $ 185)) (QREFELT $ 21))
        ((SPADCALL |op| '|besselK| (QREFELT $ 185)) (QREFELT $ 22))
        ((SPADCALL |op| '|airyAi| (QREFELT $ 185)) (QREFELT $ 23))
        ((SPADCALL |op| '|airyAiPrime| (QREFELT $ 185)) (QREFELT $ 24))
        ((SPADCALL |op| '|airyBi| (QREFELT $ 185)) (QREFELT $ 25))
        ((SPADCALL |op| '|airyBiPrime| (QREFELT $ 185)) (QREFELT $ 26))
        ((SPADCALL |op| '|lambertW| (QREFELT $ 185)) (QREFELT $ 27))
        ((SPADCALL |op| '|polylog| (QREFELT $ 185)) (QREFELT $ 28))
        ((SPADCALL |op| '|weierstrassP| (QREFELT $ 185)) (QREFELT $ 29))
        ((SPADCALL |op| '|weierstrassPPrime| (QREFELT $ 185)) (QREFELT $ 30))
        ((SPADCALL |op| '|weierstrassSigma| (QREFELT $ 185)) (QREFELT $ 31))
        ((SPADCALL |op| '|weierstrassZeta| (QREFELT $ 185)) (QREFELT $ 32))
        ((SPADCALL |op| '|hypergeometricF| (QREFELT $ 185)) (QREFELT $ 33))
        ((SPADCALL |op| '|meijerG| (QREFELT $ 185)) (QREFELT $ 34))
        ((SPADCALL |op| '|whittakerM| (QREFELT $ 185)) (QREFELT $ 92))
        ((SPADCALL |op| '|whittakerW| (QREFELT $ 185)) (QREFELT $ 101))
        ((SPADCALL |op| '|angerJ| (QREFELT $ 185)) (QREFELT $ 103))
        ((SPADCALL |op| '|weberE| (QREFELT $ 185)) (QREFELT $ 108))
        ((SPADCALL |op| '|struveH| (QREFELT $ 185)) (QREFELT $ 114))
        ((SPADCALL |op| '|struveL| (QREFELT $ 185)) (QREFELT $ 118))
        ((SPADCALL |op| '|hankelH1| (QREFELT $ 185)) (QREFELT $ 120))
        ((SPADCALL |op| '|hankelH2| (QREFELT $ 185)) (QREFELT $ 122))
        ((SPADCALL |op| '|lommelS1| (QREFELT $ 185)) (QREFELT $ 124))
        ((SPADCALL |op| '|lommelS2| (QREFELT $ 185)) (QREFELT $ 126))
        ((SPADCALL |op| '|kummerM| (QREFELT $ 185)) (QREFELT $ 128))
        ((SPADCALL |op| '|kummerU| (QREFELT $ 185)) (QREFELT $ 130))
        ((SPADCALL |op| '|legendreP| (QREFELT $ 185)) (QREFELT $ 132))
        ((SPADCALL |op| '|legendreQ| (QREFELT $ 185)) (QREFELT $ 134))
        ((SPADCALL |op| '|kelvinBei| (QREFELT $ 185)) (QREFELT $ 136))
        ((SPADCALL |op| '|kelvinBer| (QREFELT $ 185)) (QREFELT $ 139))
        ((SPADCALL |op| '|kelvinKei| (QREFELT $ 185)) (QREFELT $ 140))
        ((SPADCALL |op| '|kelvinKer| (QREFELT $ 185)) (QREFELT $ 143))
        ((SPADCALL |op| '|ellipticK| (QREFELT $ 185)) (QREFELT $ 144))
        ((SPADCALL |op| '|ellipticE| (QREFELT $ 185)) (QREFELT $ 151))
        ((SPADCALL |op| '|ellipticE2| (QREFELT $ 185)) (QREFELT $ 152))
        ((SPADCALL |op| '|ellipticF| (QREFELT $ 185)) (QREFELT $ 163))
        ((SPADCALL |op| '|ellipticPi| (QREFELT $ 185)) (QREFELT $ 164))
        ((SPADCALL |op| '|jacobiSn| (QREFELT $ 185)) (QREFELT $ 166))
        ((SPADCALL |op| '|jacobiCn| (QREFELT $ 185)) (QREFELT $ 175))
        ((SPADCALL |op| '|jacobiDn| (QREFELT $ 185)) (QREFELT $ 176))
        ((SPADCALL |op| '|jacobiTheta| (QREFELT $ 185)) (QREFELT $ 177))
        ((SPADCALL |op| '|lerchPhi| (QREFELT $ 185)) (QREFELT $ 179))
        ((SPADCALL |op| '|riemannZeta| (QREFELT $ 185)) (QREFELT $ 181))
        ('T (|error| "Not a special operator")))) 

(DEFUN |FSPECF;iGamma| (|x| $)
  (COND ((SPADCALL |x| (|spadConstant| $ 63) (QREFELT $ 61)) |x|)
        ('T (SPADCALL (QREFELT $ 14) |x| (QREFELT $ 187))))) 

(DEFUN |FSPECF;iabs| (|x| $)
  (COND ((SPADCALL |x| (QREFELT $ 188)) (|spadConstant| $ 59))
        ((SPADCALL |x| (QREFELT $ 13) (QREFELT $ 168)) |x|)
        ((SPADCALL |x| (|spadConstant| $ 59) (QREFELT $ 189))
         (SPADCALL (QREFELT $ 13) (SPADCALL |x| (QREFELT $ 107))
                   (QREFELT $ 187)))
        ('T (SPADCALL (QREFELT $ 13) |x| (QREFELT $ 187))))) 

(DEFUN |FSPECF;iBeta| (|x| |y| $)
  (SPADCALL (QREFELT $ 16) (LIST |x| |y|) (QREFELT $ 89))) 

(DEFUN |FSPECF;idigamma| (|x| $) (SPADCALL (QREFELT $ 17) |x| (QREFELT $ 187))) 

(DEFUN |FSPECF;iiipolygamma| (|n| |x| $)
  (SPADCALL (QREFELT $ 18) (LIST |n| |x|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iiiBesselJ| (|x| |y| $)
  (SPADCALL (QREFELT $ 19) (LIST |x| |y|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iiiBesselY| (|x| |y| $)
  (SPADCALL (QREFELT $ 20) (LIST |x| |y|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iiiBesselI| (|x| |y| $)
  (SPADCALL (QREFELT $ 21) (LIST |x| |y|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iiiBesselK| (|x| |y| $)
  (SPADCALL (QREFELT $ 22) (LIST |x| |y|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iAiryAi;2F;179| (|x| $)
  (COND
   ((SPADCALL |x| (QREFELT $ 188))
    (SPADCALL (|spadConstant| $ 63)
              (SPADCALL
               (SPADCALL (SPADCALL 3 (QREFELT $ 65)) (QREFELT $ 85)
                         (QREFELT $ 116))
               (SPADCALL (QREFELT $ 85) (QREFELT $ 37)) (QREFELT $ 90))
              (QREFELT $ 97)))
   ('T (SPADCALL (QREFELT $ 23) |x| (QREFELT $ 187))))) 

(DEFUN |FSPECF;iAiryAiPrime;2F;180| (|x| $)
  (COND
   ((SPADCALL |x| (QREFELT $ 188))
    (SPADCALL
     (SPADCALL (|spadConstant| $ 63)
               (SPADCALL
                (SPADCALL (SPADCALL 3 (QREFELT $ 65)) (QREFELT $ 80)
                          (QREFELT $ 116))
                (SPADCALL (QREFELT $ 80) (QREFELT $ 37)) (QREFELT $ 90))
               (QREFELT $ 97))
     (QREFELT $ 107)))
   ('T (SPADCALL (QREFELT $ 24) |x| (QREFELT $ 187))))) 

(DEFUN |FSPECF;iAiryBi;2F;181| (|x| $)
  (COND
   ((SPADCALL |x| (QREFELT $ 188))
    (SPADCALL (|spadConstant| $ 63)
              (SPADCALL
               (SPADCALL (SPADCALL 3 (QREFELT $ 65)) (QREFELT $ 82)
                         (QREFELT $ 116))
               (SPADCALL (QREFELT $ 85) (QREFELT $ 37)) (QREFELT $ 90))
              (QREFELT $ 97)))
   ('T (SPADCALL (QREFELT $ 25) |x| (QREFELT $ 187))))) 

(DEFUN |FSPECF;iAiryBiPrime;2F;182| (|x| $)
  (COND
   ((SPADCALL |x| (QREFELT $ 188))
    (SPADCALL
     (SPADCALL (SPADCALL 3 (QREFELT $ 65)) (QREFELT $ 82) (QREFELT $ 116))
     (SPADCALL (QREFELT $ 80) (QREFELT $ 37)) (QREFELT $ 97)))
   ('T (SPADCALL (QREFELT $ 26) |x| (QREFELT $ 187))))) 

(DEFUN |FSPECF;iAiryAi;2F;183| (|x| $)
  (SPADCALL (QREFELT $ 23) |x| (QREFELT $ 187))) 

(DEFUN |FSPECF;iAiryAiPrime;2F;184| (|x| $)
  (SPADCALL (QREFELT $ 24) |x| (QREFELT $ 187))) 

(DEFUN |FSPECF;iAiryBi;2F;185| (|x| $)
  (SPADCALL (QREFELT $ 25) |x| (QREFELT $ 187))) 

(DEFUN |FSPECF;iAiryBiPrime;2F;186| (|x| $)
  (SPADCALL (QREFELT $ 26) |x| (QREFELT $ 187))) 

(DEFUN |FSPECF;iLambertW| (|x| $)
  (COND ((SPADCALL |x| (QREFELT $ 188)) (|spadConstant| $ 59))
        ('T (SPADCALL (QREFELT $ 27) |x| (QREFELT $ 187))))) 

(DEFUN |FSPECF;iiPolylog;3F;188| (|s| |x| $)
  (COND
   ((SPADCALL |s| (|spadConstant| $ 63) (QREFELT $ 61))
    (SPADCALL
     (SPADCALL (SPADCALL (|spadConstant| $ 63) |x| (QREFELT $ 98))
               (QREFELT $ 194))
     (QREFELT $ 107)))
   ((SPADCALL |s| (SPADCALL 2 (QREFELT $ 65)) (QREFELT $ 61))
    (SPADCALL (SPADCALL (|spadConstant| $ 63) |x| (QREFELT $ 98))
              (QREFELT $ 195)))
   ('T (SPADCALL (QREFELT $ 28) (LIST |s| |x|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;iiPolylog;3F;189| (|s| |x| $)
  (COND
   ((SPADCALL |s| (|spadConstant| $ 63) (QREFELT $ 61))
    (SPADCALL
     (SPADCALL (SPADCALL (|spadConstant| $ 63) |x| (QREFELT $ 98))
               (QREFELT $ 194))
     (QREFELT $ 107)))
   ('T (SPADCALL (QREFELT $ 28) (LIST |s| |x|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;iiPolylog;3F;190| (|s| |x| $)
  (SPADCALL (QREFELT $ 28) (LIST |s| |x|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iPolylog| (|l| $)
  (SPADCALL (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197)) (QREFELT $ 196))) 

(DEFUN |FSPECF;iWeierstrassP| (|g2| |g3| |x| $)
  (SPADCALL (QREFELT $ 29) (LIST |g2| |g3| |x|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iWeierstrassPPrime| (|g2| |g3| |x| $)
  (SPADCALL (QREFELT $ 30) (LIST |g2| |g3| |x|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iWeierstrassSigma| (|g2| |g3| |x| $)
  (COND
   ((SPADCALL |x| (|spadConstant| $ 59) (QREFELT $ 61)) (|spadConstant| $ 59))
   ('T (SPADCALL (QREFELT $ 31) (LIST |g2| |g3| |x|) (QREFELT $ 89))))) 

(DEFUN |FSPECF;iWeierstrassZeta| (|g2| |g3| |x| $)
  (SPADCALL (QREFELT $ 32) (LIST |g2| |g3| |x|) (QREFELT $ 89))) 

(DEFUN |FSPECF;iiabs;2F;196| (|x| $)
  (PROG (#1=#:G2444 |b| |a| |f| |r|)
    (RETURN
     (SEQ
      (LETT |r| (SPADCALL |x| (QREFELT $ 199)) . #2=(|FSPECF;iiabs;2F;196|))
      (EXIT
       (COND ((QEQCAR |r| 1) (|FSPECF;iabs| |x| $))
             (#3='T
              (SEQ
               (EXIT
                (SEQ (LETT |f| (QCDR |r|) . #2#)
                     (SEQ
                      (LETT |a|
                            (SPADCALL (SPADCALL |f| (QREFELT $ 202))
                                      (QREFELT $ 204))
                            . #2#)
                      (EXIT
                       (COND
                        ((QEQCAR |a| 1)
                         (PROGN
                          (LETT #1# (|FSPECF;iabs| |x| $) . #2#)
                          (GO #1#)))
                        (#3#
                         (SEQ
                          (LETT |b|
                                (SPADCALL (SPADCALL |f| (QREFELT $ 205))
                                          (QREFELT $ 204))
                                . #2#)
                          (EXIT
                           (COND
                            ((QEQCAR |b| 1)
                             (PROGN
                              (LETT #1# (|FSPECF;iabs| |x| $) . #2#)
                              (GO #1#))))))))))
                     (EXIT
                      (SPADCALL
                       (SPADCALL (SPADCALL (QCDR |a|) (QREFELT $ 206))
                                 (QREFELT $ 207))
                       (SPADCALL (SPADCALL (QCDR |b|) (QREFELT $ 206))
                                 (QREFELT $ 207))
                       (QREFELT $ 97)))))
               #1# (EXIT #1#))))))))) 

(DEFUN |FSPECF;iiabs;2F;197| (|x| $) (|FSPECF;iabs| |x| $)) 

(DEFUN |FSPECF;iiGamma;2F;198| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 209)) |FSPECF;iiGamma;2F;198|)
          (EXIT
           (COND ((QEQCAR |r| 1) (|FSPECF;iGamma| |x| $))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 210))
                            (QREFELT $ 207))))))))) 

(DEFUN |FSPECF;iiBeta;LF;199| (|l| $)
  (PROG (#1=#:G2458 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 209))
               . #2=(|FSPECF;iiBeta;LF;199|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iBeta| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 197)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s|
                   (SPADCALL (SPADCALL |l| (QREFELT $ 197)) (QREFELT $ 209))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iBeta| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 197)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 212))
                   (QREFELT $ 207)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iidigamma;2F;200| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 209)) |FSPECF;iidigamma;2F;200|)
          (EXIT
           (COND ((QEQCAR |r| 1) (|FSPECF;idigamma| |x| $))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 214))
                            (QREFELT $ 207))))))))) 

(DEFUN |FSPECF;iipolygamma;LF;201| (|l| $)
  (PROG (#1=#:G2470 |r| |s|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |s| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 209))
               . #2=(|FSPECF;iipolygamma;LF;201|))
         (EXIT
          (COND
           ((QEQCAR |s| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiipolygamma| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 197)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |r|
                   (SPADCALL (SPADCALL |l| (QREFELT $ 197)) (QREFELT $ 209))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |r| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiipolygamma| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 197)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |s|) (QCDR |r|) (QREFELT $ 216))
                   (QREFELT $ 207)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselJ;LF;202| (|l| $)
  (PROG (#1=#:G2477 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 209))
               . #2=(|FSPECF;iiBesselJ;LF;202|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselJ| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 197)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s|
                   (SPADCALL (SPADCALL |l| (QREFELT $ 197)) (QREFELT $ 209))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselJ| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 197)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 218))
                   (QREFELT $ 207)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselY;LF;203| (|l| $)
  (PROG (#1=#:G2484 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 209))
               . #2=(|FSPECF;iiBesselY;LF;203|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselY| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 197)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s|
                   (SPADCALL (SPADCALL |l| (QREFELT $ 197)) (QREFELT $ 209))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselY| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 197)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 220))
                   (QREFELT $ 207)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselI;LF;204| (|l| $)
  (PROG (#1=#:G2491 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 209))
               . #2=(|FSPECF;iiBesselI;LF;204|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselI| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 197)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s|
                   (SPADCALL (SPADCALL |l| (QREFELT $ 197)) (QREFELT $ 209))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselI| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 197)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 222))
                   (QREFELT $ 207)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiBesselK;LF;205| (|l| $)
  (PROG (#1=#:G2498 |s| |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 209))
               . #2=(|FSPECF;iiBesselK;LF;205|))
         (EXIT
          (COND
           ((QEQCAR |r| 1)
            (PROGN
             (LETT #1#
                   (|FSPECF;iiiBesselK| (|SPADfirst| |l|)
                    (SPADCALL |l| (QREFELT $ 197)) $)
                   . #2#)
             (GO #1#)))
           ('T
            (SEQ
             (LETT |s|
                   (SPADCALL (SPADCALL |l| (QREFELT $ 197)) (QREFELT $ 209))
                   . #2#)
             (EXIT
              (COND
               ((QEQCAR |s| 1)
                (PROGN
                 (LETT #1#
                       (|FSPECF;iiiBesselK| (|SPADfirst| |l|)
                        (SPADCALL |l| (QREFELT $ 197)) $)
                       . #2#)
                 (GO #1#))))))))))
        (EXIT
         (SPADCALL (SPADCALL (QCDR |r|) (QCDR |s|) (QREFELT $ 224))
                   (QREFELT $ 207)))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiAiryAi;2F;206| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 209)) |FSPECF;iiAiryAi;2F;206|)
          (EXIT
           (COND ((QEQCAR |r| 1) (SPADCALL |x| (QREFELT $ 190)))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 226))
                            (QREFELT $ 207))))))))) 

(DEFUN |FSPECF;iiAiryAiPrime;2F;207| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ
      (LETT |r| (SPADCALL |x| (QREFELT $ 209)) |FSPECF;iiAiryAiPrime;2F;207|)
      (EXIT
       (COND ((QEQCAR |r| 1) (SPADCALL |x| (QREFELT $ 191)))
             ('T
              (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 228))
                        (QREFELT $ 207))))))))) 

(DEFUN |FSPECF;iiAiryBi;2F;208| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 209)) |FSPECF;iiAiryBi;2F;208|)
          (EXIT
           (COND ((QEQCAR |r| 1) (SPADCALL |x| (QREFELT $ 192)))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 230))
                            (QREFELT $ 207))))))))) 

(DEFUN |FSPECF;iiAiryBi;2F;209| (|x| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (SPADCALL |x| (QREFELT $ 209)) |FSPECF;iiAiryBi;2F;209|)
          (EXIT
           (COND ((QEQCAR |r| 1) (SPADCALL |x| (QREFELT $ 193)))
                 ('T
                  (SPADCALL (SPADCALL (QCDR |r|) (QREFELT $ 232))
                            (QREFELT $ 207))))))))) 

(DEFUN |FSPECF;iiGamma;2F;210| (|x| $)
  (PROG (#1=#:G2527 |r|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (LETT |r| (SPADCALL |x| (QREFELT $ 234))
               . #2=(|FSPECF;iiGamma;2F;210|))
         (EXIT
          (COND
           ((QEQCAR |r| 0)
            (COND
             ((NULL (< (QCDR |r|) 1))
              (PROGN
               (LETT #1#
                     (SPADCALL (SPADCALL (- (QCDR |r|) 1) (QREFELT $ 235))
                               (QREFELT $ 65))
                     . #2#)
               (GO #1#))))))))
        (EXIT (|FSPECF;iGamma| |x| $))))
      #1# (EXIT #1#))))) 

(DEFUN |FSPECF;iiGamma;2F;211| (|x| $) (|FSPECF;iGamma| |x| $)) 

(DEFUN |FSPECF;iiBeta;LF;212| (|l| $)
  (|FSPECF;iBeta| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197)) $)) 

(DEFUN |FSPECF;iidigamma;2F;213| (|x| $) (|FSPECF;idigamma| |x| $)) 

(DEFUN |FSPECF;iipolygamma;LF;214| (|l| $)
  (|FSPECF;iiipolygamma| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197)) $)) 

(DEFUN |FSPECF;iiBesselJ;LF;215| (|l| $)
  (|FSPECF;iiiBesselJ| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197)) $)) 

(DEFUN |FSPECF;iiBesselY;LF;216| (|l| $)
  (|FSPECF;iiiBesselY| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197)) $)) 

(DEFUN |FSPECF;iiBesselI;LF;217| (|l| $)
  (|FSPECF;iiiBesselI| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197)) $)) 

(DEFUN |FSPECF;iiBesselK;LF;218| (|l| $)
  (|FSPECF;iiiBesselK| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197)) $)) 

(DEFUN |FSPECF;iiAiryAi;2F;219| (|x| $) (SPADCALL |x| (QREFELT $ 190))) 

(DEFUN |FSPECF;iiAiryAiPrime;2F;220| (|x| $) (SPADCALL |x| (QREFELT $ 191))) 

(DEFUN |FSPECF;iiAiryBi;2F;221| (|x| $) (SPADCALL |x| (QREFELT $ 192))) 

(DEFUN |FSPECF;iiAiryBiPrime;2F;222| (|x| $) (SPADCALL |x| (QREFELT $ 193))) 

(DEFUN |FSPECF;iiWeierstrassP| (|l| $)
  (|FSPECF;iWeierstrassP| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197))
   (SPADCALL |l| (QREFELT $ 237)) $)) 

(DEFUN |FSPECF;iiWeierstrassPPrime| (|l| $)
  (|FSPECF;iWeierstrassPPrime| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197))
   (SPADCALL |l| (QREFELT $ 237)) $)) 

(DEFUN |FSPECF;iiWeierstrassSigma| (|l| $)
  (|FSPECF;iWeierstrassSigma| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197))
   (SPADCALL |l| (QREFELT $ 237)) $)) 

(DEFUN |FSPECF;iiWeierstrassZeta| (|l| $)
  (|FSPECF;iWeierstrassZeta| (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197))
   (SPADCALL |l| (QREFELT $ 237)) $)) 

(DEFUN |FSPECF;iBesselJ| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselJ|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 88))
                      (SPADCALL (QREFELT $ 73)
                                (LIST
                                 (SPADCALL (QREFELT $ 19)
                                           (LIST (QREFELT $ 76) |x|)
                                           (QREFELT $ 69))
                                 (QREFELT $ 76) |n|)
                                (QREFELT $ 89))
                      (QREFELT $ 90))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 88)) (QREFELT $ 79)
                       (QREFELT $ 90))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98)) |x|
                        (QREFELT $ 43))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 91)) |x|
                        (QREFELT $ 43))
              (QREFELT $ 98))
             (QREFELT $ 90))
            (QREFELT $ 91))))))) 

(DEFUN |FSPECF;iBesselY| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselY|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 88))
                      (SPADCALL (QREFELT $ 73)
                                (LIST
                                 (SPADCALL (QREFELT $ 20)
                                           (LIST (QREFELT $ 76) |x|)
                                           (QREFELT $ 69))
                                 (QREFELT $ 76) |n|)
                                (QREFELT $ 89))
                      (QREFELT $ 90))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 88)) (QREFELT $ 79)
                       (QREFELT $ 90))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98)) |x|
                        (QREFELT $ 44))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 91)) |x|
                        (QREFELT $ 44))
              (QREFELT $ 98))
             (QREFELT $ 90))
            (QREFELT $ 91))))))) 

(DEFUN |FSPECF;iBesselI| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselI|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 88))
                      (SPADCALL (QREFELT $ 73)
                                (LIST
                                 (SPADCALL (QREFELT $ 21)
                                           (LIST (QREFELT $ 76) |x|)
                                           (QREFELT $ 69))
                                 (QREFELT $ 76) |n|)
                                (QREFELT $ 89))
                      (QREFELT $ 90))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 88)) (QREFELT $ 79)
                       (QREFELT $ 90))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98)) |x|
                        (QREFELT $ 45))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 91)) |x|
                        (QREFELT $ 45))
              (QREFELT $ 91))
             (QREFELT $ 90))
            (QREFELT $ 91))))))) 

(DEFUN |FSPECF;iBesselK| (|l| |t| $)
  (PROG (|x| |n|)
    (RETURN
     (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;iBesselK|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |n| |t| (QREFELT $ 88))
                      (SPADCALL (QREFELT $ 73)
                                (LIST
                                 (SPADCALL (QREFELT $ 22)
                                           (LIST (QREFELT $ 76) |x|)
                                           (QREFELT $ 69))
                                 (QREFELT $ 76) |n|)
                                (QREFELT $ 89))
                      (QREFELT $ 90))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 88)) (QREFELT $ 79)
                       (QREFELT $ 90))
             (SPADCALL
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 98)) |x|
                        (QREFELT $ 46))
              (SPADCALL (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 91)) |x|
                        (QREFELT $ 46))
              (QREFELT $ 91))
             (QREFELT $ 90))
            (QREFELT $ 98))))))) 

(DEFUN |FSPECF;dPolylog| (|l| |t| $)
  (PROG (|x| |s|)
    (RETURN
     (SEQ (LETT |s| (|SPADfirst| |l|) . #1=(|FSPECF;dPolylog|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |s| |t| (QREFELT $ 88))
                      (SPADCALL (QREFELT $ 73)
                                (LIST
                                 (SPADCALL (QREFELT $ 28)
                                           (LIST (QREFELT $ 76) |x|)
                                           (QREFELT $ 69))
                                 (QREFELT $ 76) |s|)
                                (QREFELT $ 89))
                      (QREFELT $ 90))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 88))
                       (SPADCALL
                        (SPADCALL |s| (|spadConstant| $ 63) (QREFELT $ 98)) |x|
                        (QREFELT $ 52))
                       (QREFELT $ 90))
             |x| (QREFELT $ 97))
            (QREFELT $ 91))))))) 

(DEFUN |FSPECF;ipolygamma| (|l| |x| $)
  (PROG (|y| |n|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |x| (SPADCALL (|SPADfirst| |l|) (QREFELT $ 240))
                  (QREFELT $ 241))
        (|error|
         "cannot differentiate polygamma with respect to the first argument"))
       ('T
        (SEQ (LETT |n| (|SPADfirst| |l|) . #1=(|FSPECF;ipolygamma|))
             (LETT |y| (SPADCALL |l| (QREFELT $ 197)) . #1#)
             (EXIT
              (SPADCALL (SPADCALL |y| |x| (QREFELT $ 88))
                        (SPADCALL
                         (SPADCALL |n| (|spadConstant| $ 63) (QREFELT $ 91))
                         |y| (QREFELT $ 42))
                        (QREFELT $ 90)))))))))) 

(DEFUN |FSPECF;iBetaGrad1| (|l| $)
  (PROG (|y| |x|)
    (RETURN
     (SEQ (LETT |x| (|SPADfirst| |l|) . #1=(|FSPECF;iBetaGrad1|))
          (LETT |y| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL (SPADCALL |x| |y| (QREFELT $ 40))
                     (SPADCALL (SPADCALL |x| (QREFELT $ 41))
                               (SPADCALL (SPADCALL |x| |y| (QREFELT $ 91))
                                         (QREFELT $ 41))
                               (QREFELT $ 98))
                     (QREFELT $ 90))))))) 

(DEFUN |FSPECF;iBetaGrad2| (|l| $)
  (PROG (|y| |x|)
    (RETURN
     (SEQ (LETT |x| (|SPADfirst| |l|) . #1=(|FSPECF;iBetaGrad2|))
          (LETT |y| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL (SPADCALL |x| |y| (QREFELT $ 40))
                     (SPADCALL (SPADCALL |y| (QREFELT $ 41))
                               (SPADCALL (SPADCALL |x| |y| (QREFELT $ 91))
                                         (QREFELT $ 41))
                               (QREFELT $ 98))
                     (QREFELT $ 90))))))) 

(DEFUN |FSPECF;iGamma2| (|l| |t| $)
  (PROG (|x| |a|)
    (RETURN
     (SEQ (LETT |a| (|SPADfirst| |l|) . #1=(|FSPECF;iGamma2|))
          (LETT |x| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (SPADCALL |a| |t| (QREFELT $ 88))
                      (SPADCALL (QREFELT $ 73)
                                (LIST
                                 (SPADCALL (QREFELT $ 15)
                                           (LIST (QREFELT $ 76) |x|)
                                           (QREFELT $ 69))
                                 (QREFELT $ 76) |a|)
                                (QREFELT $ 89))
                      (QREFELT $ 90))
            (SPADCALL
             (SPADCALL (SPADCALL |x| |t| (QREFELT $ 88))
                       (SPADCALL |x|
                                 (SPADCALL |a| (|spadConstant| $ 63)
                                           (QREFELT $ 98))
                                 (QREFELT $ 116))
                       (QREFELT $ 90))
             (SPADCALL (SPADCALL |x| (QREFELT $ 107)) (QREFELT $ 242))
             (QREFELT $ 90))
            (QREFELT $ 98))))))) 

(DEFUN |FSPECF;inGamma2| (|li| $)
  (SPADCALL (CONS (SPADCALL '|Gamma| (QREFELT $ 159)) |li|) (QREFELT $ 160))) 

(DEFUN |FSPECF;dLambertW| (|x| $)
  (PROG (|lw|)
    (RETURN
     (SEQ (LETT |lw| (SPADCALL |x| (QREFELT $ 51)) |FSPECF;dLambertW|)
          (EXIT
           (SPADCALL |lw|
                     (SPADCALL |x|
                               (SPADCALL (|spadConstant| $ 63) |lw|
                                         (QREFELT $ 91))
                               (QREFELT $ 90))
                     (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassPGrad1| (|l| $)
  (PROG (|wp| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassPGrad1|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |wp| (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL
              (SPADCALL
               (SPADCALL (SPADCALL |g2| |g3| |x| (QREFELT $ 55))
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL 9 (QREFELT $ 79) (QREFELT $ 84)) |g3|
                             (QREFELT $ 90))
                            (SPADCALL |g2| |g3| |x| (QREFELT $ 57))
                            (QREFELT $ 90))
                           (QREFELT $ 107))
                          (SPADCALL
                           (SPADCALL (QREFELT $ 81)
                                     (SPADCALL |g2| 2 (QREFELT $ 154))
                                     (QREFELT $ 90))
                           |x| (QREFELT $ 90))
                          (QREFELT $ 91))
                         (QREFELT $ 90))
               (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84))
                         (SPADCALL |wp| 2 (QREFELT $ 154)) (QREFELT $ 90))
               (QREFELT $ 98))
              (SPADCALL
               (SPADCALL (QREFELT $ 79) (SPADCALL |g2| 2 (QREFELT $ 154))
                         (QREFELT $ 90))
               |wp| (QREFELT $ 90))
              (QREFELT $ 91))
             (SPADCALL
              (SPADCALL (SPADCALL 3 (QREFELT $ 79) (QREFELT $ 84)) |g2|
                        (QREFELT $ 90))
              |g3| (QREFELT $ 90))
             (QREFELT $ 91))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassPGrad2| (|l| $)
  (PROG (|wp| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassPGrad2|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |wp| (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL
              (SPADCALL
               (SPADCALL (SPADCALL |g2| |g3| |x| (QREFELT $ 55))
                         (SPADCALL
                          (SPADCALL (SPADCALL 3 |g2| (QREFELT $ 84))
                                    (SPADCALL |g2| |g3| |x| (QREFELT $ 57))
                                    (QREFELT $ 90))
                          (SPADCALL
                           (SPADCALL (SPADCALL 9 (QREFELT $ 79) (QREFELT $ 84))
                                     |g3| (QREFELT $ 90))
                           |x| (QREFELT $ 90))
                          (QREFELT $ 98))
                         (QREFELT $ 90))
               (SPADCALL (SPADCALL 6 |g2| (QREFELT $ 84))
                         (SPADCALL |wp| 2 (QREFELT $ 154)) (QREFELT $ 90))
               (QREFELT $ 91))
              (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84)) |wp| (QREFELT $ 90))
              (QREFELT $ 98))
             (SPADCALL |g2| 2 (QREFELT $ 154)) (QREFELT $ 98))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassPGrad3| (|l| $)
  (SPADCALL (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197))
            (SPADCALL |l| (QREFELT $ 237)) (QREFELT $ 55))) 

(DEFUN |FSPECF;iWeierstrassPPrimeGrad1| (|l| $)
  (PROG (|wpp2| |wpp| |wp| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassPPrimeGrad1|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |wp| (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) . #1#)
          (LETT |wpp| (SPADCALL |g2| |g3| |x| (QREFELT $ 55)) . #1#)
          (LETT |wpp2|
                (SPADCALL
                 (SPADCALL 6 (SPADCALL |wp| 2 (QREFELT $ 154)) (QREFELT $ 84))
                 (SPADCALL (QREFELT $ 79) |g2| (QREFELT $ 90)) (QREFELT $ 98))
                . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL
              (SPADCALL
               (SPADCALL |wpp2|
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL
                            (SPADCALL
                             (SPADCALL 9 (QREFELT $ 79) (QREFELT $ 84)) |g3|
                             (QREFELT $ 90))
                            (SPADCALL |g2| |g3| |x| (QREFELT $ 57))
                            (QREFELT $ 90))
                           (QREFELT $ 107))
                          (SPADCALL
                           (SPADCALL (QREFELT $ 81)
                                     (SPADCALL |g2| 2 (QREFELT $ 154))
                                     (QREFELT $ 90))
                           |x| (QREFELT $ 90))
                          (QREFELT $ 91))
                         (QREFELT $ 90))
               (SPADCALL |wpp|
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL (SPADCALL 9 (QREFELT $ 79) (QREFELT $ 84))
                                     |g3| (QREFELT $ 90))
                           |wp| (QREFELT $ 90))
                          (SPADCALL (QREFELT $ 81)
                                    (SPADCALL |g2| 2 (QREFELT $ 154))
                                    (QREFELT $ 90))
                          (QREFELT $ 91))
                         (QREFELT $ 90))
               (QREFELT $ 91))
              (SPADCALL
               (SPADCALL (SPADCALL 18 |g3| (QREFELT $ 84)) |wp| (QREFELT $ 90))
               |wpp| (QREFELT $ 90))
              (QREFELT $ 98))
             (SPADCALL
              (SPADCALL (QREFELT $ 79) (SPADCALL |g2| 2 (QREFELT $ 154))
                        (QREFELT $ 90))
              |wpp| (QREFELT $ 90))
             (QREFELT $ 91))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassPPrimeGrad2| (|l| $)
  (PROG (|wpp2| |wpp| |wp| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassPPrimeGrad2|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |wp| (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) . #1#)
          (LETT |wpp| (SPADCALL |g2| |g3| |x| (QREFELT $ 55)) . #1#)
          (LETT |wpp2|
                (SPADCALL
                 (SPADCALL 6 (SPADCALL |wp| 2 (QREFELT $ 154)) (QREFELT $ 84))
                 (SPADCALL (QREFELT $ 79) |g2| (QREFELT $ 90)) (QREFELT $ 98))
                . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL
              (SPADCALL
               (SPADCALL |wpp2|
                         (SPADCALL
                          (SPADCALL (SPADCALL 3 |g2| (QREFELT $ 84))
                                    (SPADCALL |g2| |g3| |x| (QREFELT $ 57))
                                    (QREFELT $ 90))
                          (SPADCALL
                           (SPADCALL (SPADCALL 9 (QREFELT $ 79) (QREFELT $ 84))
                                     |g3| (QREFELT $ 90))
                           |x| (QREFELT $ 90))
                          (QREFELT $ 98))
                         (QREFELT $ 90))
               (SPADCALL |wpp|
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL (SPADCALL 3 |g2| (QREFELT $ 84)) |wp|
                                     (QREFELT $ 90))
                           (QREFELT $ 107))
                          (SPADCALL (SPADCALL 9 (QREFELT $ 79) (QREFELT $ 84))
                                    |g3| (QREFELT $ 90))
                          (QREFELT $ 98))
                         (QREFELT $ 90))
               (QREFELT $ 91))
              (SPADCALL
               (SPADCALL (SPADCALL 12 |g2| (QREFELT $ 84)) |wp| (QREFELT $ 90))
               |wpp| (QREFELT $ 90))
              (QREFELT $ 91))
             (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84)) |wpp| (QREFELT $ 90))
             (QREFELT $ 98))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassPPrimeGrad3| (|l| $)
  (PROG (|g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) |FSPECF;iWeierstrassPPrimeGrad3|)
          (EXIT
           (SPADCALL
            (SPADCALL 6
                      (SPADCALL
                       (SPADCALL |g2| (SPADCALL |l| (QREFELT $ 197))
                                 (SPADCALL |l| (QREFELT $ 237)) (QREFELT $ 54))
                       2 (QREFELT $ 110))
                      (QREFELT $ 84))
            (SPADCALL (QREFELT $ 79) |g2| (QREFELT $ 90)) (QREFELT $ 98))))))) 

(DEFUN |FSPECF;iWeierstrassSigmaGrad1| (|l| $)
  (PROG (|wsp2| |wsp| |wz| |ws| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassSigmaGrad1|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |ws| (SPADCALL |g2| |g3| |x| (QREFELT $ 56)) . #1#)
          (LETT |wz| (SPADCALL |g2| |g3| |x| (QREFELT $ 57)) . #1#)
          (LETT |wsp| (SPADCALL |wz| |ws| (QREFELT $ 90)) . #1#)
          (LETT |wsp2|
                (SPADCALL
                 (SPADCALL
                  (SPADCALL (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) |ws|
                            (QREFELT $ 90))
                  (QREFELT $ 107))
                 (SPADCALL (SPADCALL |wz| 2 (QREFELT $ 154)) |ws|
                           (QREFELT $ 90))
                 (QREFELT $ 91))
                . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (QREFELT $ 81)
                      (SPADCALL
                       (SPADCALL
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84)) |wsp2|
                                    (QREFELT $ 90))
                          (QREFELT $ 107))
                         (SPADCALL (SPADCALL |g2| 2 (QREFELT $ 154)) |ws|
                                   (QREFELT $ 90))
                         (QREFELT $ 98))
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL
                           (SPADCALL (SPADCALL 3 (QREFELT $ 81) (QREFELT $ 84))
                                     |g2| (QREFELT $ 90))
                           |g3| (QREFELT $ 90))
                          (SPADCALL |x| 2 (QREFELT $ 154)) (QREFELT $ 90))
                         |ws| (QREFELT $ 90))
                        (QREFELT $ 98))
                       (SPADCALL
                        (SPADCALL (SPADCALL |g2| 2 (QREFELT $ 154)) |x|
                                  (QREFELT $ 90))
                        |wsp| (QREFELT $ 90))
                       (QREFELT $ 91))
                      (QREFELT $ 90))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassSigmaGrad2| (|l| $)
  (PROG (|wsp2| |wsp| |wz| |ws| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassSigmaGrad2|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |ws| (SPADCALL |g2| |g3| |x| (QREFELT $ 56)) . #1#)
          (LETT |wz| (SPADCALL |g2| |g3| |x| (QREFELT $ 57)) . #1#)
          (LETT |wsp| (SPADCALL |wz| |ws| (QREFELT $ 90)) . #1#)
          (LETT |wsp2|
                (SPADCALL
                 (SPADCALL
                  (SPADCALL (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) |ws|
                            (QREFELT $ 90))
                  (QREFELT $ 107))
                 (SPADCALL (SPADCALL |wz| 2 (QREFELT $ 154)) |ws|
                           (QREFELT $ 90))
                 (QREFELT $ 91))
                . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL (QREFELT $ 79)
                      (SPADCALL
                       (SPADCALL
                        (SPADCALL
                         (SPADCALL (SPADCALL 3 |g2| (QREFELT $ 84)) |wsp2|
                                   (QREFELT $ 90))
                         (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84)) |ws|
                                   (QREFELT $ 90))
                         (QREFELT $ 91))
                        (SPADCALL
                         (SPADCALL
                          (SPADCALL (QREFELT $ 81)
                                    (SPADCALL |g2| 2 (QREFELT $ 154))
                                    (QREFELT $ 90))
                          (SPADCALL |x| 2 (QREFELT $ 154)) (QREFELT $ 90))
                         |ws| (QREFELT $ 90))
                        (QREFELT $ 91))
                       (SPADCALL
                        (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84)) |x|
                                  (QREFELT $ 90))
                        |wsp| (QREFELT $ 90))
                       (QREFELT $ 98))
                      (QREFELT $ 90))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassSigmaGrad3| (|l| $)
  (PROG (|x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassSigmaGrad3|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (EXIT
           (SPADCALL (SPADCALL |g2| |g3| |x| (QREFELT $ 57))
                     (SPADCALL |g2| |g3| |x| (QREFELT $ 56))
                     (QREFELT $ 90))))))) 

(DEFUN |FSPECF;iWeierstrassZetaGrad1| (|l| $)
  (PROG (|wp| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassZetaGrad1|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |wp| (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL
              (SPADCALL
               (SPADCALL (QREFELT $ 79) (SPADCALL |g2| |g3| |x| (QREFELT $ 57))
                         (QREFELT $ 90))
               (SPADCALL
                (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84)) |wp| (QREFELT $ 90))
                (SPADCALL (QREFELT $ 79) (SPADCALL |g2| 2 (QREFELT $ 154))
                          (QREFELT $ 90))
                (QREFELT $ 91))
               (QREFELT $ 90))
              (SPADCALL
               (SPADCALL (SPADCALL (QREFELT $ 79) |g2| (QREFELT $ 90)) |x|
                         (QREFELT $ 90))
               (SPADCALL
                (SPADCALL (SPADCALL (QREFELT $ 79) |g2| (QREFELT $ 90)) |wp|
                          (QREFELT $ 90))
                (SPADCALL (SPADCALL 3 (QREFELT $ 81) (QREFELT $ 84)) |g3|
                          (QREFELT $ 90))
                (QREFELT $ 91))
               (QREFELT $ 90))
              (QREFELT $ 98))
             (SPADCALL
              (SPADCALL (SPADCALL 9 (QREFELT $ 81) (QREFELT $ 84)) |g3|
                        (QREFELT $ 90))
              (SPADCALL |g2| |g3| |x| (QREFELT $ 55)) (QREFELT $ 90))
             (QREFELT $ 91))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassZetaGrad2| (|l| $)
  (PROG (|wp| |delta| |x| |g3| |g2|)
    (RETURN
     (SEQ (LETT |g2| (|SPADfirst| |l|) . #1=(|FSPECF;iWeierstrassZetaGrad2|))
          (LETT |g3| (SPADCALL |l| (QREFELT $ 197)) . #1#)
          (LETT |x| (SPADCALL |l| (QREFELT $ 237)) . #1#)
          (LETT |delta|
                (SPADCALL (SPADCALL |g2| 3 (QREFELT $ 154))
                          (SPADCALL 27 (SPADCALL |g3| 2 (QREFELT $ 154))
                                    (QREFELT $ 84))
                          (QREFELT $ 98))
                . #1#)
          (LETT |wp| (SPADCALL |g2| |g3| |x| (QREFELT $ 54)) . #1#)
          (EXIT
           (SPADCALL
            (SPADCALL
             (SPADCALL
              (SPADCALL
               (SPADCALL
                (SPADCALL 3 (SPADCALL |g2| |g3| |x| (QREFELT $ 57))
                          (QREFELT $ 84))
                (SPADCALL (SPADCALL |g2| |wp| (QREFELT $ 90))
                          (SPADCALL (SPADCALL 3 (QREFELT $ 79) (QREFELT $ 84))
                                    |g3| (QREFELT $ 90))
                          (QREFELT $ 91))
                (QREFELT $ 90))
               (QREFELT $ 107))
              (SPADCALL (SPADCALL (QREFELT $ 79) |x| (QREFELT $ 90))
                        (SPADCALL
                         (SPADCALL (SPADCALL 9 |g3| (QREFELT $ 84)) |wp|
                                   (QREFELT $ 90))
                         (SPADCALL (QREFELT $ 79)
                                   (SPADCALL |g2| 2 (QREFELT $ 154))
                                   (QREFELT $ 90))
                         (QREFELT $ 91))
                        (QREFELT $ 90))
              (QREFELT $ 91))
             (SPADCALL
              (SPADCALL (SPADCALL 3 (QREFELT $ 79) (QREFELT $ 84)) |g2|
                        (QREFELT $ 90))
              (SPADCALL |g2| |g3| |x| (QREFELT $ 55)) (QREFELT $ 90))
             (QREFELT $ 98))
            |delta| (QREFELT $ 97))))))) 

(DEFUN |FSPECF;iWeierstrassZetaGrad3| (|l| $)
  (SPADCALL
   (SPADCALL (|SPADfirst| |l|) (SPADCALL |l| (QREFELT $ 197))
             (SPADCALL |l| (QREFELT $ 237)) (QREFELT $ 54))
   (QREFELT $ 107))) 

(DEFUN |FSPECF;get_int_listf| (|lf| $)
  (SPADCALL (ELT $ 243) |lf| (QREFELT $ 247))) 

(DEFUN |FSPECF;replacei| (|lp| |v| |i| $)
  (PROG (#1=#:G2721)
    (RETURN
     (SPADCALL
      (SPADCALL |lp|
                (PROG1 (LETT #1# (- |i| 1) |FSPECF;replacei|)
                  (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
                (QREFELT $ 249))
      (CONS |v| (SPADCALL |lp| |i| (QREFELT $ 250))) (QREFELT $ 67))))) 

(DEFUN |FSPECF;iiHypergeometricF| (|l| $)
  (PROG (#1=#:G2724 #2=#:G2726 |q| |p| |pqi| |pq| |nn| #3=#:G2723 |z| |n|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ (LETT |n| (LENGTH |l|) . #4=(|FSPECF;iiHypergeometricF|))
            (LETT |z| (SPADCALL |l| (- |n| 3) (QREFELT $ 87)) . #4#)
            (COND
             ((SPADCALL |z| (|spadConstant| $ 59) (QREFELT $ 61))
              (SEQ
               (EXIT
                (SEQ
                 (LETT |nn|
                       (PROG1 (LETT #3# (- |n| 2) . #4#)
                         (|check-subtype| (>= #3# 0) '(|NonNegativeInteger|)
                                          #3#))
                       . #4#)
                 (LETT |pq| (SPADCALL |l| |nn| (QREFELT $ 250)) . #4#)
                 (LETT |pqi| (|FSPECF;get_int_listf| |pq| $) . #4#)
                 (LETT |p| (|SPADfirst| |pqi|) . #4#)
                 (LETT |q| (|SPADfirst| (CDR |pqi|)) . #4#)
                 (EXIT
                  (COND
                   ((NULL (< (+ |q| 1) |p|))
                    (PROGN
                     (LETT #1#
                           (PROGN
                            (LETT #2# (|spadConstant| $ 63) . #4#)
                            (GO #2#))
                           . #4#)
                     (GO #1#)))))))
               #1# (EXIT #1#))))
            (EXIT (SPADCALL (QREFELT $ 33) |l| (QREFELT $ 89)))))
      #2# (EXIT #2#))))) 

(DEFUN |FSPECF;idvsum| (|op| |n| |l| |x| $)
  (PROG (|res| |nl| |i| #1=#:G2733 |a|)
    (RETURN
     (SEQ (LETT |res| (|spadConstant| $ 59) . #2=(|FSPECF;idvsum|))
          (SEQ (LETT |a| NIL . #2#) (LETT #1# |l| . #2#) (LETT |i| 1 . #2#)
               G190
               (COND
                ((OR (QSGREATERP |i| |n|) (ATOM #1#)
                     (PROGN (LETT |a| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ
                (LETT |nl| (|FSPECF;replacei| |l| (QREFELT $ 76) |i| $) . #2#)
                (EXIT
                 (LETT |res|
                       (SPADCALL |res|
                                 (SPADCALL (SPADCALL |a| |x| (QREFELT $ 88))
                                           (SPADCALL (QREFELT $ 73)
                                                     (LIST
                                                      (SPADCALL |op| |nl|
                                                                (QREFELT $ 69))
                                                      (QREFELT $ 76) |a|)
                                                     (QREFELT $ 89))
                                           (QREFELT $ 90))
                                 (QREFELT $ 91))
                       . #2#)))
               (LETT |i| (PROG1 (QSADD1 |i|) (LETT #1# (CDR #1#) . #2#)) . #2#)
               (GO G190) G191 (EXIT NIL))
          (EXIT |res|))))) 

(DEFUN |FSPECF;dvhypergeom| (|l| |x| $)
  (PROG (|aprod| |nl| |nl1| |nl0| |bprod| |b| |i| |a| |q| |p| |z| |l1| |ol|
         |pqi| |pq| |nn| #1=#:G2734 |n|)
    (RETURN
     (SEQ (LETT |n| (LENGTH |l|) . #2=(|FSPECF;dvhypergeom|))
          (LETT |nn|
                (PROG1 (LETT #1# (- |n| 2) . #2#)
                  (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
                . #2#)
          (LETT |pq| (SPADCALL |l| |nn| (QREFELT $ 250)) . #2#)
          (LETT |pqi| (|FSPECF;get_int_listf| |pq| $) . #2#)
          (LETT |ol| |l| . #2#)
          (LETT |l| (SPADCALL |l| |nn| (QREFELT $ 249)) . #2#)
          (LETT |l1| (REVERSE |l|) . #2#) (LETT |z| (|SPADfirst| |l1|) . #2#)
          (LETT |p| (|SPADfirst| |pqi|) . #2#)
          (LETT |q| (|SPADfirst| (CDR |pqi|)) . #2#)
          (LETT |aprod| (|spadConstant| $ 63) . #2#) (LETT |nl| NIL . #2#)
          (SEQ (LETT |i| 1 . #2#) G190
               (COND ((QSGREATERP |i| |p|) #3=(GO G191)))
               (SEQ (LETT |a| (|SPADfirst| |l|) . #2#)
                    (LETT |nl|
                          (CONS
                           (SPADCALL |a| (|spadConstant| $ 63) (QREFELT $ 91))
                           |nl|)
                          . #2#)
                    (LETT |aprod| (SPADCALL |aprod| |a| (QREFELT $ 90)) . #2#)
                    (EXIT (LETT |l| (CDR |l|) . #2#)))
               (LETT |i| (QSADD1 |i|) . #2#) #4=(GO G190) G191 (EXIT NIL))
          (LETT |bprod| (|spadConstant| $ 63) . #2#)
          (SEQ (LETT |i| 1 . #2#) G190 (COND ((QSGREATERP |i| |q|) #3#))
               (SEQ (LETT |b| (|SPADfirst| |l|) . #2#)
                    (LETT |nl|
                          (CONS
                           (SPADCALL |b| (|spadConstant| $ 63) (QREFELT $ 91))
                           |nl|)
                          . #2#)
                    (LETT |bprod| (SPADCALL |bprod| |b| (QREFELT $ 90)) . #2#)
                    (EXIT (LETT |l| (CDR |l|) . #2#)))
               (LETT |i| (QSADD1 |i|) . #2#) #4# G191 (EXIT NIL))
          (LETT |nl0| (NREVERSE |nl|) . #2#) (LETT |nl1| (CONS |z| |pq|) . #2#)
          (LETT |nl| (SPADCALL |nl0| |nl1| (QREFELT $ 67)) . #2#)
          (LETT |aprod| (SPADCALL |aprod| |bprod| (QREFELT $ 97)) . #2#)
          (EXIT
           (SPADCALL (|FSPECF;idvsum| (QREFELT $ 33) (- |nn| 1) |ol| |x| $)
                     (SPADCALL
                      (SPADCALL (SPADCALL |z| |x| (QREFELT $ 88)) |aprod|
                                (QREFELT $ 90))
                      (SPADCALL (QREFELT $ 33) |nl| (QREFELT $ 69))
                      (QREFELT $ 90))
                     (QREFELT $ 91))))))) 

(DEFUN |FSPECF;add_pairs_to_list| (|lp| |l| $)
  (PROG (#1=#:G2746 |p|)
    (RETURN
     (SEQ
      (SEQ (LETT |p| NIL . #2=(|FSPECF;add_pairs_to_list|))
           (LETT #1# |lp| . #2#) G190
           (COND
            ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #2#) NIL)) (GO G191)))
           (SEQ
            (EXIT
             (COND
              ((NULL (EQL (LENGTH |p|) 2)) (|error| "not a list of pairs"))
              ('T
               (LETT |l|
                     (CONS (SPADCALL |p| 2 (QREFELT $ 87))
                           (CONS (SPADCALL |p| 1 (QREFELT $ 87)) |l|))
                     . #2#)))))
           (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
      (EXIT |l|))))) 

(DEFUN |FSPECF;dvmeijer| (|l| |x| $)
  (PROG (|l2| |na| |a| |n2| |n1| |z| |l1| |nli| |nl| |l0| |nn| #1=#:G2747 |n|)
    (RETURN
     (SEQ (LETT |n| (LENGTH |l|) . #2=(|FSPECF;dvmeijer|))
          (LETT |nn|
                (PROG1 (LETT #1# (- |n| 4) . #2#)
                  (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
                . #2#)
          (LETT |l0| |l| . #2#)
          (LETT |nl| (SPADCALL |l| |nn| (QREFELT $ 250)) . #2#)
          (LETT |nli| (|FSPECF;get_int_listf| |nl| $) . #2#)
          (LETT |l| (SPADCALL |l| |nn| (QREFELT $ 249)) . #2#)
          (LETT |l1| (REVERSE |l|) . #2#) (LETT |z| (|SPADfirst| |l1|) . #2#)
          (LETT |n1| (|SPADfirst| |nli|) . #2#)
          (LETT |n2| (SPADCALL |nli| 2 (QREFELT $ 252)) . #2#)
          (LETT |a| (|SPADfirst| |l|) . #2#)
          (COND
           ((OR (< 0 |n1|) (< 0 |n2|))
            (SEQ
             (LETT |na| (SPADCALL |a| (|spadConstant| $ 63) (QREFELT $ 98))
                   . #2#)
             (EXIT (LETT |l2| (CONS |na| (CDR |l|)) . #2#))))
           ('T
            (SEQ (LETT |na| |a| . #2#)
                 (EXIT
                  (LETT |l2|
                        (CONS
                         (SPADCALL |a| (|spadConstant| $ 63) (QREFELT $ 91))
                         (CDR |l|))
                        . #2#)))))
          (EXIT
           (SPADCALL (|FSPECF;idvsum| (QREFELT $ 34) (- |nn| 1) |l0| |x| $)
                     (SPADCALL
                      (SPADCALL (SPADCALL |z| |x| (QREFELT $ 88))
                                (SPADCALL
                                 (SPADCALL (QREFELT $ 34)
                                           (SPADCALL |l2| |nl| (QREFELT $ 67))
                                           (QREFELT $ 69))
                                 (SPADCALL |na|
                                           (SPADCALL (QREFELT $ 34) |l0|
                                                     (QREFELT $ 69))
                                           (QREFELT $ 90))
                                 (QREFELT $ 91))
                                (QREFELT $ 90))
                      |z| (QREFELT $ 97))
                     (QREFELT $ 91))))))) 

(DEFUN |FSPECF;get_if_list| (|n| |lf| $)
  (PROG (|a| |i|)
    (RETURN
     (SEQ (LETT |a| NIL . #1=(|FSPECF;get_if_list|))
          (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |n|) (GO G191)))
               (SEQ (LETT |a| (CONS (|SPADfirst| |lf|) |a|) . #1#)
                    (EXIT (LETT |lf| (CDR |lf|) . #1#)))
               (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
          (LETT |a|
                (CONS (SPADCALL '|construct| (QREFELT $ 159)) (NREVERSE |a|))
                . #1#)
          (EXIT (LIST |a| |lf|)))))) 

(DEFUN |FSPECF;get_if_lists| (|ln| |lf| $)
  (PROG (|rl| |al| #1=#:G2762 |n|)
    (RETURN
     (SEQ (LETT |rl| NIL . #2=(|FSPECF;get_if_lists|))
          (SEQ (LETT |n| NIL . #2#) (LETT #1# |ln| . #2#) G190
               (COND
                ((OR (ATOM #1#) (PROGN (LETT |n| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ (LETT |al| (|FSPECF;get_if_list| |n| |lf| $) . #2#)
                    (LETT |rl| (CONS (|SPADfirst| |al|) |rl|) . #2#)
                    (EXIT (LETT |lf| (|SPADfirst| (CDR |al|)) . #2#)))
               (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
          (LETT |rl| (NREVERSE |rl|) . #2#) (EXIT (CONS |lf| |rl|)))))) 

(DEFUN |FSPECF;get_int_listi| (|n| |lo| $)
  (PROG (|rl| |p| |i| |n0| #1=#:G2763)
    (RETURN
     (SEQ
      (LETT |n0|
            (PROG1
                (LETT #1# (- (LENGTH |lo|) |n|) . #2=(|FSPECF;get_int_listi|))
              (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
            . #2#)
      (LETT |lo| (SPADCALL |lo| |n0| (QREFELT $ 255)) . #2#)
      (LETT |rl| NIL . #2#)
      (SEQ (LETT |i| 1 . #2#) G190 (COND ((QSGREATERP |i| |n|) (GO G191)))
           (SEQ (LETT |p| (SPADCALL (|SPADfirst| |lo|) (QREFELT $ 257)) . #2#)
                (LETT |rl| (CONS |p| |rl|) . #2#)
                (EXIT (LETT |lo| (CDR |lo|) . #2#)))
           (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191 (EXIT NIL))
      (LETT |rl| (NREVERSE |rl|) . #2#) (EXIT |rl|))))) 

(DEFUN |FSPECF;get_of_list| (|n| |lo| $)
  (PROG (|a| |i|)
    (RETURN
     (SEQ (LETT |a| NIL . #1=(|FSPECF;get_of_list|))
          (SEQ (LETT |i| 1 . #1#) G190 (COND ((QSGREATERP |i| |n|) (GO G191)))
               (SEQ (LETT |a| (CONS (|SPADfirst| |lo|) |a|) . #1#)
                    (EXIT (LETT |lo| (CDR |lo|) . #1#)))
               (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191 (EXIT NIL))
          (LETT |a| (NREVERSE |a|) . #1#) (EXIT (LIST |a| |lo|)))))) 

(DEFUN |FSPECF;get_of_lists| (|ln| |lo| $)
  (PROG (|rl| |al| #1=#:G2776 |n|)
    (RETURN
     (SEQ (LETT |rl| NIL . #2=(|FSPECF;get_of_lists|))
          (SEQ (LETT |n| NIL . #2#) (LETT #1# |ln| . #2#) G190
               (COND
                ((OR (ATOM #1#) (PROGN (LETT |n| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ (LETT |al| (|FSPECF;get_of_list| |n| |lo| $) . #2#)
                    (LETT |rl| (CONS (|SPADfirst| |al|) |rl|) . #2#)
                    (EXIT (LETT |lo| (|SPADfirst| (CDR |al|)) . #2#)))
               (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
          (LETT |rl| (NREVERSE |rl|) . #2#) (EXIT (CONS |lo| |rl|)))))) 

(DEFUN |FSPECF;get_int_listo| (|n| |lo| $)
  (PROG (|rl| |p| |i| |n0| #1=#:G2777)
    (RETURN
     (SEQ
      (LETT |n0|
            (PROG1
                (LETT #1# (- (LENGTH |lo|) |n|) . #2=(|FSPECF;get_int_listo|))
              (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
            . #2#)
      (LETT |lo| (SPADCALL |lo| |n0| (QREFELT $ 259)) . #2#)
      (LETT |rl| NIL . #2#)
      (SEQ (LETT |i| 1 . #2#) G190 (COND ((QSGREATERP |i| |n|) (GO G191)))
           (SEQ (LETT |p| (SPADCALL (|SPADfirst| |lo|) (QREFELT $ 257)) . #2#)
                (LETT |rl| (CONS |p| |rl|) . #2#)
                (EXIT (LETT |lo| (CDR |lo|) . #2#)))
           (LETT |i| (QSADD1 |i|) . #2#) (GO G190) G191 (EXIT NIL))
      (LETT |rl| (NREVERSE |rl|) . #2#) (EXIT |rl|))))) 

(DEFUN |FSPECF;dhyper0| (|op| |lo| $)
  (PROG (|z| |b| |a| |al| |pql| |n0| #1=#:G2782)
    (RETURN
     (SEQ
      (LETT |n0|
            (PROG1 (LETT #1# (- (LENGTH |lo|) 2) . #2=(|FSPECF;dhyper0|))
              (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
            . #2#)
      (LETT |pql| (|FSPECF;get_int_listo| 2 |lo| $) . #2#)
      (LETT |lo| (SPADCALL |lo| |n0| (QREFELT $ 260)) . #2#)
      (LETT |al| (|FSPECF;get_of_lists| |pql| |lo| $) . #2#)
      (LETT |lo| (|SPADfirst| |al|) . #2#) (LETT |al| (CDR |al|) . #2#)
      (LETT |a| (|SPADfirst| |al|) . #2#)
      (LETT |b| (|SPADfirst| (CDR |al|)) . #2#)
      (LETT |z| (|SPADfirst| |lo|) . #2#)
      (EXIT
       (SPADCALL |op|
                 (LIST (SPADCALL |a| (QREFELT $ 262))
                       (SPADCALL |b| (QREFELT $ 262)) |z|)
                 (QREFELT $ 263))))))) 

(DEFUN |FSPECF;dhyper| (|lo| $)
  (|FSPECF;dhyper0| (SPADCALL '|hypergeometricF| (QREFELT $ 264)) |lo| $)) 

(DEFUN |FSPECF;ddhyper| (|lo| $)
  (|FSPECF;dhyper0| (|SPADfirst| |lo|) (CDR |lo|) $)) 

(DEFUN |FSPECF;dmeijer0| (|op| |lo| $)
  (PROG (|z| |al| |nl| |n0| #1=#:G2787)
    (RETURN
     (SEQ
      (LETT |n0|
            (PROG1 (LETT #1# (- (LENGTH |lo|) 4) . #2=(|FSPECF;dmeijer0|))
              (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#))
            . #2#)
      (LETT |nl| (|FSPECF;get_int_listo| 4 |lo| $) . #2#)
      (LETT |lo| (SPADCALL |lo| |n0| (QREFELT $ 260)) . #2#)
      (LETT |al| (|FSPECF;get_of_lists| |nl| |lo| $) . #2#)
      (LETT |lo| (|SPADfirst| |al|) . #2#) (LETT |al| (CDR |al|) . #2#)
      (LETT |z| (|SPADfirst| |lo|) . #2#)
      (EXIT
       (SPADCALL |op|
                 (SPADCALL (SPADCALL (ELT $ 262) |al| (QREFELT $ 268))
                           (LIST |z|) (QREFELT $ 269))
                 (QREFELT $ 263))))))) 

(DEFUN |FSPECF;dmeijer| (|lo| $)
  (|FSPECF;dmeijer0| (SPADCALL '|meijerG| (QREFELT $ 264)) |lo| $)) 

(DEFUN |FSPECF;ddmeijer| (|lo| $)
  (|FSPECF;dmeijer0| (|SPADfirst| |lo|) (CDR |lo|) $)) 

(DEFUN |FSPECF;inhyper| (|lf| $)
  (PROG (|li| |zi| |bi| |b| |ai| |a| |al| |pqi|)
    (RETURN
     (SEQ
      (LETT |pqi| (|FSPECF;get_int_listi| 2 |lf| $) . #1=(|FSPECF;inhyper|))
      (LETT |al| (|FSPECF;get_if_lists| |pqi| |lf| $) . #1#)
      (LETT |lf| (|SPADfirst| |al|) . #1#) (LETT |al| (CDR |al|) . #1#)
      (LETT |a| (|SPADfirst| |al|) . #1#)
      (LETT |ai| (SPADCALL |a| (QREFELT $ 160)) . #1#)
      (LETT |b| (|SPADfirst| (CDR |al|)) . #1#)
      (LETT |bi| (SPADCALL |b| (QREFELT $ 160)) . #1#)
      (LETT |zi| (|SPADfirst| |lf|) . #1#)
      (LETT |li|
            (LIST (SPADCALL '|hypergeometricF| (QREFELT $ 159)) |ai| |bi| |zi|)
            . #1#)
      (EXIT (SPADCALL |li| (QREFELT $ 160))))))) 

(DEFUN |FSPECF;inmeijer| (|lf| $)
  (PROG (|li| |zi| |di| |d| |al| |ci| |c| |bi| |b| |ai| |a| |pqi|)
    (RETURN
     (SEQ
      (LETT |pqi| (|FSPECF;get_int_listi| 4 |lf| $) . #1=(|FSPECF;inmeijer|))
      (LETT |al| (|FSPECF;get_if_lists| |pqi| |lf| $) . #1#)
      (LETT |lf| (|SPADfirst| |al|) . #1#) (LETT |al| (CDR |al|) . #1#)
      (LETT |a| (|SPADfirst| |al|) . #1#)
      (LETT |ai| (SPADCALL |a| (QREFELT $ 160)) . #1#)
      (LETT |al| (CDR |al|) . #1#) (LETT |b| (|SPADfirst| |al|) . #1#)
      (LETT |bi| (SPADCALL |b| (QREFELT $ 160)) . #1#)
      (LETT |al| (CDR |al|) . #1#) (LETT |c| (|SPADfirst| |al|) . #1#)
      (LETT |ci| (SPADCALL |c| (QREFELT $ 160)) . #1#)
      (LETT |al| (CDR |al|) . #1#) (LETT |d| (|SPADfirst| |al|) . #1#)
      (LETT |di| (SPADCALL |d| (QREFELT $ 160)) . #1#)
      (LETT |zi| (|SPADfirst| |lf|) . #1#)
      (LETT |li|
            (LIST (SPADCALL '|meijerG| (QREFELT $ 159)) |ai| |bi| |ci| |di|
                  |zi|)
            . #1#)
      (EXIT (SPADCALL |li| (QREFELT $ 160))))))) 

(DEFUN |FSPECF;iiHypergeometricF| (|l| $)
  (SPADCALL (QREFELT $ 33) |l| (QREFELT $ 89))) 

(DEFUN |FSPECF;iiMeijerG| (|l| $) (SPADCALL (QREFELT $ 34) |l| (QREFELT $ 89))) 

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

(DEFUN |FunctionalSpecialFunction;| (|#1| |#2|)
  (PROG (#1=#:G1910 |pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #2=(|FunctionalSpecialFunction|))
      (LETT DV$2 (|devaluate| |#2|) . #2#)
      (LETT |dv$| (LIST '|FunctionalSpecialFunction| DV$1 DV$2) . #2#)
      (LETT $ (GETREFV 272) . #2#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (|HasCategory| |#2|
                                                         '(|RetractableTo|
                                                           (|Integer|)))))
                      . #2#))
      (|haddProp| |$ConstructorCache| '|FunctionalSpecialFunction|
                  (LIST DV$1 DV$2) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (SETF |pv$| (QREFELT $ 3))
      (QSETREFV $ 8 '|special|)
      (QSETREFV $ 13 (SPADCALL '|abs| (QREFELT $ 12)))
      (QSETREFV $ 14 (SPADCALL '|Gamma| (QREFELT $ 12)))
      (QSETREFV $ 15 (SPADCALL '|Gamma2| (QREFELT $ 12)))
      (QSETREFV $ 16 (SPADCALL '|Beta| (QREFELT $ 12)))
      (QSETREFV $ 17 (SPADCALL '|digamma| (QREFELT $ 12)))
      (QSETREFV $ 18 (SPADCALL '|polygamma| (QREFELT $ 12)))
      (QSETREFV $ 19 (SPADCALL '|besselJ| (QREFELT $ 12)))
      (QSETREFV $ 20 (SPADCALL '|besselY| (QREFELT $ 12)))
      (QSETREFV $ 21 (SPADCALL '|besselI| (QREFELT $ 12)))
      (QSETREFV $ 22 (SPADCALL '|besselK| (QREFELT $ 12)))
      (QSETREFV $ 23 (SPADCALL '|airyAi| (QREFELT $ 12)))
      (QSETREFV $ 24 (SPADCALL '|airyAiPrime| (QREFELT $ 12)))
      (QSETREFV $ 25 (SPADCALL '|airyBi| (QREFELT $ 12)))
      (QSETREFV $ 26 (SPADCALL '|airyBiPrime| (QREFELT $ 12)))
      (QSETREFV $ 27 (SPADCALL '|lambertW| (QREFELT $ 12)))
      (QSETREFV $ 28 (SPADCALL '|polylog| (QREFELT $ 12)))
      (QSETREFV $ 29 (SPADCALL '|weierstrassP| (QREFELT $ 12)))
      (QSETREFV $ 30 (SPADCALL '|weierstrassPPrime| (QREFELT $ 12)))
      (QSETREFV $ 31 (SPADCALL '|weierstrassSigma| (QREFELT $ 12)))
      (QSETREFV $ 32 (SPADCALL '|weierstrassZeta| (QREFELT $ 12)))
      (QSETREFV $ 33 (SPADCALL '|hypergeometricF| (QREFELT $ 12)))
      (QSETREFV $ 34 (SPADCALL '|meijerG| (QREFELT $ 12)))
      (COND
       ((|testBitVector| |pv$| 1)
        (PROGN
         (QSETREFV $ 70
                   (CONS (|dispatchFunction| |FSPECF;hypergeometricF;2L2F;21|)
                         $))
         (QSETREFV $ 71
                   (CONS (|dispatchFunction| |FSPECF;meijerG;4L2F;22|) $)))))
      (QSETREFV $ 73
                (SPADCALL (SPADCALL '|%diff| (QREFELT $ 12)) (QREFELT $ 72)))
      (QSETREFV $ 76 (SPADCALL (SPADCALL (QREFELT $ 74)) (QREFELT $ 75)))
      (QSETREFV $ 79
                (PROG2
                    (LETT #1#
                          (SPADCALL (SPADCALL 2 (QREFELT $ 65)) (QREFELT $ 78))
                          . #2#)
                    (QCDR #1#)
                  (|check-union| (QEQCAR #1# 0) |#2| #1#)))
      (QSETREFV $ 80
                (PROG2
                    (LETT #1#
                          (SPADCALL (SPADCALL 3 (QREFELT $ 65)) (QREFELT $ 78))
                          . #2#)
                    (QCDR #1#)
                  (|check-union| (QEQCAR #1# 0) |#2| #1#)))
      (QSETREFV $ 81
                (PROG2
                    (LETT #1#
                          (SPADCALL (SPADCALL 4 (QREFELT $ 65)) (QREFELT $ 78))
                          . #2#)
                    (QCDR #1#)
                  (|check-union| (QEQCAR #1# 0) |#2| #1#)))
      (QSETREFV $ 82
                (PROG2
                    (LETT #1#
                          (SPADCALL (SPADCALL 6 (QREFELT $ 65)) (QREFELT $ 78))
                          . #2#)
                    (QCDR #1#)
                  (|check-union| (QEQCAR #1# 0) |#2| #1#)))
      (QSETREFV $ 85 (SPADCALL 2 (QREFELT $ 80) (QREFELT $ 84)))
      (QSETREFV $ 86 (SPADCALL 3 (QREFELT $ 79) (QREFELT $ 84)))
      (QSETREFV $ 92 (SPADCALL '|whittakerM| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 92) (CONS (|function| |FSPECF;elWhittakerM|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 92) '|%specialDiff|
                (CONS (|function| |FSPECF;dWhittakerM|) $) (QREFELT $ 100))
      (QSETREFV $ 101 (SPADCALL '|whittakerW| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 101) (CONS (|function| |FSPECF;elWhittakerW|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 101) '|%specialDiff|
                (CONS (|function| |FSPECF;dWhittakerW|) $) (QREFELT $ 100))
      (QSETREFV $ 103 (SPADCALL '|angerJ| (QREFELT $ 12)))
      (COND
       ((|HasCategory| |#2| '(|TranscendentalFunctionCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 103) (CONS (|function| |FSPECF;elAngerJ|) $)
                   (QREFELT $ 96))
         (SPADCALL (QREFELT $ 103) '|%specialDiff|
                   (CONS (|function| |FSPECF;dAngerJ|) $) (QREFELT $ 100))))
       ('T
        (PROGN
         (SPADCALL (QREFELT $ 103) (CONS (|function| |FSPECF;eeAngerJ|) $)
                   (QREFELT $ 96)))))
      (QSETREFV $ 108 (SPADCALL '|weberE| (QREFELT $ 12)))
      (COND
       ((|HasCategory| |#2| '(|TranscendentalFunctionCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 108) (CONS (|function| |FSPECF;elWeberE|) $)
                   (QREFELT $ 96))
         (SPADCALL (QREFELT $ 108) '|%specialDiff|
                   (CONS (|function| |FSPECF;dWeberE|) $) (QREFELT $ 100))))
       ('T
        (PROGN
         (SPADCALL (QREFELT $ 108) (CONS (|function| |FSPECF;eeWeberE|) $)
                   (QREFELT $ 96)))))
      (QSETREFV $ 114 (SPADCALL '|struveH| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 114) (CONS (|function| |FSPECF;elStruveH|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|TranscendentalFunctionCategory|))
        (COND
         ((|HasCategory| |#2| '(|RadicalCategory|))
          (PROGN
           (SPADCALL (QREFELT $ 114) '|%specialDiff|
                     (CONS (|function| |FSPECF;dStruveH|) $)
                     (QREFELT $ 100)))))))
      (QSETREFV $ 118 (SPADCALL '|struveL| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 118) (CONS (|function| |FSPECF;elStruveL|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|TranscendentalFunctionCategory|))
        (COND
         ((|HasCategory| |#2| '(|RadicalCategory|))
          (PROGN
           (SPADCALL (QREFELT $ 118) '|%specialDiff|
                     (CONS (|function| |FSPECF;dStruveL|) $)
                     (QREFELT $ 100)))))))
      (QSETREFV $ 120 (SPADCALL '|hankelH1| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 120) (CONS (|function| |FSPECF;elHankelH1|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 120) '|%specialDiff|
                (CONS (|function| |FSPECF;dHankelH1|) $) (QREFELT $ 100))
      (QSETREFV $ 122 (SPADCALL '|hankelH2| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 122) (CONS (|function| |FSPECF;elHankelH2|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 122) '|%specialDiff|
                (CONS (|function| |FSPECF;dHankelH2|) $) (QREFELT $ 100))
      (QSETREFV $ 124 (SPADCALL '|lommelS1| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 124) (CONS (|function| |FSPECF;elLommelS1|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 124) '|%specialDiff|
                (CONS (|function| |FSPECF;dLommelS1|) $) (QREFELT $ 100))
      (QSETREFV $ 126 (SPADCALL '|lommelS2| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 126) (CONS (|function| |FSPECF;elLommelS2|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 126) '|%specialDiff|
                (CONS (|function| |FSPECF;dLommelS2|) $) (QREFELT $ 100))
      (QSETREFV $ 128 (SPADCALL '|kummerM| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 128) (CONS (|function| |FSPECF;elKummerM|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 128) '|%specialDiff|
                (CONS (|function| |FSPECF;dKummerM|) $) (QREFELT $ 100))
      (QSETREFV $ 130 (SPADCALL '|kummerU| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 130) (CONS (|function| |FSPECF;elKummerU|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 130) '|%specialDiff|
                (CONS (|function| |FSPECF;dKummerU|) $) (QREFELT $ 100))
      (QSETREFV $ 132 (SPADCALL '|legendreP| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 132) (CONS (|function| |FSPECF;elLegendreP|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 132) '|%specialDiff|
                (CONS (|function| |FSPECF;dLegendreP|) $) (QREFELT $ 100))
      (QSETREFV $ 134 (SPADCALL '|legendreQ| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 134) (CONS (|function| |FSPECF;elLegendreQ|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 134) '|%specialDiff|
                (CONS (|function| |FSPECF;dLegendreQ|) $) (QREFELT $ 100))
      (QSETREFV $ 136 (SPADCALL '|kelvinBei| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 136) (CONS (|function| |FSPECF;elKelvinBei|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|RadicalCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 136) '|%specialDiff|
                   (CONS (|function| |FSPECF;dKelvinBei|) $)
                   (QREFELT $ 100)))))
      (QSETREFV $ 139 (SPADCALL '|kelvinBer| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 139) (CONS (|function| |FSPECF;elKelvinBer|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|RadicalCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 139) '|%specialDiff|
                   (CONS (|function| |FSPECF;dKelvinBer|) $)
                   (QREFELT $ 100)))))
      (QSETREFV $ 140 (SPADCALL '|kelvinKei| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 140) (CONS (|function| |FSPECF;elKelvinKei|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|RadicalCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 140) '|%specialDiff|
                   (CONS (|function| |FSPECF;dKelvinKei|) $)
                   (QREFELT $ 100)))))
      (QSETREFV $ 143 (SPADCALL '|kelvinKer| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 143) (CONS (|function| |FSPECF;elKelvinKer|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|RadicalCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 143) '|%specialDiff|
                   (CONS (|function| |FSPECF;dKelvinKer|) $)
                   (QREFELT $ 100)))))
      (QSETREFV $ 144 (SPADCALL '|ellipticK| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 144) (CONS (|function| |FSPECF;elEllipticK|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 144) (CONS (|function| |FSPECF;dEllipticK|) $)
                (QREFELT $ 150))
      (QSETREFV $ 151 (SPADCALL '|ellipticE| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 151) (CONS (|function| |FSPECF;elEllipticE|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 151) (CONS (|function| |FSPECF;dEllipticE|) $)
                (QREFELT $ 150))
      (QSETREFV $ 152 (SPADCALL '|ellipticE2| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 152) (CONS (|function| |FSPECF;elEllipticE2|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|RadicalCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 152)
                   (LIST (CONS (|function| |FSPECF;eEllipticE2Gradz|) $)
                         (CONS (|function| |FSPECF;eEllipticE2Gradm|) $))
                   (QREFELT $ 157)))))
      (SPADCALL (QREFELT $ 152) (CONS (|function| |FSPECF;inEllipticE2|) $)
                (QREFELT $ 162))
      (QSETREFV $ 163 (SPADCALL '|ellipticF| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 163) (CONS (|function| |FSPECF;elEllipticF|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|RadicalCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 163)
                   (LIST (CONS (|function| |FSPECF;eEllipticFGradz|) $)
                         (CONS (|function| |FSPECF;eEllipticFGradm|) $))
                   (QREFELT $ 157)))))
      (QSETREFV $ 164 (SPADCALL '|ellipticPi| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 164) (CONS (|function| |FSPECF;elEllipticPi|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|RadicalCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 164)
                   (LIST (CONS (|function| |FSPECF;eEllipticPiGradz|) $)
                         (CONS (|function| |FSPECF;eEllipticPiGradn|) $)
                         (CONS (|function| |FSPECF;eEllipticPiGradm|) $))
                   (QREFELT $ 157)))))
      (QSETREFV $ 166 (SPADCALL '|jacobiSn| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 166) (CONS (|function| |FSPECF;elJacobiSn|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 166)
                (LIST (CONS (|function| |FSPECF;eJacobiSnGradz|) $)
                      (CONS (|function| |FSPECF;eJacobiSnGradm|) $))
                (QREFELT $ 157))
      (QSETREFV $ 175 (SPADCALL '|jacobiCn| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 175) (CONS (|function| |FSPECF;elJacobiCn|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 175)
                (LIST (CONS (|function| |FSPECF;eJacobiCnGradz|) $)
                      (CONS (|function| |FSPECF;eJacobiCnGradm|) $))
                (QREFELT $ 157))
      (QSETREFV $ 176 (SPADCALL '|jacobiDn| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 176) (CONS (|function| |FSPECF;elJacobiDn|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 176)
                (LIST (CONS (|function| |FSPECF;eJacobiDnGradz|) $)
                      (CONS (|function| |FSPECF;eJacobiDnGradm|) $))
                (QREFELT $ 157))
      (QSETREFV $ 177 (SPADCALL '|jacobiTheta| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 177) (CONS (|function| |FSPECF;elJacobiTheta|) $)
                (QREFELT $ 96))
      (QSETREFV $ 179 (SPADCALL '|lerchPhi| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 179) (CONS (|function| |FSPECF;elLerchPhi|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 179) '|%specialDiff|
                (CONS (|function| |FSPECF;dLerchPhi|) $) (QREFELT $ 100))
      (QSETREFV $ 181 (SPADCALL '|riemannZeta| (QREFELT $ 12)))
      (SPADCALL (QREFELT $ 181) (CONS (|function| |FSPECF;elRiemannZeta|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|ElementaryFunctionCategory|))
        (PROGN
         (QSETREFV $ 190 (CONS (|dispatchFunction| |FSPECF;iAiryAi;2F;179|) $))
         (QSETREFV $ 191
                   (CONS (|dispatchFunction| |FSPECF;iAiryAiPrime;2F;180|) $))
         (QSETREFV $ 192 (CONS (|dispatchFunction| |FSPECF;iAiryBi;2F;181|) $))
         (QSETREFV $ 193
                   (CONS (|dispatchFunction| |FSPECF;iAiryBiPrime;2F;182|)
                         $))))
       ('T
        (PROGN
         (QSETREFV $ 190 (CONS (|dispatchFunction| |FSPECF;iAiryAi;2F;183|) $))
         (QSETREFV $ 191
                   (CONS (|dispatchFunction| |FSPECF;iAiryAiPrime;2F;184|) $))
         (QSETREFV $ 192 (CONS (|dispatchFunction| |FSPECF;iAiryBi;2F;185|) $))
         (QSETREFV $ 193
                   (CONS (|dispatchFunction| |FSPECF;iAiryBiPrime;2F;186|)
                         $)))))
      (COND
       ((|HasCategory| |#2| '(|ElementaryFunctionCategory|))
        (COND
         ((|HasCategory| |#2| '(|LiouvillianFunctionCategory|))
          (QSETREFV $ 196
                    (CONS (|dispatchFunction| |FSPECF;iiPolylog;3F;188|) $)))
         ('T
          (QSETREFV $ 196
                    (CONS (|dispatchFunction| |FSPECF;iiPolylog;3F;189|) $)))))
       ('T
        (QSETREFV $ 196
                  (CONS (|dispatchFunction| |FSPECF;iiPolylog;3F;190|) $))))
      (COND
       ((|HasSignature| |#1|
                        (LIST '|abs|
                              (LIST (|devaluate| |#1|) (|devaluate| |#1|))))
        (PROGN
         (QSETREFV $ 208 (CONS (|dispatchFunction| |FSPECF;iiabs;2F;196|) $))))
       ('T
        (QSETREFV $ 208 (CONS (|dispatchFunction| |FSPECF;iiabs;2F;197|) $))))
      (COND
       ((|HasCategory| |#1| '(|SpecialFunctionCategory|))
        (PROGN
         (QSETREFV $ 211 (CONS (|dispatchFunction| |FSPECF;iiGamma;2F;198|) $))
         (QSETREFV $ 213 (CONS (|dispatchFunction| |FSPECF;iiBeta;LF;199|) $))
         (QSETREFV $ 215
                   (CONS (|dispatchFunction| |FSPECF;iidigamma;2F;200|) $))
         (QSETREFV $ 217
                   (CONS (|dispatchFunction| |FSPECF;iipolygamma;LF;201|) $))
         (QSETREFV $ 219
                   (CONS (|dispatchFunction| |FSPECF;iiBesselJ;LF;202|) $))
         (QSETREFV $ 221
                   (CONS (|dispatchFunction| |FSPECF;iiBesselY;LF;203|) $))
         (QSETREFV $ 223
                   (CONS (|dispatchFunction| |FSPECF;iiBesselI;LF;204|) $))
         (QSETREFV $ 225
                   (CONS (|dispatchFunction| |FSPECF;iiBesselK;LF;205|) $))
         (QSETREFV $ 227
                   (CONS (|dispatchFunction| |FSPECF;iiAiryAi;2F;206|) $))
         (QSETREFV $ 229
                   (CONS (|dispatchFunction| |FSPECF;iiAiryAiPrime;2F;207|) $))
         (QSETREFV $ 231
                   (CONS (|dispatchFunction| |FSPECF;iiAiryBi;2F;208|) $))
         (QSETREFV $ 231
                   (CONS (|dispatchFunction| |FSPECF;iiAiryBi;2F;209|) $))))
       ('T
        (PROGN
         (COND
          ((|HasCategory| |#1| '(|RetractableTo| (|Integer|)))
           (QSETREFV $ 211
                     (CONS (|dispatchFunction| |FSPECF;iiGamma;2F;210|) $)))
          ('T
           (QSETREFV $ 211
                     (CONS (|dispatchFunction| |FSPECF;iiGamma;2F;211|) $))))
         (QSETREFV $ 213 (CONS (|dispatchFunction| |FSPECF;iiBeta;LF;212|) $))
         (QSETREFV $ 215
                   (CONS (|dispatchFunction| |FSPECF;iidigamma;2F;213|) $))
         (QSETREFV $ 217
                   (CONS (|dispatchFunction| |FSPECF;iipolygamma;LF;214|) $))
         (QSETREFV $ 219
                   (CONS (|dispatchFunction| |FSPECF;iiBesselJ;LF;215|) $))
         (QSETREFV $ 221
                   (CONS (|dispatchFunction| |FSPECF;iiBesselY;LF;216|) $))
         (QSETREFV $ 223
                   (CONS (|dispatchFunction| |FSPECF;iiBesselI;LF;217|) $))
         (QSETREFV $ 225
                   (CONS (|dispatchFunction| |FSPECF;iiBesselK;LF;218|) $))
         (QSETREFV $ 227
                   (CONS (|dispatchFunction| |FSPECF;iiAiryAi;2F;219|) $))
         (QSETREFV $ 229
                   (CONS (|dispatchFunction| |FSPECF;iiAiryAiPrime;2F;220|) $))
         (QSETREFV $ 231
                   (CONS (|dispatchFunction| |FSPECF;iiAiryBi;2F;221|) $))
         (QSETREFV $ 236
                   (CONS (|dispatchFunction| |FSPECF;iiAiryBiPrime;2F;222|)
                         $)))))
      (SPADCALL (QREFELT $ 14) (ELT $ 211) (QREFELT $ 238))
      (SPADCALL (QREFELT $ 13) (ELT $ 208) (QREFELT $ 238))
      (SPADCALL (QREFELT $ 16) (ELT $ 213) (QREFELT $ 96))
      (SPADCALL (QREFELT $ 17) (ELT $ 215) (QREFELT $ 238))
      (SPADCALL (QREFELT $ 18) (ELT $ 217) (QREFELT $ 96))
      (SPADCALL (QREFELT $ 19) (ELT $ 219) (QREFELT $ 96))
      (SPADCALL (QREFELT $ 20) (ELT $ 221) (QREFELT $ 96))
      (SPADCALL (QREFELT $ 21) (ELT $ 223) (QREFELT $ 96))
      (SPADCALL (QREFELT $ 22) (ELT $ 225) (QREFELT $ 96))
      (SPADCALL (QREFELT $ 23) (ELT $ 227) (QREFELT $ 238))
      (SPADCALL (QREFELT $ 24) (ELT $ 229) (QREFELT $ 238))
      (SPADCALL (QREFELT $ 25) (ELT $ 231) (QREFELT $ 238))
      (SPADCALL (QREFELT $ 26) (ELT $ 236) (QREFELT $ 238))
      (SPADCALL (QREFELT $ 27) (CONS (|function| |FSPECF;iLambertW|) $)
                (QREFELT $ 238))
      (SPADCALL (QREFELT $ 28) (CONS (|function| |FSPECF;iPolylog|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 29) (CONS (|function| |FSPECF;iiWeierstrassP|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 30)
                (CONS (|function| |FSPECF;iiWeierstrassPPrime|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 31)
                (CONS (|function| |FSPECF;iiWeierstrassSigma|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 32) (CONS (|function| |FSPECF;iiWeierstrassZeta|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 33) (CONS (|function| |FSPECF;iiHypergeometricF|) $)
                (QREFELT $ 96))
      (SPADCALL (QREFELT $ 34) (CONS (|function| |FSPECF;iiMeijerG|) $)
                (QREFELT $ 96))
      (COND
       ((|HasCategory| |#2| '(|ElementaryFunctionCategory|))
        (PROGN
         (SPADCALL (QREFELT $ 15) '|%specialDiff|
                   (CONS (|function| |FSPECF;iGamma2|) $) (QREFELT $ 100)))))
      (SPADCALL (QREFELT $ 15) (CONS (|function| |FSPECF;inGamma2|) $)
                (QREFELT $ 162))
      (COND
       ((|testBitVector| |pv$| 1)
        (PROGN
         (SPADCALL (QREFELT $ 33) '|%diffDisp|
                   (CONS (|function| |FSPECF;ddhyper|) $) (QREFELT $ 100))
         (SPADCALL (QREFELT $ 34) '|%diffDisp|
                   (CONS (|function| |FSPECF;ddmeijer|) $) (QREFELT $ 100))
         (SPADCALL (QREFELT $ 33) (CONS (|function| |FSPECF;dhyper|) $)
                   (QREFELT $ 270))
         (SPADCALL (QREFELT $ 34) (CONS (|function| |FSPECF;dmeijer|) $)
                   (QREFELT $ 270))
         (SPADCALL (QREFELT $ 33) '|%specialDiff|
                   (CONS (|function| |FSPECF;dvhypergeom|) $) (QREFELT $ 100))
         (SPADCALL (QREFELT $ 34) '|%specialDiff|
                   (CONS (|function| |FSPECF;dvmeijer|) $) (QREFELT $ 100))
         (SPADCALL (QREFELT $ 33) (CONS (|function| |FSPECF;inhyper|) $)
                   (QREFELT $ 162))
         (SPADCALL (QREFELT $ 34) (CONS (|function| |FSPECF;inmeijer|) $)
                   (QREFELT $ 162)))))
      (SPADCALL (QREFELT $ 13) (CONS #'|FunctionalSpecialFunction!0| $)
                (QREFELT $ 150))
      (SPADCALL (QREFELT $ 14) (CONS #'|FunctionalSpecialFunction!1| $)
                (QREFELT $ 150))
      (SPADCALL (QREFELT $ 16)
                (LIST (CONS (|function| |FSPECF;iBetaGrad1|) $)
                      (CONS (|function| |FSPECF;iBetaGrad2|) $))
                (QREFELT $ 157))
      (SPADCALL (QREFELT $ 17) (CONS #'|FunctionalSpecialFunction!2| $)
                (QREFELT $ 150))
      (SPADCALL (QREFELT $ 23) (ELT $ 48) (QREFELT $ 150))
      (SPADCALL (QREFELT $ 24) (CONS #'|FunctionalSpecialFunction!3| $)
                (QREFELT $ 150))
      (SPADCALL (QREFELT $ 25) (ELT $ 50) (QREFELT $ 150))
      (SPADCALL (QREFELT $ 26) (CONS #'|FunctionalSpecialFunction!4| $)
                (QREFELT $ 150))
      (SPADCALL (QREFELT $ 27) (CONS (|function| |FSPECF;dLambertW|) $)
                (QREFELT $ 150))
      (SPADCALL (QREFELT $ 29)
                (LIST (CONS (|function| |FSPECF;iWeierstrassPGrad1|) $)
                      (CONS (|function| |FSPECF;iWeierstrassPGrad2|) $)
                      (CONS (|function| |FSPECF;iWeierstrassPGrad3|) $))
                (QREFELT $ 157))
      (SPADCALL (QREFELT $ 30)
                (LIST (CONS (|function| |FSPECF;iWeierstrassPPrimeGrad1|) $)
                      (CONS (|function| |FSPECF;iWeierstrassPPrimeGrad2|) $)
                      (CONS (|function| |FSPECF;iWeierstrassPPrimeGrad3|) $))
                (QREFELT $ 157))
      (SPADCALL (QREFELT $ 31)
                (LIST (CONS (|function| |FSPECF;iWeierstrassSigmaGrad1|) $)
                      (CONS (|function| |FSPECF;iWeierstrassSigmaGrad2|) $)
                      (CONS (|function| |FSPECF;iWeierstrassSigmaGrad3|) $))
                (QREFELT $ 157))
      (SPADCALL (QREFELT $ 32)
                (LIST (CONS (|function| |FSPECF;iWeierstrassZetaGrad1|) $)
                      (CONS (|function| |FSPECF;iWeierstrassZetaGrad2|) $)
                      (CONS (|function| |FSPECF;iWeierstrassZetaGrad3|) $))
                (QREFELT $ 157))
      (SPADCALL (QREFELT $ 18) '|%specialDiff|
                (CONS (|function| |FSPECF;ipolygamma|) $) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 19) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselJ|) $) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 20) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselY|) $) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 21) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselI|) $) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 22) '|%specialDiff|
                (CONS (|function| |FSPECF;iBesselK|) $) (QREFELT $ 100))
      (SPADCALL (QREFELT $ 28) '|%specialDiff|
                (CONS (|function| |FSPECF;dPolylog|) $) (QREFELT $ 100))
      $)))) 

(DEFUN |FunctionalSpecialFunction!4| (|x| $)
  (SPADCALL |x| (SPADCALL |x| (QREFELT $ 49)) (QREFELT $ 90))) 

(DEFUN |FunctionalSpecialFunction!3| (|x| $)
  (SPADCALL |x| (SPADCALL |x| (QREFELT $ 47)) (QREFELT $ 90))) 

(DEFUN |FunctionalSpecialFunction!2| (|x| $)
  (SPADCALL (|spadConstant| $ 63) |x| (QREFELT $ 42))) 

(DEFUN |FunctionalSpecialFunction!1| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 41)) (SPADCALL |x| (QREFELT $ 37))
            (QREFELT $ 90))) 

(DEFUN |FunctionalSpecialFunction!0| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 36)) (SPADCALL |x| (QREFELT $ 271))
            (QREFELT $ 90))) 

(MAKEPROP '|FunctionalSpecialFunction| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) 'SPECIAL
              (|BasicOperator|) (|Symbol|) (|CommonOperators|) (0 . |operator|)
              '|opabs| '|opGamma| '|opGamma2| '|opBeta| '|opdigamma|
              '|oppolygamma| '|opBesselJ| '|opBesselY| '|opBesselI|
              '|opBesselK| '|opAiryAi| '|opAiryAiPrime| '|opAiryBi|
              '|opAiryBiPrime| '|opLambertW| '|opPolylog| '|opWeierstrassP|
              '|opWeierstrassPPrime| '|opWeierstrassSigma| '|opWeierstrassZeta|
              '|opHypergeometricF| '|opMeijerG| (5 . |elt|) |FSPECF;abs;2F;1|
              |FSPECF;Gamma;2F;2| (11 . |elt|) |FSPECF;Gamma;3F;3|
              |FSPECF;Beta;3F;4| |FSPECF;digamma;2F;5| |FSPECF;polygamma;3F;6|
              |FSPECF;besselJ;3F;7| |FSPECF;besselY;3F;8| |FSPECF;besselI;3F;9|
              |FSPECF;besselK;3F;10| |FSPECF;airyAi;2F;11|
              |FSPECF;airyAiPrime;2F;12| |FSPECF;airyBi;2F;13|
              |FSPECF;airyBiPrime;2F;14| |FSPECF;lambertW;2F;15|
              |FSPECF;polylog;3F;16| (18 . |elt|) |FSPECF;weierstrassP;4F;17|
              |FSPECF;weierstrassPPrime;4F;18| |FSPECF;weierstrassSigma;4F;19|
              |FSPECF;weierstrassZeta;4F;20| (26 . |Zero|) (30 . |Zero|)
              (|Boolean|) (34 . =) (40 . |One|) (44 . |One|) (|Integer|)
              (48 . |coerce|) (|List| 7) (53 . |concat|) (|List| $)
              (59 . |elt|) (65 . |hypergeometricF|) (72 . |meijerG|)
              (81 . |operator|) '|opdiff| (86 . |new|) (90 . |coerce|) '|dm|
              (|Union| $ '"failed") (95 . |recip|) '|ahalf| '|athird|
              '|afourth| '|asixth| (|PositiveInteger|) (100 . *) '|twothirds|
              '|threehalfs| (106 . |elt|) (112 . |differentiate|)
              (118 . |kernel|) (124 . *) (130 . +) '|opWhittakerM|
              |FSPECF;whittakerM;4F;25| (|Mapping| 7 66)
              (|BasicOperatorFunctions1| 7) (136 . |evaluate|) (142 . /)
              (148 . -) (|None|) (154 . |setProperty|) '|opWhittakerW|
              |FSPECF;whittakerW;4F;30| '|opAngerJ| |FSPECF;angerJ;3F;35|
              (161 . |pi|) (165 . |sin|) (170 . -) '|opWeberE|
              |FSPECF;weberE;3F;41| (175 . ^)
              (|SparseMultivariatePolynomial| 6 171) (181 . |One|)
              (185 . |cos|) '|opStruveH| |FSPECF;struveH;3F;47| (190 . ^)
              (196 . |sqrt|) '|opStruveL| |FSPECF;struveL;3F;52| '|opHankelH1|
              |FSPECF;hankelH1;3F;57| '|opHankelH2| |FSPECF;hankelH2;3F;62|
              '|opLommelS1| |FSPECF;lommelS1;4F;67| '|opLommelS2|
              |FSPECF;lommelS2;4F;72| '|opKummerM| |FSPECF;kummerM;4F;77|
              '|opKummerU| |FSPECF;kummerU;4F;82| '|opLegendreP|
              |FSPECF;legendreP;4F;87| '|opLegendreQ| |FSPECF;legendreQ;4F;92|
              '|opKelvinBei| |FSPECF;kelvinBei;3F;97| |FSPECF;kelvinBer;3F;102|
              '|opKelvinBer| '|opKelvinKei| |FSPECF;kelvinKei;3F;107|
              |FSPECF;kelvinKer;3F;112| '|opKelvinKer| '|opEllipticK|
              |FSPECF;ellipticK;2F;117| |FSPECF;ellipticE;2F;121|
              (|Fraction| 64) (201 . |One|) (|Mapping| 7 7)
              (205 . |derivative|) '|opEllipticE| '|opEllipticE2|
              |FSPECF;ellipticE;3F;125| (211 . ^) |FSPECF;ellipticF;3F;131|
              (|List| 94) (217 . |derivative|) (|InputForm|) (223 . |convert|)
              (228 . |convert|) (|Mapping| 158 254) (233 . |input|)
              '|opEllipticF| '|opEllipticPi| |FSPECF;ellipticPi;4F;136|
              '|opJacobiSn| |FSPECF;jacobiSn;3F;142| (239 . |is?|) (|Kernel| $)
              (245 . |retract|) (|Kernel| 7) (250 . |argument|)
              |FSPECF;jacobiCn;3F;148| |FSPECF;jacobiDn;3F;153| '|opJacobiCn|
              '|opJacobiDn| '|opJacobiTheta| |FSPECF;jacobiTheta;3F;158|
              '|opLerchPhi| |FSPECF;lerchPhi;4F;161| '|opRiemannZeta|
              |FSPECF;riemannZeta;2F;165| (255 . |has?|)
              |FSPECF;belong?;BoB;168| (261 . |is?|) |FSPECF;operator;2Bo;169|
              (267 . |kernel|) (273 . |zero?|) (278 . |smaller?|)
              (284 . |iAiryAi|) (289 . |iAiryAiPrime|) (294 . |iAiryBi|)
              (299 . |iAiryBiPrime|) (304 . |log|) (309 . |dilog|)
              (314 . |iiPolylog|) (320 . |second|) (|Union| 201 '#1="failed")
              (325 . |retractIfCan|) (|Polynomial| 6) (|Fraction| 200)
              (330 . |numer|) (|Union| 6 '#1#) (335 . |retractIfCan|)
              (340 . |denom|) (345 . |abs|) (350 . |coerce|) (355 . |iiabs|)
              (360 . |retractIfCan|) (365 . |Gamma|) (370 . |iiGamma|)
              (375 . |Beta|) (381 . |iiBeta|) (386 . |digamma|)
              (391 . |iidigamma|) (396 . |polygamma|) (402 . |iipolygamma|)
              (407 . |besselJ|) (413 . |iiBesselJ|) (418 . |besselY|)
              (424 . |iiBesselY|) (429 . |besselI|) (435 . |iiBesselI|)
              (440 . |besselK|) (446 . |iiBesselK|) (451 . |airyAi|)
              (456 . |iiAiryAi|) (461 . |airyAiPrime|) (466 . |iiAiryAiPrime|)
              (471 . |airyBi|) (476 . |iiAiryBi|) (481 . |airyBiPrime|)
              (|Union| 64 '#1#) (486 . |retractIfCan|) (491 . |factorial|)
              (496 . |iiAiryBiPrime|) (501 . |third|) (506 . |evaluate|)
              (|List| 10) (512 . |variables|) (517 . |member?|) (523 . |exp|)
              (528 . |retract|) (|List| 64) (|Mapping| 64 7)
              (|ListFunctions2| 7 64) (533 . |map|) (|NonNegativeInteger|)
              (539 . |first|) (545 . |rest|) (551 . 1) (555 . |elt|)
              (561 . |Zero|) (|List| 158) (565 . |rest|) (|SExpression|)
              (571 . |integer|) (|List| 261) (576 . |rest|) (582 . |first|)
              (|OutputForm|) (588 . |bracket|) (593 . |prefix|)
              (599 . |coerce|) (|Mapping| 261 258) (|List| 258)
              (|ListFunctions2| 258 261) (604 . |map|) (610 . |concat|)
              (616 . |display|) (622 . |inv|))
           '#(|whittakerW| 627 |whittakerM| 634 |weierstrassZeta| 641
              |weierstrassSigma| 648 |weierstrassPPrime| 655 |weierstrassP| 662
              |weberE| 669 |struveL| 675 |struveH| 681 |riemannZeta| 687
              |polylog| 692 |polygamma| 698 |operator| 704 |meijerG| 709
              |lommelS2| 718 |lommelS1| 725 |lerchPhi| 732 |legendreQ| 739
              |legendreP| 746 |lambertW| 753 |kummerU| 758 |kummerM| 765
              |kelvinKer| 772 |kelvinKei| 778 |kelvinBer| 784 |kelvinBei| 790
              |jacobiTheta| 796 |jacobiSn| 802 |jacobiDn| 808 |jacobiCn| 814
              |iipolygamma| 820 |iidigamma| 825 |iiabs| 830 |iiPolylog| 835
              |iiGamma| 841 |iiBeta| 846 |iiBesselY| 851 |iiBesselK| 856
              |iiBesselJ| 861 |iiBesselI| 866 |iiAiryBiPrime| 871 |iiAiryBi|
              876 |iiAiryAiPrime| 881 |iiAiryAi| 886 |iAiryBiPrime| 891
              |iAiryBi| 896 |iAiryAiPrime| 901 |iAiryAi| 906 |hypergeometricF|
              911 |hankelH2| 918 |hankelH1| 924 |ellipticPi| 930 |ellipticK|
              937 |ellipticF| 942 |ellipticE| 948 |digamma| 959 |besselY| 964
              |besselK| 970 |besselJ| 976 |besselI| 982 |belong?| 988 |angerJ|
              993 |airyBiPrime| 999 |airyBi| 1004 |airyAiPrime| 1009 |airyAi|
              1014 |abs| 1019 |Gamma| 1024 |Beta| 1035)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 271
                                                 '(1 11 9 10 12 2 7 0 9 0 35 3
                                                   7 0 9 0 0 38 4 7 0 9 0 0 0
                                                   53 0 6 0 58 0 7 0 59 2 7 60
                                                   0 0 61 0 6 0 62 0 7 0 63 1 7
                                                   0 64 65 2 66 0 0 0 67 2 7 0
                                                   9 68 69 3 0 7 66 66 7 70 5 0
                                                   7 66 66 66 66 7 71 1 7 9 9
                                                   72 0 10 0 74 1 7 0 10 75 1 7
                                                   77 0 78 2 7 0 83 0 84 2 66 7
                                                   0 64 87 2 7 0 0 10 88 2 7 0
                                                   9 68 89 2 7 0 0 0 90 2 7 0 0
                                                   0 91 2 95 9 9 94 96 2 7 0 0
                                                   0 97 2 7 0 0 0 98 3 9 0 0 10
                                                   99 100 0 7 0 105 1 7 0 0 106
                                                   1 7 0 0 107 2 7 0 0 64 110 0
                                                   111 0 112 1 7 0 0 113 2 7 0
                                                   0 0 116 1 7 0 0 117 0 147 0
                                                   148 2 95 9 9 149 150 2 7 0 0
                                                   83 154 2 95 9 9 156 157 1 10
                                                   158 0 159 1 158 0 68 160 2 9
                                                   0 0 161 162 2 7 60 0 9 168 1
                                                   7 169 0 170 1 171 66 0 172 2
                                                   9 60 0 10 183 2 9 60 0 10
                                                   185 2 7 0 9 0 187 1 7 60 0
                                                   188 2 7 60 0 0 189 1 0 7 7
                                                   190 1 0 7 7 191 1 0 7 7 192
                                                   1 0 7 7 193 1 7 0 0 194 1 7
                                                   0 0 195 2 0 7 7 7 196 1 66 7
                                                   0 197 1 7 198 0 199 1 201
                                                   200 0 202 1 200 203 0 204 1
                                                   201 200 0 205 1 6 0 0 206 1
                                                   7 0 6 207 1 0 7 7 208 1 7
                                                   203 0 209 1 6 0 0 210 1 0 7
                                                   7 211 2 6 0 0 0 212 1 0 7 66
                                                   213 1 6 0 0 214 1 0 7 7 215
                                                   2 6 0 0 0 216 1 0 7 66 217 2
                                                   6 0 0 0 218 1 0 7 66 219 2 6
                                                   0 0 0 220 1 0 7 66 221 2 6 0
                                                   0 0 222 1 0 7 66 223 2 6 0 0
                                                   0 224 1 0 7 66 225 1 6 0 0
                                                   226 1 0 7 7 227 1 6 0 0 228
                                                   1 0 7 7 229 1 6 0 0 230 1 0
                                                   7 7 231 1 6 0 0 232 1 7 233
                                                   0 234 1 64 0 0 235 1 0 7 7
                                                   236 1 66 7 0 237 2 95 9 9
                                                   149 238 1 7 239 0 240 2 239
                                                   60 10 0 241 1 7 0 0 242 1 7
                                                   64 0 243 2 246 244 245 66
                                                   247 2 66 0 0 248 249 2 66 0
                                                   0 248 250 0 158 0 251 2 244
                                                   64 0 64 252 0 147 0 253 2
                                                   254 0 0 248 255 1 256 64 0
                                                   257 2 258 0 0 248 259 2 258
                                                   0 0 248 260 1 261 0 68 262 2
                                                   261 0 0 68 263 1 10 261 0
                                                   264 2 267 258 265 266 268 2
                                                   258 0 0 0 269 2 9 0 0 265
                                                   270 1 7 0 0 271 3 0 7 7 7 7
                                                   102 3 0 7 7 7 7 93 3 0 7 7 7
                                                   7 57 3 0 7 7 7 7 56 3 0 7 7
                                                   7 7 55 3 0 7 7 7 7 54 2 0 7
                                                   7 7 109 2 0 7 7 7 119 2 0 7
                                                   7 7 115 1 0 7 7 182 2 0 7 7
                                                   7 52 2 0 7 7 7 42 1 0 9 9
                                                   186 5 1 7 66 66 66 66 7 71 3
                                                   0 7 7 7 7 127 3 0 7 7 7 7
                                                   125 3 0 7 7 7 7 180 3 0 7 7
                                                   7 7 135 3 0 7 7 7 7 133 1 0
                                                   7 7 51 3 0 7 7 7 7 131 3 0 7
                                                   7 7 7 129 2 0 7 7 7 142 2 0
                                                   7 7 7 141 2 0 7 7 7 138 2 0
                                                   7 7 7 137 2 0 7 7 7 178 2 0
                                                   7 7 7 167 2 0 7 7 7 174 2 0
                                                   7 7 7 173 1 0 7 66 217 1 0 7
                                                   7 215 1 0 7 7 208 2 0 7 7 7
                                                   196 1 0 7 7 211 1 0 7 66 213
                                                   1 0 7 66 221 1 0 7 66 225 1
                                                   0 7 66 219 1 0 7 66 223 1 0
                                                   7 7 236 1 0 7 7 231 1 0 7 7
                                                   229 1 0 7 7 227 1 0 7 7 193
                                                   1 0 7 7 192 1 0 7 7 191 1 0
                                                   7 7 190 3 1 7 66 66 7 70 2 0
                                                   7 7 7 123 2 0 7 7 7 121 3 0
                                                   7 7 7 7 165 1 0 7 7 145 2 0
                                                   7 7 7 155 1 0 7 7 146 2 0 7
                                                   7 7 153 1 0 7 7 41 2 0 7 7 7
                                                   44 2 0 7 7 7 46 2 0 7 7 7 43
                                                   2 0 7 7 7 45 1 0 60 9 184 2
                                                   0 7 7 7 104 1 0 7 7 50 1 0 7
                                                   7 49 1 0 7 7 48 1 0 7 7 47 1
                                                   0 7 7 36 1 0 7 7 37 2 0 7 7
                                                   7 39 2 0 7 7 7 40)))))
           '|lookupComplete|)) 
