
(/VERSIONCHECK 2) 

(DEFUN |SINT;writeOMSingleInt| (|dev| |x| $)
  (SEQ
   (COND
    ((QSLESSP |x| 0)
     (SEQ (SPADCALL |dev| (QREFELT $ 9))
          (SPADCALL |dev| "arith1" "unaryminus" (QREFELT $ 11))
          (SPADCALL |dev| (QSMINUS |x|) (QREFELT $ 13))
          (EXIT (SPADCALL |dev| (QREFELT $ 14)))))
    ('T (SPADCALL |dev| |x| (QREFELT $ 13)))))) 

(DEFUN |SINT;OMwrite;$S;2| (|x| $)
  (PROG (|s| |dev| |sp|)
    (RETURN
     (SEQ (LETT |s| "" . #1=(|SINT;OMwrite;$S;2|))
          (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) . #1#)
          (LETT |dev| (SPADCALL |sp| (SPADCALL (QREFELT $ 16)) (QREFELT $ 17))
                . #1#)
          (SPADCALL |dev| (QREFELT $ 18)) (|SINT;writeOMSingleInt| |dev| |x| $)
          (SPADCALL |dev| (QREFELT $ 19)) (SPADCALL |dev| (QREFELT $ 20))
          (LETT |s| (OM-STRINGPTRTOSTRING |sp|) . #1#) (EXIT |s|))))) 

(DEFUN |SINT;OMwrite;$BS;3| (|x| |wholeObj| $)
  (PROG (|s| |dev| |sp|)
    (RETURN
     (SEQ (LETT |s| "" . #1=(|SINT;OMwrite;$BS;3|))
          (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) . #1#)
          (LETT |dev| (SPADCALL |sp| (SPADCALL (QREFELT $ 16)) (QREFELT $ 17))
                . #1#)
          (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 18))))
          (|SINT;writeOMSingleInt| |dev| |x| $)
          (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 19))))
          (SPADCALL |dev| (QREFELT $ 20))
          (LETT |s| (OM-STRINGPTRTOSTRING |sp|) . #1#) (EXIT |s|))))) 

(DEFUN |SINT;OMwrite;Omd$V;4| (|dev| |x| $)
  (SEQ (SPADCALL |dev| (QREFELT $ 18)) (|SINT;writeOMSingleInt| |dev| |x| $)
       (EXIT (SPADCALL |dev| (QREFELT $ 19))))) 

(DEFUN |SINT;OMwrite;Omd$BV;5| (|dev| |x| |wholeObj| $)
  (SEQ (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 18))))
       (|SINT;writeOMSingleInt| |dev| |x| $)
       (EXIT (COND (|wholeObj| (SPADCALL |dev| (QREFELT $ 19))))))) 

(PUT '|SINT;reducedSystem;MM;6| '|SPADreplace| '(XLAM (|m|) |m|)) 

(DEFUN |SINT;reducedSystem;MM;6| (|m| $) |m|) 

(DEFUN |SINT;coerce;$Of;7| (|x| $) (SPADCALL |x| (QREFELT $ 30))) 

(PUT '|SINT;convert;$I;8| '|SPADreplace| '(XLAM (|x|) |x|)) 

(DEFUN |SINT;convert;$I;8| (|x| $) |x|) 

(DEFUN |SINT;*;I2$;9| (|i| |y| $) (QSTIMES (SPADCALL |i| (QREFELT $ 33)) |y|)) 

(PUT '|SINT;Zero;$;10| '|SPADreplace| '(XLAM NIL 0)) 

(DEFUN |SINT;Zero;$;10| ($) 0) 

(PUT '|SINT;One;$;11| '|SPADreplace| '(XLAM NIL 1)) 

(DEFUN |SINT;One;$;11| ($) 1) 

(PUT '|SINT;base;$;12| '|SPADreplace| '(XLAM NIL 2)) 

(DEFUN |SINT;base;$;12| ($) 2) 

(PUT '|SINT;max;$;13| '|SPADreplace| '(XLAM NIL MOST-POSITIVE-FIXNUM)) 

(DEFUN |SINT;max;$;13| ($) MOST-POSITIVE-FIXNUM) 

(PUT '|SINT;min;$;14| '|SPADreplace| '(XLAM NIL MOST-NEGATIVE-FIXNUM)) 

(DEFUN |SINT;min;$;14| ($) MOST-NEGATIVE-FIXNUM) 

(PUT '|SINT;=;2$B;15| '|SPADreplace| 'EQL) 

(DEFUN |SINT;=;2$B;15| (|x| |y| $) (EQL |x| |y|)) 

(PUT '|SINT;~;2$;16| '|SPADreplace| 'LOGNOT) 

(DEFUN |SINT;~;2$;16| (|x| $) (LOGNOT |x|)) 

(PUT '|SINT;not;2$;17| '|SPADreplace| 'LOGNOT) 

(DEFUN |SINT;not;2$;17| (|x| $) (LOGNOT |x|)) 

(PUT '|SINT;/\\;3$;18| '|SPADreplace| 'LOGAND) 

(DEFUN |SINT;/\\;3$;18| (|x| |y| $) (LOGAND |x| |y|)) 

(PUT '|SINT;\\/;3$;19| '|SPADreplace| 'LOGIOR) 

(DEFUN |SINT;\\/;3$;19| (|x| |y| $) (LOGIOR |x| |y|)) 

(PUT '|SINT;Not;2$;20| '|SPADreplace| 'LOGNOT) 

(DEFUN |SINT;Not;2$;20| (|x| $) (LOGNOT |x|)) 

(PUT '|SINT;And;3$;21| '|SPADreplace| 'LOGAND) 

(DEFUN |SINT;And;3$;21| (|x| |y| $) (LOGAND |x| |y|)) 

(PUT '|SINT;Or;3$;22| '|SPADreplace| 'LOGIOR) 

(DEFUN |SINT;Or;3$;22| (|x| |y| $) (LOGIOR |x| |y|)) 

(PUT '|SINT;xor;3$;23| '|SPADreplace| 'LOGXOR) 

(DEFUN |SINT;xor;3$;23| (|x| |y| $) (LOGXOR |x| |y|)) 

(PUT '|SINT;<;2$B;24| '|SPADreplace| 'QSLESSP) 

(DEFUN |SINT;<;2$B;24| (|x| |y| $) (QSLESSP |x| |y|)) 

(PUT '|SINT;inc;2$;25| '|SPADreplace| 'QSADD1) 

(DEFUN |SINT;inc;2$;25| (|x| $) (QSADD1 |x|)) 

(PUT '|SINT;dec;2$;26| '|SPADreplace| 'QSSUB1) 

(DEFUN |SINT;dec;2$;26| (|x| $) (QSSUB1 |x|)) 

(PUT '|SINT;-;2$;27| '|SPADreplace| 'QSMINUS) 

(DEFUN |SINT;-;2$;27| (|x| $) (QSMINUS |x|)) 

(PUT '|SINT;+;3$;28| '|SPADreplace| 'QSPLUS) 

(DEFUN |SINT;+;3$;28| (|x| |y| $) (QSPLUS |x| |y|)) 

(PUT '|SINT;-;3$;29| '|SPADreplace| 'QSDIFFERENCE) 

(DEFUN |SINT;-;3$;29| (|x| |y| $) (QSDIFFERENCE |x| |y|)) 

(PUT '|SINT;*;3$;30| '|SPADreplace| 'QSTIMES) 

(DEFUN |SINT;*;3$;30| (|x| |y| $) (QSTIMES |x| |y|)) 

(DEFUN |SINT;^;$Nni$;31| (|x| |n| $) (SPADCALL (EXPT |x| |n|) (QREFELT $ 33))) 

(PUT '|SINT;quo;3$;32| '|SPADreplace| 'QSQUOTIENT) 

(DEFUN |SINT;quo;3$;32| (|x| |y| $) (QSQUOTIENT |x| |y|)) 

(PUT '|SINT;rem;3$;33| '|SPADreplace| 'QSREMAINDER) 

(DEFUN |SINT;rem;3$;33| (|x| |y| $) (QSREMAINDER |x| |y|)) 

(DEFUN |SINT;divide;2$R;34| (|x| |y| $)
  (CONS (QSQUOTIENT |x| |y|) (QSREMAINDER |x| |y|))) 

(PUT '|SINT;gcd;3$;35| '|SPADreplace| 'GCD) 

(DEFUN |SINT;gcd;3$;35| (|x| |y| $) (GCD |x| |y|)) 

(PUT '|SINT;abs;2$;36| '|SPADreplace| 'QSABSVAL) 

(DEFUN |SINT;abs;2$;36| (|x| $) (QSABSVAL |x|)) 

(PUT '|SINT;odd?;$B;37| '|SPADreplace| 'QSODDP) 

(DEFUN |SINT;odd?;$B;37| (|x| $) (QSODDP |x|)) 

(PUT '|SINT;zero?;$B;38| '|SPADreplace| 'QSZEROP) 

(DEFUN |SINT;zero?;$B;38| (|x| $) (QSZEROP |x|)) 

(PUT '|SINT;one?;$B;39| '|SPADreplace| '(XLAM (|x|) (EQL |x| 1))) 

(DEFUN |SINT;one?;$B;39| (|x| $) (EQL |x| 1)) 

(PUT '|SINT;max;3$;40| '|SPADreplace| 'QSMAX) 

(DEFUN |SINT;max;3$;40| (|x| |y| $) (QSMAX |x| |y|)) 

(PUT '|SINT;min;3$;41| '|SPADreplace| 'QSMIN) 

(DEFUN |SINT;min;3$;41| (|x| |y| $) (QSMIN |x| |y|)) 

(PUT '|SINT;hash;2$;42| '|SPADreplace| 'HASHEQ) 

(DEFUN |SINT;hash;2$;42| (|x| $) (HASHEQ |x|)) 

(PUT '|SINT;length;2$;43| '|SPADreplace| 'INTEGER-LENGTH) 

(DEFUN |SINT;length;2$;43| (|x| $) (INTEGER-LENGTH |x|)) 

(PUT '|SINT;shift;3$;44| '|SPADreplace| 'QSLEFTSHIFT) 

(DEFUN |SINT;shift;3$;44| (|x| |n| $) (QSLEFTSHIFT |x| |n|)) 

(PUT '|SINT;mulmod;4$;45| '|SPADreplace| 'QSMULTMOD) 

(DEFUN |SINT;mulmod;4$;45| (|a| |b| |p| $) (QSMULTMOD |a| |b| |p|)) 

(PUT '|SINT;addmod;4$;46| '|SPADreplace| 'QSADDMOD) 

(DEFUN |SINT;addmod;4$;46| (|a| |b| |p| $) (QSADDMOD |a| |b| |p|)) 

(PUT '|SINT;submod;4$;47| '|SPADreplace| 'QSDIFMOD) 

(DEFUN |SINT;submod;4$;47| (|a| |b| |p| $) (QSDIFMOD |a| |b| |p|)) 

(PUT '|SINT;negative?;$B;48| '|SPADreplace| 'QSMINUSP) 

(DEFUN |SINT;negative?;$B;48| (|x| $) (QSMINUSP |x|)) 

(PUT '|SINT;reducedSystem;MVR;49| '|SPADreplace| 'CONS) 

(DEFUN |SINT;reducedSystem;MVR;49| (|m| |v| $) (CONS |m| |v|)) 

(DEFUN |SINT;positiveRemainder;3$;50| (|x| |n| $)
  (PROG (|r|)
    (RETURN
     (SEQ (LETT |r| (QSREMAINDER |x| |n|) |SINT;positiveRemainder;3$;50|)
          (EXIT
           (COND
            ((QSMINUSP |r|)
             (COND ((QSMINUSP |n|) (QSDIFFERENCE |x| |n|))
                   (#1='T (QSPLUS |r| |n|))))
            (#1# |r|))))))) 

(DEFUN |SINT;coerce;I$;51| (|x| $)
  (SEQ
   (COND
    ((NULL (< MOST-POSITIVE-FIXNUM |x|))
     (COND ((NULL (< |x| MOST-NEGATIVE-FIXNUM)) (EXIT |x|)))))
   (EXIT (|error| "integer too large to represent in a machine word")))) 

(DEFUN |SINT;random;$;52| ($)
  (SEQ (SETELT $ 6 (REMAINDER (TIMES 314159269 (QREFELT $ 6)) 2147483647))
       (EXIT (REMAINDER (QREFELT $ 6) 67108864)))) 

(PUT '|SINT;random;2$;53| '|SPADreplace| 'RANDOM) 

(DEFUN |SINT;random;2$;53| (|n| $) (RANDOM |n|)) 

(DEFUN |SINT;unitNormal;$R;54| (|x| $)
  (COND ((QSLESSP |x| 0) (VECTOR -1 (QSMINUS |x|) -1)) ('T (VECTOR 1 |x| 1)))) 

(DEFUN |SingleInteger| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G14514)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|SingleInteger|)
                . #3=(|SingleInteger|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|SingleInteger|
                         (LIST (CONS NIL (CONS 1 (|SingleInteger;|))))))
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#) (HREM |$ConstructorCache| '|SingleInteger|))))))))))) 

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

(MAKEPROP '|SingleInteger| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL '|seed| (|Void|) (|OpenMathDevice|)
              (0 . |OMputApp|) (|String|) (5 . |OMputSymbol|) (|Integer|)
              (12 . |OMputInteger|) (18 . |OMputEndApp|) (|OpenMathEncoding|)
              (23 . |OMencodingXML|) (27 . |OMopenString|) (33 . |OMputObject|)
              (38 . |OMputEndObject|) (43 . |OMclose|) |SINT;OMwrite;$S;2|
              (|Boolean|) |SINT;OMwrite;$BS;3| |SINT;OMwrite;Omd$V;4|
              |SINT;OMwrite;Omd$BV;5| (|Matrix| 12) (|Matrix| $)
              |SINT;reducedSystem;MM;6| (|OutputForm|) (48 . |coerce|)
              |SINT;coerce;$Of;7| |SINT;convert;$I;8| (53 . |coerce|)
              |SINT;*;I2$;9|
              (CONS IDENTITY (FUNCALL (|dispatchFunction| |SINT;Zero;$;10|) $))
              (CONS IDENTITY (FUNCALL (|dispatchFunction| |SINT;One;$;11|) $))
              |SINT;base;$;12| |SINT;max;$;13| |SINT;min;$;14| |SINT;=;2$B;15|
              |SINT;~;2$;16| |SINT;not;2$;17| |SINT;/\\;3$;18| |SINT;\\/;3$;19|
              |SINT;Not;2$;20| |SINT;And;3$;21| |SINT;Or;3$;22|
              |SINT;xor;3$;23| |SINT;<;2$B;24| |SINT;inc;2$;25|
              |SINT;dec;2$;26| |SINT;-;2$;27| |SINT;+;3$;28| |SINT;-;3$;29|
              |SINT;*;3$;30| (|NonNegativeInteger|) |SINT;^;$Nni$;31|
              |SINT;quo;3$;32| |SINT;rem;3$;33|
              (|Record| (|:| |quotient| $) (|:| |remainder| $))
              |SINT;divide;2$R;34| |SINT;gcd;3$;35| |SINT;abs;2$;36|
              |SINT;odd?;$B;37| |SINT;zero?;$B;38| |SINT;one?;$B;39|
              |SINT;max;3$;40| |SINT;min;3$;41| |SINT;hash;2$;42|
              |SINT;length;2$;43| |SINT;shift;3$;44| |SINT;mulmod;4$;45|
              |SINT;addmod;4$;46| |SINT;submod;4$;47| |SINT;negative?;$B;48|
              (|Record| (|:| |mat| 26) (|:| |vec| (|Vector| 12))) (|Vector| $)
              |SINT;reducedSystem;MVR;49| |SINT;positiveRemainder;3$;50|
              |SINT;coerce;I$;51| |SINT;random;$;52| |SINT;random;2$;53|
              (|Record| (|:| |unit| $) (|:| |canonical| $) (|:| |associate| $))
              |SINT;unitNormal;$R;54| (|Union| 86 '"failed") (|Fraction| 12)
              (|Union| $ '"failed") (|Float|) (|DoubleFloat|) (|Pattern| 12)
              (|PatternMatchResult| 12 $) (|InputForm|) (|Union| 12 '"failed")
              (|Union| 95 '"failed") (|List| $)
              (|Record| (|:| |coef| 95) (|:| |generator| $))
              (|Record| (|:| |coef1| $) (|:| |coef2| $)) (|Union| 97 '"failed")
              (|Record| (|:| |coef1| $) (|:| |coef2| $) (|:| |generator| $))
              (|Factored| $) (|SparseUnivariatePolynomial| $)
              (|PositiveInteger|) (|SingleInteger|))
           '#(~= 58 ~ 64 |zero?| 69 |xor| 74 |unitNormal| 80 |unitCanonical| 85
              |unit?| 90 |symmetricRemainder| 95 |subtractIfCan| 101 |submod|
              107 |squareFreePart| 114 |squareFree| 119 |smaller?| 124
              |sizeLess?| 130 |sign| 136 |shift| 141 |sample| 147
              |retractIfCan| 151 |retract| 156 |rem| 161 |reducedSystem| 167
              |recip| 178 |rationalIfCan| 183 |rational?| 188 |rational| 193
              |random| 198 |quo| 207 |principalIdeal| 213 |prime?| 218 |powmod|
              223 |positiveRemainder| 230 |positive?| 236 |permutation| 241
              |patternMatch| 247 |one?| 254 |odd?| 259 |not| 264 |nextItem| 269
              |negative?| 274 |multiEuclidean| 279 |mulmod| 285 |min| 292 |max|
              302 |mask| 312 |length| 317 |lcm| 322 |latex| 333 |invmod| 338
              |init| 344 |inc| 348 |hash| 353 |gcdPolynomial| 363 |gcd| 369
              |factorial| 380 |factor| 385 |extendedEuclidean| 390 |exquo| 403
              |expressIdealMember| 409 |even?| 415 |euclideanSize| 420 |divide|
              425 |differentiate| 431 |dec| 442 |copy| 447 |convert| 452
              |coerce| 477 |characteristic| 497 |bit?| 501 |binomial| 507
              |base| 513 |associates?| 517 |addmod| 523 |abs| 530 ^ 535 |\\/|
              547 |Zero| 553 |Or| 557 |One| 563 |OMwrite| 567 |Not| 591 D 596
              |And| 607 >= 613 > 619 = 625 <= 631 < 637 |/\\| 643 - 649 + 660 *
              666)
           'NIL
           (CONS
            (|makeByteWordVec2| 1
                                '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
                                  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
                                  0 0 0 0 0 0 0 0 0 0))
            (CONS
             '#(|IntegerNumberSystem&| |EuclideanDomain&|
                |UniqueFactorizationDomain&| NIL NIL |GcdDomain&|
                |IntegralDomain&| |Algebra&| NIL NIL |DifferentialRing&|
                |OrderedRing&| NIL NIL |Module&| NIL NIL |Ring&| NIL NIL NIL
                NIL NIL |AbelianGroup&| NIL NIL NIL |OrderedSet&|
                |AbelianMonoid&| |Monoid&| NIL NIL NIL NIL |SemiGroup&|
                |AbelianSemiGroup&| |Logic&| NIL |SetCategory&| NIL NIL NIL NIL
                NIL NIL NIL NIL NIL NIL |RetractableTo&| NIL NIL NIL NIL
                |BasicType&| NIL)
             (CONS
              '#((|IntegerNumberSystem|) (|EuclideanDomain|)
                 (|UniqueFactorizationDomain|) (|PrincipalIdealDomain|)
                 (|OrderedIntegralDomain|) (|GcdDomain|) (|IntegralDomain|)
                 (|Algebra| $$) (|CharacteristicZero|)
                 (|LinearlyExplicitRingOver| 12) (|DifferentialRing|)
                 (|OrderedRing|) (|CommutativeRing|) (|EntireRing|)
                 (|Module| $$) (|OrderedAbelianGroup|) (|BiModule| $$ $$)
                 (|Ring|) (|OrderedCancellationAbelianMonoid|)
                 (|LeftModule| $$) (|Rng|) (|RightModule| $$)
                 (|OrderedAbelianMonoid|) (|AbelianGroup|)
                 (|OrderedAbelianSemiGroup|) (|CancellationAbelianMonoid|)
                 (|SemiRing|) (|OrderedSet|) (|AbelianMonoid|) (|Monoid|)
                 (|SemiRng|) (|StepThrough|) (|PatternMatchable| 12)
                 (|Comparable|) (|SemiGroup|) (|AbelianSemiGroup|) (|Logic|)
                 (|RealConstant|) (|SetCategory|) (|canonicalsClosed|)
                 (|Canonical|) (|OpenMath|) (|multiplicativeValuation|)
                 (|canonicalUnitNormal|) (|ConvertibleTo| 88)
                 (|ConvertibleTo| 89) (|CombinatorialFunctionCategory|)
                 (|ConvertibleTo| 90) (|ConvertibleTo| 92) (|RetractableTo| 12)
                 (|ConvertibleTo| 12) (|noZeroDivisors|) (|CommutativeStar|)
                 (|unitsKnown|) (|BasicType|) (|CoercibleTo| 29))
              (|makeByteWordVec2| 103
                                  '(1 8 7 0 9 3 8 7 0 10 10 11 2 8 7 0 12 13 1
                                    8 7 0 14 0 15 0 16 2 8 0 10 15 17 1 8 7 0
                                    18 1 8 7 0 19 1 8 7 0 20 1 12 29 0 30 1 0 0
                                    12 33 2 0 22 0 0 1 1 0 0 0 41 1 0 22 0 65 2
                                    0 0 0 0 48 1 0 83 0 84 1 0 0 0 1 1 0 22 0 1
                                    2 0 0 0 0 1 2 0 87 0 0 1 3 0 0 0 0 0 74 1 0
                                    0 0 1 1 0 100 0 1 2 0 22 0 0 1 2 0 22 0 0 1
                                    1 0 12 0 1 2 0 0 0 0 71 0 0 0 1 1 0 93 0 1
                                    1 0 12 0 1 2 0 0 0 0 59 1 0 26 27 28 2 0 76
                                    27 77 78 1 0 87 0 1 1 0 85 0 1 1 0 22 0 1 1
                                    0 86 0 1 1 0 0 0 82 0 0 0 81 2 0 0 0 0 58 1
                                    0 96 95 1 1 0 22 0 1 3 0 0 0 0 0 1 2 0 0 0
                                    0 79 1 0 22 0 1 2 0 0 0 0 1 3 0 91 0 90 91
                                    1 1 0 22 0 66 1 0 22 0 64 1 0 0 0 42 1 0 87
                                    0 1 1 0 22 0 75 2 0 94 95 0 1 3 0 0 0 0 0
                                    72 0 0 0 39 2 0 0 0 0 68 0 0 0 38 2 0 0 0 0
                                    67 1 0 0 0 1 1 0 0 0 70 2 0 0 0 0 1 1 0 0
                                    95 1 1 0 10 0 1 2 0 0 0 0 1 0 0 0 1 1 0 0 0
                                    50 1 0 0 0 69 1 0 103 0 1 2 0 101 101 101 1
                                    2 0 0 0 0 62 1 0 0 95 1 1 0 0 0 1 1 0 100 0
                                    1 3 0 98 0 0 0 1 2 0 99 0 0 1 2 0 87 0 0 1
                                    2 0 94 95 0 1 1 0 22 0 1 1 0 56 0 1 2 0 60
                                    0 0 61 1 0 0 0 1 2 0 0 0 56 1 1 0 0 0 51 1
                                    0 0 0 1 1 0 88 0 1 1 0 89 0 1 1 0 90 0 1 1
                                    0 92 0 1 1 0 12 0 32 1 0 0 12 80 1 0 0 12
                                    80 1 0 0 0 1 1 0 29 0 31 0 0 56 1 2 0 22 0
                                    0 1 2 0 0 0 0 1 0 0 0 37 2 0 22 0 0 1 3 0 0
                                    0 0 0 73 1 0 0 0 63 2 0 0 0 56 57 2 0 0 0
                                    102 1 2 0 0 0 0 44 0 0 0 35 2 0 0 0 0 47 0
                                    0 0 36 3 0 7 8 0 22 25 2 0 10 0 22 23 2 0 7
                                    8 0 24 1 0 10 0 21 1 0 0 0 45 1 0 0 0 1 2 0
                                    0 0 56 1 2 0 0 0 0 46 2 0 22 0 0 1 2 0 22 0
                                    0 1 2 0 22 0 0 40 2 0 22 0 0 1 2 0 22 0 0
                                    49 2 0 0 0 0 43 1 0 0 0 52 2 0 0 0 0 54 2 0
                                    0 0 0 53 2 0 0 0 0 55 2 0 0 12 0 34 2 0 0
                                    56 0 1 2 0 0 102 0 1)))))
           '|lookupComplete|)) 

(MAKEPROP '|SingleInteger| 'NILADIC T) 
