
(/VERSIONCHECK 2) 

(DEFUN |SPACE3;convertSpace| (|space| $)
  (PROG (|lllipt| |llprop| |tmpllipt| |tmplipt| #1=#:G706 |point| |tmplprop|
         #2=#:G705 |curve| |lprop| #3=#:G704 |component|)
    (RETURN
     (SEQ
      (COND ((QVELT |space| 4) |space|)
            ('T
             (SEQ (QSETVELT |space| 4 'T)
                  (LETT |lllipt| NIL . #4=(|SPACE3;convertSpace|))
                  (LETT |llprop| NIL . #4#) (LETT |lprop| NIL . #4#)
                  (SEQ (LETT |component| NIL . #4#)
                       (LETT #3# (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                             . #4#)
                       G190
                       (COND
                        ((OR (ATOM #3#)
                             (PROGN (LETT |component| (CAR #3#) . #4#) NIL))
                         #5=(GO G191)))
                       (SEQ
                        (LETT |lprop|
                              (CONS (SPADCALL |component| (QREFELT $ 12))
                                    |lprop|)
                              . #4#)
                        (LETT |tmpllipt| NIL . #4#) (LETT |tmplprop| NIL . #4#)
                        (SEQ (LETT |curve| NIL . #4#)
                             (LETT #2# (SPADCALL |component| (QREFELT $ 10))
                                   . #4#)
                             G190
                             (COND
                              ((OR (ATOM #2#)
                                   (PROGN (LETT |curve| (CAR #2#) . #4#) NIL))
                               #5#))
                             (SEQ
                              (LETT |tmplprop|
                                    (CONS (SPADCALL |curve| (QREFELT $ 12))
                                          |tmplprop|)
                                    . #4#)
                              (LETT |tmplipt| NIL . #4#)
                              (SEQ (LETT |point| NIL . #4#)
                                   (LETT #1# (SPADCALL |curve| (QREFELT $ 10))
                                         . #4#)
                                   G190
                                   (COND
                                    ((OR (ATOM #1#)
                                         (PROGN
                                          (LETT |point| (CAR #1#) . #4#)
                                          NIL))
                                     #5#))
                                   (SEQ
                                    (EXIT
                                     (LETT |tmplipt|
                                           (CONS
                                            (SPADCALL |point| (QREFELT $ 14))
                                            |tmplipt|)
                                           . #4#)))
                                   (LETT #1# (CDR #1#) . #4#) #6=(GO G190) G191
                                   (EXIT NIL))
                              (EXIT
                               (LETT |tmpllipt|
                                     (CONS (NREVERSE |tmplipt|) |tmpllipt|)
                                     . #4#)))
                             (LETT #2# (CDR #2#) . #4#) #6# G191 (EXIT NIL))
                        (LETT |llprop| (CONS (NREVERSE |tmplprop|) |llprop|)
                              . #4#)
                        (EXIT
                         (LETT |lllipt| (CONS (NREVERSE |tmpllipt|) |lllipt|)
                               . #4#)))
                       (LETT #3# (CDR #3#) . #4#) #6# G191 (EXIT NIL))
                  (QSETVELT |space| 2
                            (VECTOR (SPADCALL (QVELT |space| 0) (QREFELT $ 16))
                                    (NREVERSE |lllipt|) (NREVERSE |llprop|)
                                    (NREVERSE |lprop|)))
                  (EXIT |space|)))))))) 

(DEFUN |SPACE3;polygon;$L$;2| (|space| |points| $)
  (PROG (#1=#:G711 |p| |pt|)
    (RETURN
     (SEQ
      (COND
       ((< (LENGTH |points|) 3)
        (|error| "You need at least 3 points to define a polygon"))
       ('T
        (SEQ
         (LETT |pt|
               (SPADCALL (QVELT |space| 0) (|SPADfirst| |points|)
                         (QREFELT $ 18))
               . #2=(|SPACE3;polygon;$L$;2|))
         (LETT |points| (CDR |points|) . #2#)
         (SPADCALL (QVELT |space| 0) |pt| (|SPADfirst| |points|) 1
                   (QREFELT $ 19))
         (SEQ (LETT |p| NIL . #2#) (LETT #1# (CDR |points|) . #2#) G190
              (COND
               ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #2#) NIL))
                (GO G191)))
              (SEQ
               (EXIT (SPADCALL (QVELT |space| 0) |pt| |p| 2 (QREFELT $ 19))))
              (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
         (QSETVELT |space| 4 'NIL) (EXIT |space|)))))))) 

(DEFUN |SPACE3;create3Space;$;3| ($)
  (VECTOR (SPADCALL (QREFELT $ 21)) NIL (VECTOR NIL NIL NIL NIL)
          (VECTOR 0 0 0 0) 'NIL)) 

(DEFUN |SPACE3;create3Space;Ss$;4| (|s| $)
  (VECTOR |s| NIL (VECTOR NIL NIL NIL NIL) (VECTOR 0 0 0 0) 'NIL)) 

(DEFUN |SPACE3;numberOfComponents;$Nni;5| (|space| $)
  (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 10)))) 

(DEFUN |SPACE3;numberOfComposites;$Nni;6| (|space| $)
  (LENGTH (QVELT |space| 1))) 

(DEFUN |SPACE3;merge;L$;7| (|listOfThreeSpaces| $)
  (PROG (#1=#:G726 |ts| |newspace| #2=#:G725 #3=#:G724)
    (RETURN
     (SEQ
      (LETT |newspace|
            (SPADCALL
             (SPADCALL
              (PROGN
               (LETT #3# NIL . #4=(|SPACE3;merge;L$;7|))
               (SEQ (LETT |ts| NIL . #4#) (LETT #2# |listOfThreeSpaces| . #4#)
                    G190
                    (COND
                     ((OR (ATOM #2#) (PROGN (LETT |ts| (CAR #2#) . #4#) NIL))
                      #5=(GO G191)))
                    (SEQ (EXIT (LETT #3# (CONS (QVELT |ts| 0) #3#) . #4#)))
                    (LETT #2# (CDR #2#) . #4#) #6=(GO G190) G191
                    (EXIT (NREVERSE0 #3#))))
              (QREFELT $ 27))
             (QREFELT $ 24))
            . #4#)
      (SEQ (LETT |ts| NIL . #4#) (LETT #1# |listOfThreeSpaces| . #4#) G190
           (COND ((OR (ATOM #1#) (PROGN (LETT |ts| (CAR #1#) . #4#) NIL)) #5#))
           (SEQ
            (EXIT
             (QSETVELT |newspace| 1
                       (APPEND (QVELT |ts| 1) (QVELT |newspace| 1)))))
           (LETT #1# (CDR #1#) . #4#) #6# G191 (EXIT NIL))
      (EXIT |newspace|))))) 

(DEFUN |SPACE3;merge;3$;8| (|s1| |s2| $)
  (SPADCALL (LIST |s1| |s2|) (QREFELT $ 28))) 

(DEFUN |SPACE3;composite;L$;9| (|listOfThreeSpaces| $)
  (PROG (#1=#:G732 |s| #2=#:G731 |space|)
    (RETURN
     (SEQ
      (LETT |space| (SPADCALL (QREFELT $ 23)) . #3=(|SPACE3;composite;L$;9|))
      (QSETVELT |space| 0
                (SPADCALL
                 (PROGN
                  (LETT #2# NIL . #3#)
                  (SEQ (LETT |s| NIL . #3#)
                       (LETT #1# |listOfThreeSpaces| . #3#) G190
                       (COND
                        ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
                         (GO G191)))
                       (SEQ (EXIT (LETT #2# (CONS (QVELT |s| 0) #2#) . #3#)))
                       (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                       (EXIT (NREVERSE0 #2#))))
                 (QREFELT $ 27)))
      (QSETVELT |space| 1 (LIST (SPADCALL (QVELT |space| 0) (QREFELT $ 30))))
      (EXIT |space|))))) 

(DEFUN |SPACE3;components;$L;10| (|space| $)
  (PROG (#1=#:G736 |s| #2=#:G735)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|SPACE3;components;$L;10|))
       (SEQ (LETT |s| NIL . #3#)
            (LETT #1# (SPADCALL (QVELT |space| 0) (QREFELT $ 32)) . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT (LETT #2# (CONS (SPADCALL |s| (QREFELT $ 24)) #2#) . #3#)))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |SPACE3;composites;$L;11| (|space| $)
  (PROG (#1=#:G740 |s| #2=#:G739)
    (RETURN
     (SEQ
      (PROGN
       (LETT #2# NIL . #3=(|SPACE3;composites;$L;11|))
       (SEQ (LETT |s| NIL . #3#) (LETT #1# (QVELT |space| 1) . #3#) G190
            (COND
             ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
              (GO G191)))
            (SEQ
             (EXIT (LETT #2# (CONS (SPADCALL |s| (QREFELT $ 24)) #2#) . #3#)))
            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
            (EXIT (NREVERSE0 #2#)))))))) 

(DEFUN |SPACE3;copy;2$;12| (|space| $)
  (PROG (#1=#:G745 |s| #2=#:G744 |spc|)
    (RETURN
     (SEQ
      (LETT |spc|
            (SPADCALL (SPADCALL (QVELT |space| 0) (QREFELT $ 30))
                      (QREFELT $ 24))
            . #3=(|SPACE3;copy;2$;12|))
      (QSETVELT |spc| 1
                (PROGN
                 (LETT #2# NIL . #3#)
                 (SEQ (LETT |s| NIL . #3#) (LETT #1# (QVELT |space| 1) . #3#)
                      G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2# (CONS (SPADCALL |s| (QREFELT $ 30)) #2#)
                              . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#)))))
      (EXIT |spc|))))) 

(DEFUN |SPACE3;enterPointData;$LNni;13| (|space| |listOfPoints| $)
  (PROG (#1=#:G749 |p|)
    (RETURN
     (SEQ
      (SEQ (LETT |p| NIL . #2=(|SPACE3;enterPointData;$LNni;13|))
           (LETT #1# |listOfPoints| . #2#) G190
           (COND
            ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #2#) NIL)) (GO G191)))
           (SEQ (EXIT (SPADCALL (QVELT |space| 0) |p| (QREFELT $ 36))))
           (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
      (EXIT (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 16)))))))) 

(DEFUN |SPACE3;modifyPointData;$NniP$;14| (|space| |i| |p| $)
  (SEQ (SPADCALL (QVELT |space| 0) |i| |p| (QREFELT $ 38)) (EXIT |space|))) 

(DEFUN |SPACE3;point?;$B;15| (|space| $)
  (PROG (|kid| |c|)
    (RETURN
     (COND
      ((< 1
          (LENGTH
           (LETT |c| (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                 . #1=(|SPACE3;point?;$B;15|))))
       (|error| "This ThreeSpace has more than one component"))
      ((EQL
        (LENGTH (LETT |kid| (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10)) . #1#))
        1)
       (EQL (LENGTH (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 10))) 1))
      ('T 'NIL))))) 

(DEFUN |SPACE3;point;$P;16| (|space| $)
  (COND
   ((SPADCALL |space| (QREFELT $ 41))
    (SPADCALL (SPADCALL (QVELT |space| 0) (LIST 1 1 1) (QREFELT $ 43))
              (QREFELT $ 44)))
   ('T
    (|error|
     "This ThreeSpace holds something other than a single point - try the objects() command")))) 

(DEFUN |SPACE3;point;P$;17| (|aPoint| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |aPoint| (QREFELT $ 46))) 

(DEFUN |SPACE3;point;$P$;18| (|space| |aPoint| $)
  (SEQ (SPADCALL (QVELT |space| 0) NIL |aPoint| (QREFELT $ 48))
       (QSETVELT |space| 4 'NIL) (EXIT |space|))) 

(DEFUN |SPACE3;point;$L$;19| (|space| |l| $)
  (PROG (|pt|)
    (RETURN
     (SEQ (LETT |pt| (SPADCALL |l| (QREFELT $ 50)) |SPACE3;point;$L$;19|)
          (EXIT (SPADCALL |space| |pt| (QREFELT $ 46))))))) 

(DEFUN |SPACE3;point;$Nni$;20| (|space| |i| $)
  (SEQ (SPADCALL (QVELT |space| 0) NIL |i| (QREFELT $ 52))
       (QSETVELT |space| 4 'NIL) (EXIT |space|))) 

(DEFUN |SPACE3;curve?;$B;21| (|space| $)
  (PROG (|c|)
    (RETURN
     (COND
      ((< 1
          (LENGTH
           (LETT |c| (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                 |SPACE3;curve?;$B;21|)))
       (|error| "This ThreeSpace has more than one component"))
      ('T (EQL (LENGTH (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10))) 1)))))) 

(DEFUN |SPACE3;curve;$L;22| (|space| $)
  (PROG (#1=#:G773 |s| #2=#:G772 |spc|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |space| (QREFELT $ 54))
        (SEQ
         (LETT |spc|
               (|SPADfirst|
                (SPADCALL
                 (|SPADfirst| (SPADCALL (QVELT |space| 0) (QREFELT $ 10)))
                 (QREFELT $ 10)))
               . #3=(|SPACE3;curve;$L;22|))
         (EXIT
          (PROGN
           (LETT #2# NIL . #3#)
           (SEQ (LETT |s| NIL . #3#)
                (LETT #1# (SPADCALL |spc| (QREFELT $ 10)) . #3#) G190
                (COND
                 ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
                  (GO G191)))
                (SEQ
                 (EXIT
                  (LETT #2# (CONS (SPADCALL |s| (QREFELT $ 44)) #2#) . #3#)))
                (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                (EXIT (NREVERSE0 #2#)))))))
       ('T
        (|error|
         "This ThreeSpace holds something other than a curve - try the objects() command"))))))) 

(DEFUN |SPACE3;curve;L$;23| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| (QREFELT $ 56))) 

(DEFUN |SPACE3;curve;$L$;24| (|space| |points| $)
  (PROG (#1=#:G778 |p| |path|)
    (RETURN
     (SEQ
      (SPADCALL (QVELT |space| 0) NIL (|SPADfirst| |points|) (QREFELT $ 48))
      (LETT |path|
            (LIST (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 10))) 1)
            . #2=(|SPACE3;curve;$L$;24|))
      (SEQ (LETT |p| NIL . #2#) (LETT #1# (CDR |points|) . #2#) G190
           (COND
            ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #2#) NIL)) (GO G191)))
           (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p| (QREFELT $ 48))))
           (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
      (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;curve;$L$;25| (|space| |points| $)
  (PROG (|pts|)
    (RETURN
     (SEQ
      (LETT |pts| (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
            |SPACE3;curve;$L$;25|)
      (EXIT (SPADCALL |space| |pts| (QREFELT $ 56))))))) 

(DEFUN |SPACE3;closedCurve?;$B;26| (|space| $)
  (PROG (|kid| |c|)
    (RETURN
     (COND
      ((< 1
          (LENGTH
           (LETT |c| (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                 . #1=(|SPACE3;closedCurve?;$B;26|))))
       (|error| "This ThreeSpace has more than one component"))
      ((EQL
        (LENGTH (LETT |kid| (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10)) . #1#))
        1)
       (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 63)))
      ('T 'NIL))))) 

(DEFUN |SPACE3;closedCurve;$L;27| (|space| $)
  (PROG (#1=#:G791 |s| #2=#:G790 |spc|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |space| (QREFELT $ 64))
        (SEQ
         (LETT |spc|
               (|SPADfirst|
                (SPADCALL
                 (|SPADfirst| (SPADCALL (QVELT |space| 0) (QREFELT $ 10)))
                 (QREFELT $ 10)))
               . #3=(|SPACE3;closedCurve;$L;27|))
         (EXIT
          (PROGN
           (LETT #2# NIL . #3#)
           (SEQ (LETT |s| NIL . #3#)
                (LETT #1# (SPADCALL |spc| (QREFELT $ 10)) . #3#) G190
                (COND
                 ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
                  (GO G191)))
                (SEQ
                 (EXIT
                  (LETT #2# (CONS (SPADCALL |s| (QREFELT $ 44)) #2#) . #3#)))
                (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                (EXIT (NREVERSE0 #2#)))))))
       ('T
        (|error|
         "This ThreeSpace holds something other than a curve - try the objects() command"))))))) 

(DEFUN |SPACE3;closedCurve;L$;28| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| (QREFELT $ 66))) 

(DEFUN |SPACE3;closedCurve;$L$;29| (|space| |points| $)
  (PROG (#1=#:G796 |p| |path|)
    (RETURN
     (SEQ
      (SPADCALL (QVELT |space| 0) NIL (|SPADfirst| |points|) (QREFELT $ 48))
      (LETT |path|
            (LIST (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 10))) 1)
            . #2=(|SPACE3;closedCurve;$L$;29|))
      (SPADCALL (QVELT |space| 0) |path| 'T (QREFELT $ 68))
      (SEQ (LETT |p| NIL . #2#) (LETT #1# (CDR |points|) . #2#) G190
           (COND
            ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #2#) NIL)) (GO G191)))
           (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p| (QREFELT $ 48))))
           (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
      (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;closedCurve;$L$;30| (|space| |points| $)
  (PROG (|pts|)
    (RETURN
     (SEQ
      (LETT |pts| (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
            |SPACE3;closedCurve;$L$;30|)
      (EXIT (SPADCALL |space| |pts| (QREFELT $ 66))))))) 

(DEFUN |SPACE3;polygon?;$B;31| (|space| $)
  (PROG (|kid| |c|)
    (RETURN
     (COND
      ((< 1
          (LENGTH
           (LETT |c| (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                 . #1=(|SPACE3;polygon?;$B;31|))))
       (|error| "This ThreeSpace has more than one component"))
      ((EQL
        (LENGTH (LETT |kid| (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10)) . #1#))
        2)
       (COND
        ((EQL (LENGTH (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 10))) 1)
         (< 2
            (LENGTH
             (SPADCALL (SPADCALL |kid| (QREFELT $ 71)) (QREFELT $ 10)))))
        (#2='T 'NIL)))
      (#2# 'NIL))))) 

(DEFUN |SPACE3;polygon;$L;32| (|space| $)
  (PROG (#1=#:G809 |s| #2=#:G808 |listOfPoints| |cs|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |space| (QREFELT $ 72))
        (SEQ
         (LETT |listOfPoints|
               (LIST
                (SPADCALL
                 (|SPADfirst|
                  (SPADCALL
                   (|SPADfirst|
                    (LETT |cs|
                          (SPADCALL
                           (|SPADfirst|
                            (SPADCALL (QVELT |space| 0) (QREFELT $ 10)))
                           (QREFELT $ 10))
                          . #3=(|SPACE3;polygon;$L;32|)))
                   (QREFELT $ 10)))
                 (QREFELT $ 44)))
               . #3#)
         (EXIT
          (PROGN
           (LETT #2# NIL . #3#)
           (SEQ (LETT |s| NIL . #3#)
                (LETT #1#
                      (SPADCALL (SPADCALL |cs| (QREFELT $ 71)) (QREFELT $ 10))
                      . #3#)
                G190
                (COND
                 ((OR (ATOM #1#) (PROGN (LETT |s| (CAR #1#) . #3#) NIL))
                  (GO G191)))
                (SEQ
                 (EXIT
                  (LETT #2# (CONS (SPADCALL |s| (QREFELT $ 44)) #2#) . #3#)))
                (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                (EXIT (NREVERSE0 #2#)))))))
       ('T
        (|error|
         "This ThreeSpace holds something other than a polygon - try the objects() command"))))))) 

(DEFUN |SPACE3;polygon;L$;33| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| (QREFELT $ 20))) 

(DEFUN |SPACE3;polygon;$L$;34| (|space| |points| $)
  (PROG (|pts|)
    (RETURN
     (SEQ
      (LETT |pts| (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
            |SPACE3;polygon;$L$;34|)
      (EXIT (SPADCALL |space| |pts| (QREFELT $ 20))))))) 

(DEFUN |SPACE3;mesh?;$B;35| (|space| $)
  (PROG (#1=#:G819 |eachCurve| |whatSizes| |kid| |c|)
    (RETURN
     (SEQ
      (COND
       ((< 1
           (LENGTH
            (LETT |c| (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                  . #2=(|SPACE3;mesh?;$B;35|))))
        (|error| "This ThreeSpace has more than one component"))
       ((< 1
           (LENGTH
            (LETT |kid| (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10)) . #2#)))
        (SEQ (LETT |whatSizes| (SPADCALL (QREFELT $ 77)) . #2#)
             (SEQ (LETT |eachCurve| NIL . #2#) (LETT #1# |kid| . #2#) G190
                  (COND
                   ((OR (ATOM #1#)
                        (PROGN (LETT |eachCurve| (CAR #1#) . #2#) NIL))
                    (GO G191)))
                  (SEQ
                   (EXIT
                    (SPADCALL (LENGTH (SPADCALL |eachCurve| (QREFELT $ 10)))
                              |whatSizes| (QREFELT $ 78))))
                  (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
             (EXIT
              (COND
               ((< 1 (SPADCALL |whatSizes| (QREFELT $ 80)))
                (|error| "Mesh defined with curves of different sizes"))
               ((< (|SPADfirst| (SPADCALL |whatSizes| (QREFELT $ 81))) 2)
                (|error|
                 "Mesh defined with single point curves (use curve())"))
               (#3='T 'T)))))
       (#3# 'NIL)))))) 

(DEFUN |SPACE3;mesh;$L;36| (|space| $)
  (PROG (|llp| #1=#:G827 |s| #2=#:G826 #3=#:G825 |lpSpace|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |space| (QREFELT $ 82))
        (SEQ (LETT |llp| NIL . #4=(|SPACE3;mesh;$L;36|))
             (SEQ (LETT |lpSpace| NIL . #4#)
                  (LETT #3#
                        (SPADCALL
                         (|SPADfirst|
                          (SPADCALL (QVELT |space| 0) (QREFELT $ 10)))
                         (QREFELT $ 10))
                        . #4#)
                  G190
                  (COND
                   ((OR (ATOM #3#)
                        (PROGN (LETT |lpSpace| (CAR #3#) . #4#) NIL))
                    #5=(GO G191)))
                  (SEQ
                   (EXIT
                    (LETT |llp|
                          (CONS
                           (PROGN
                            (LETT #2# NIL . #4#)
                            (SEQ (LETT |s| NIL . #4#)
                                 (LETT #1# (SPADCALL |lpSpace| (QREFELT $ 10))
                                       . #4#)
                                 G190
                                 (COND
                                  ((OR (ATOM #1#)
                                       (PROGN (LETT |s| (CAR #1#) . #4#) NIL))
                                   #5#))
                                 (SEQ
                                  (EXIT
                                   (LETT #2#
                                         (CONS (SPADCALL |s| (QREFELT $ 44))
                                               #2#)
                                         . #4#)))
                                 (LETT #1# (CDR #1#) . #4#) #6=(GO G190) G191
                                 (EXIT (NREVERSE0 #2#))))
                           |llp|)
                          . #4#)))
                  (LETT #3# (CDR #3#) . #4#) #6# G191 (EXIT NIL))
             (EXIT |llp|)))
       ('T
        (|error|
         "This ThreeSpace holds something other than a mesh - try the objects() command"))))))) 

(DEFUN |SPACE3;mesh;L$;37| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| 'NIL 'NIL (QREFELT $ 85))) 

(DEFUN |SPACE3;mesh;L2B$;38| (|points| |prop1| |prop2| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| |prop1| |prop2| (QREFELT $ 85))) 

(DEFUN |SPACE3;mesh;$LLSscp$;39| (|space| |llpoints| |lprops| |prop| $)
  (PROG (|pts| #1=#:G834 |points| #2=#:G833)
    (RETURN
     (SEQ
      (LETT |pts|
            (PROGN
             (LETT #2# NIL . #3=(|SPACE3;mesh;$LLSscp$;39|))
             (SEQ (LETT |points| NIL . #3#) (LETT #1# |llpoints| . #3#) G190
                  (COND
                   ((OR (ATOM #1#) (PROGN (LETT |points| (CAR #1#) . #3#) NIL))
                    (GO G191)))
                  (SEQ
                   (EXIT
                    (LETT #2#
                          (CONS (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
                                #2#)
                          . #3#)))
                  (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                  (EXIT (NREVERSE0 #2#))))
            . #3#)
      (EXIT (SPADCALL |space| |pts| |lprops| |prop| (QREFELT $ 89))))))) 

(DEFUN |SPACE3;mesh;$LLSscp$;40| (|space| |llp| |lprops| |prop| $)
  (PROG (#1=#:G844 |p| |path| #2=#:G842 |lp| #3=#:G843 |aProp| |count|
         #4=#:G841)
    (RETURN
     (SEQ
      (SPADCALL (QVELT |space| 0) NIL (|SPADfirst| (|SPADfirst| |llp|))
                (QREFELT $ 48))
      (SPADCALL (QVELT |space| 0)
                (LETT |path|
                      (LIST
                       (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 10))))
                      . #5=(|SPACE3;mesh;$LLSscp$;40|))
                |prop| (QREFELT $ 92))
      (LETT |path| (APPEND |path| (LIST 1)) . #5#)
      (SPADCALL (QVELT |space| 0) |path| (|SPADfirst| |lprops|) (QREFELT $ 92))
      (SEQ (LETT |p| NIL . #5#) (LETT #4# (CDR (|SPADfirst| |llp|)) . #5#) G190
           (COND
            ((OR (ATOM #4#) (PROGN (LETT |p| (CAR #4#) . #5#) NIL))
             #6=(GO G191)))
           (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p| (QREFELT $ 48))))
           (LETT #4# (CDR #4#) . #5#) #7=(GO G190) G191 (EXIT NIL))
      (SEQ (LETT |count| 2 . #5#) (LETT |aProp| NIL . #5#)
           (LETT #3# (CDR |lprops|) . #5#) (LETT |lp| NIL . #5#)
           (LETT #2# (CDR |llp|) . #5#) G190
           (COND
            ((OR (ATOM #2#) (PROGN (LETT |lp| (CAR #2#) . #5#) NIL) (ATOM #3#)
                 (PROGN (LETT |aProp| (CAR #3#) . #5#) NIL))
             #6#))
           (SEQ
            (SPADCALL (QVELT |space| 0)
                      (LETT |path| (LIST (|SPADfirst| |path|)) . #5#)
                      (|SPADfirst| |lp|) (QREFELT $ 48))
            (LETT |path| (APPEND |path| (LIST |count|)) . #5#)
            (SPADCALL (QVELT |space| 0) |path| |aProp| (QREFELT $ 92))
            (EXIT
             (SEQ (LETT |p| NIL . #5#) (LETT #1# (CDR |lp|) . #5#) G190
                  (COND
                   ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #5#) NIL))
                    #6#))
                  (SEQ
                   (EXIT
                    (SPADCALL (QVELT |space| 0) |path| |p| (QREFELT $ 48))))
                  (LETT #1# (CDR #1#) . #5#) #7# G191 (EXIT NIL))))
           (LETT #2#
                 (PROG1 (CDR #2#)
                   (LETT #3#
                         (PROG1 (CDR #3#)
                           (LETT |count| (QSADD1 |count|) . #5#))
                         . #5#))
                 . #5#)
           #7# G191 (EXIT NIL))
      (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;mesh;$L2B$;41| (|space| |llpoints| |prop1| |prop2| $)
  (PROG (|pts| #1=#:G849 |points| #2=#:G848)
    (RETURN
     (SEQ
      (LETT |pts|
            (PROGN
             (LETT #2# NIL . #3=(|SPACE3;mesh;$L2B$;41|))
             (SEQ (LETT |points| NIL . #3#) (LETT #1# |llpoints| . #3#) G190
                  (COND
                   ((OR (ATOM #1#) (PROGN (LETT |points| (CAR #1#) . #3#) NIL))
                    (GO G191)))
                  (SEQ
                   (EXIT
                    (LETT #2#
                          (CONS (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
                                #2#)
                          . #3#)))
                  (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                  (EXIT (NREVERSE0 #2#))))
            . #3#)
      (EXIT (SPADCALL |space| |pts| |prop1| |prop2| (QREFELT $ 85))))))) 

(DEFUN |SPACE3;mesh;$L2B$;42| (|space| |llp| |prop1| |prop2| $)
  (PROG (#1=#:G858 |p| |path| #2=#:G857 |lp| |count| #3=#:G856 |propB| |propA|)
    (RETURN
     (SEQ
      (LETT |propA| (SPADCALL (QREFELT $ 94)) . #4=(|SPACE3;mesh;$L2B$;42|))
      (SPADCALL |propA| |prop1| (QREFELT $ 95))
      (LETT |propB| (SPADCALL (QREFELT $ 94)) . #4#)
      (SPADCALL |propB| |prop2| (QREFELT $ 95))
      (SPADCALL (QVELT |space| 0) NIL (|SPADfirst| (|SPADfirst| |llp|))
                (QREFELT $ 48))
      (SPADCALL (QVELT |space| 0)
                (LETT |path|
                      (LIST
                       (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 10))))
                      . #4#)
                |propB| (QREFELT $ 92))
      (LETT |path| (APPEND |path| (LIST 1)) . #4#)
      (SPADCALL (QVELT |space| 0) |path| |propA| (QREFELT $ 92))
      (SEQ (LETT |p| NIL . #4#) (LETT #3# (CDR (|SPADfirst| |llp|)) . #4#) G190
           (COND
            ((OR (ATOM #3#) (PROGN (LETT |p| (CAR #3#) . #4#) NIL))
             #5=(GO G191)))
           (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p| (QREFELT $ 48))))
           (LETT #3# (CDR #3#) . #4#) #6=(GO G190) G191 (EXIT NIL))
      (SEQ (LETT |count| 2 . #4#) (LETT |lp| NIL . #4#)
           (LETT #2# (CDR |llp|) . #4#) G190
           (COND ((OR (ATOM #2#) (PROGN (LETT |lp| (CAR #2#) . #4#) NIL)) #5#))
           (SEQ
            (SPADCALL (QVELT |space| 0)
                      (LETT |path| (LIST (|SPADfirst| |path|)) . #4#)
                      (|SPADfirst| |lp|) (QREFELT $ 48))
            (LETT |path| (APPEND |path| (LIST |count|)) . #4#)
            (SPADCALL (QVELT |space| 0) |path| |propA| (QREFELT $ 92))
            (EXIT
             (SEQ (LETT |p| NIL . #4#) (LETT #1# (CDR |lp|) . #4#) G190
                  (COND
                   ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #4#) NIL))
                    #5#))
                  (SEQ
                   (EXIT
                    (SPADCALL (QVELT |space| 0) |path| |p| (QREFELT $ 48))))
                  (LETT #1# (CDR #1#) . #4#) #6# G191 (EXIT NIL))))
           (LETT #2# (PROG1 (CDR #2#) (LETT |count| (QSADD1 |count|) . #4#))
                 . #4#)
           #6# G191 (EXIT NIL))
      (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;lp;$L;43| (|space| $)
  (SEQ
   (COND
    ((NULL (QVELT |space| 4))
     (LETT |space| (|SPACE3;convertSpace| |space| $) |SPACE3;lp;$L;43|)))
   (EXIT (QVELT (QVELT |space| 2) 0)))) 

(DEFUN |SPACE3;lllip;$L;44| (|space| $)
  (SEQ
   (COND
    ((NULL (QVELT |space| 4))
     (LETT |space| (|SPACE3;convertSpace| |space| $) |SPACE3;lllip;$L;44|)))
   (EXIT (QVELT (QVELT |space| 2) 1)))) 

(DEFUN |SPACE3;llprop;$L;45| (|space| $)
  (SEQ
   (COND
    ((NULL (QVELT |space| 4))
     (LETT |space| (|SPACE3;convertSpace| |space| $) |SPACE3;llprop;$L;45|)))
   (EXIT (QVELT (QVELT |space| 2) 2)))) 

(DEFUN |SPACE3;lprop;$L;46| (|space| $)
  (SEQ
   (COND
    ((NULL (QVELT |space| 4))
     (LETT |space| (|SPACE3;convertSpace| |space| $) |SPACE3;lprop;$L;46|)))
   (EXIT (QVELT (QVELT |space| 2) 3)))) 

(DEFUN |SPACE3;objects;$R;47| (|space| $)
  (PROG (|numConstructs| |numPolys| |numCurves| |numPts| |kid| #1=#:G888
         |component|)
    (RETURN
     (SEQ
      (COND
       ((NULL (QVELT |space| 4))
        (LETT |space| (|SPACE3;convertSpace| |space| $)
              . #2=(|SPACE3;objects;$R;47|))))
      (LETT |numPts| 0 . #2#) (LETT |numCurves| 0 . #2#)
      (LETT |numPolys| 0 . #2#) (LETT |numConstructs| 0 . #2#)
      (SEQ (LETT |component| NIL . #2#)
           (LETT #1# (SPADCALL (QVELT |space| 0) (QREFELT $ 10)) . #2#) G190
           (COND
            ((OR (ATOM #1#) (PROGN (LETT |component| (CAR #1#) . #2#) NIL))
             (GO G191)))
           (SEQ
            (EXIT
             (COND
              ((EQL
                (LENGTH
                 (LETT |kid| (SPADCALL |component| (QREFELT $ 10)) . #2#))
                1)
               (COND
                ((EQL (LENGTH (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 10))) 1)
                 (LETT |numPts| (+ |numPts| 1) . #2#))
                ('T (LETT |numCurves| (+ |numCurves| 1) . #2#))))
              ('T
               (SEQ
                (COND
                 ((EQL (LENGTH |kid|) 2)
                  (COND
                   ((EQL (LENGTH (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 10)))
                         1)
                    (COND
                     ((NULL
                       (EQL
                        (LENGTH
                         (SPADCALL (|SPADfirst| (CDR |kid|)) (QREFELT $ 10)))
                        1))
                      (EXIT (LETT |numPolys| (+ |numPolys| 1) . #2#))))))))
                (EXIT (LETT |numConstructs| (+ |numConstructs| 1) . #2#)))))))
           (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
      (EXIT (VECTOR |numPts| |numCurves| |numPolys| |numConstructs|)))))) 

(DEFUN |SPACE3;check;2$;48| (|s| $)
  (COND ((NULL (QVELT |s| 4)) (|SPACE3;convertSpace| |s| $)) ('T |s|))) 

(PUT '|SPACE3;subspace;$Ss;49| '|SPADreplace| '(XLAM (|s|) (QVELT |s| 0))) 

(DEFUN |SPACE3;subspace;$Ss;49| (|s| $) (QVELT |s| 0)) 

(DEFUN |SPACE3;coerce;$Of;50| (|s| $)
  (PROG (|sizo|)
    (RETURN
     (SEQ
      (COND
       ((NULL (QVELT |s| 4))
        (LETT |s| (|SPACE3;convertSpace| |s| $)
              . #1=(|SPACE3;coerce;$Of;50|))))
      (EXIT
       (SPADCALL
        (LIST "3-Space with "
              (SPADCALL (LETT |sizo| (LENGTH (QVELT (QVELT |s| 2) 1)) . #1#)
                        (QREFELT $ 107))
              (COND ((EQL |sizo| 1) " component") ('T " components")))
        (QREFELT $ 108))))))) 

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

(DEFUN |ThreeSpace;| (|#1|)
  (PROG (|pv$| $ |dv$| DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|ThreeSpace|))
      (LETT |dv$| (LIST '|ThreeSpace| DV$1) . #1#)
      (LETT $ (GETREFV 113) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|ThreeSpace| (LIST DV$1) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7
                (|Record| (|:| |subspaceField| (|SubSpace| 3 |#1|))
                          (|:| |compositesField| (|List| (|SubSpace| 3 |#1|)))
                          (|:| |rep3DField|
                               (|Record| (|:| |lp| (|List| (|Point| |#1|)))
                                         (|:| |llliPt|
                                              (|List|
                                               (|List|
                                                (|List|
                                                 (|NonNegativeInteger|)))))
                                         (|:| |llProp|
                                              (|List|
                                               (|List|
                                                (|SubSpaceComponentProperty|))))
                                         (|:| |lProp|
                                              (|List|
                                               (|SubSpaceComponentProperty|)))))
                          (|:| |objectsField|
                               (|Record| (|:| |points| (|NonNegativeInteger|))
                                         (|:| |curves| (|NonNegativeInteger|))
                                         (|:| |polygons|
                                              (|NonNegativeInteger|))
                                         (|:| |constructs|
                                              (|NonNegativeInteger|))))
                          (|:| |converted| (|Boolean|))))
      $)))) 

(MAKEPROP '|ThreeSpace| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|Rep| (|List| $)
              (|SubSpace| '3 6) (0 . |children|) (|SubSpaceComponentProperty|)
              (5 . |extractProperty|) (|NonNegativeInteger|)
              (10 . |extractIndex|) (|List| 17) (15 . |pointData|) (|Point| 6)
              (20 . |addPoint2|) (26 . |addPointLast|) |SPACE3;polygon;$L$;2|
              (34 . |new|) (38 . |Zero|) |SPACE3;create3Space;$;3|
              |SPACE3;create3Space;Ss$;4| |SPACE3;numberOfComponents;$Nni;5|
              |SPACE3;numberOfComposites;$Nni;6| (42 . |merge|)
              |SPACE3;merge;L$;7| |SPACE3;merge;3$;8| (47 . |deepCopy|)
              |SPACE3;composite;L$;9| (52 . |separate|)
              |SPACE3;components;$L;10| |SPACE3;composites;$L;11|
              |SPACE3;copy;2$;12| (57 . |addPoint|)
              |SPACE3;enterPointData;$LNni;13| (63 . |modifyPoint|)
              |SPACE3;modifyPointData;$NniP$;14| (|Boolean|)
              |SPACE3;point?;$B;15| (|List| 13) (70 . |traverse|)
              (76 . |extractPoint|) |SPACE3;point;$P;16| |SPACE3;point;$P$;18|
              |SPACE3;point;P$;17| (81 . |addPoint|) (|List| 6) (88 . |point|)
              |SPACE3;point;$L$;19| (93 . |addPoint|) |SPACE3;point;$Nni$;20|
              |SPACE3;curve?;$B;21| |SPACE3;curve;$L;22| |SPACE3;curve;$L$;24|
              |SPACE3;curve;L$;23| (|Mapping| 17 49) (|List| 49)
              (|ListFunctions2| 49 17) (100 . |map|) |SPACE3;curve;$L$;25|
              (106 . |extractClosed|) |SPACE3;closedCurve?;$B;26|
              |SPACE3;closedCurve;$L;27| |SPACE3;closedCurve;$L$;29|
              |SPACE3;closedCurve;L$;28| (111 . |closeComponent|)
              |SPACE3;closedCurve;$L$;30| (|List| 9) (118 . |second|)
              |SPACE3;polygon?;$B;31| |SPACE3;polygon;$L;32|
              |SPACE3;polygon;L$;33| |SPACE3;polygon;$L$;34| (|Set| 13)
              (123 . |brace|) (127 . |insert!|) (133 . |One|) (137 . |#|)
              (142 . |parts|) |SPACE3;mesh?;$B;35| (|List| 15)
              |SPACE3;mesh;$L;36| |SPACE3;mesh;$L2B$;42| |SPACE3;mesh;L$;37|
              |SPACE3;mesh;L2B$;38| (|List| 11) |SPACE3;mesh;$LLSscp$;40|
              (|List| 59) |SPACE3;mesh;$LLSscp$;39| (147 . |defineProperty|)
              |SPACE3;mesh;$L2B$;41| (154 . |new|) (158 . |close|)
              |SPACE3;lp;$L;43| (|List| (|List| 42)) |SPACE3;lllip;$L;44|
              (|List| 88) |SPACE3;llprop;$L;45| |SPACE3;lprop;$L;46|
              (|Record| (|:| |points| 13) (|:| |curves| 13) (|:| |polygons| 13)
                        (|:| |constructs| 13))
              |SPACE3;objects;$R;47| |SPACE3;check;2$;48|
              |SPACE3;subspace;$Ss;49| (|OutputForm|) (164 . |coerce|)
              (169 . |hconcat|) |SPACE3;coerce;$Of;50| (|List| 83) (|String|)
              (|SingleInteger|))
           '#(~= 174 |subspace| 180 |polygon?| 185 |polygon| 190 |point?| 212
              |point| 217 |objects| 245 |numberOfComposites| 250
              |numberOfComponents| 255 |modifyPointData| 260 |mesh?| 267 |mesh|
              272 |merge| 321 |lprop| 332 |lp| 337 |llprop| 342 |lllp| 347
              |lllip| 352 |latex| 357 |hash| 362 |enterPointData| 367 |curve?|
              373 |curve| 378 |create3Space| 400 |copy| 409 |composites| 414
              |composite| 419 |components| 424 |coerce| 429 |closedCurve?| 434
              |closedCurve| 439 |check| 461 = 466)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0 0 0 0))
                 (CONS '#(NIL |SetCategory&| |BasicType&| NIL)
                       (CONS
                        '#((|ThreeSpaceCategory| 6) (|SetCategory|)
                           (|BasicType|) (|CoercibleTo| 106))
                        (|makeByteWordVec2| 112
                                            '(1 9 8 0 10 1 9 11 0 12 1 9 13 0
                                              14 1 9 15 0 16 2 9 0 0 17 18 4 9
                                              0 0 0 17 13 19 0 9 0 21 0 6 0 22
                                              1 9 0 8 27 1 9 0 0 30 1 9 8 0 32
                                              2 9 13 0 17 36 3 9 0 0 13 17 38 2
                                              9 0 0 42 43 1 9 17 0 44 3 9 0 0
                                              42 17 48 1 17 0 49 50 3 9 0 0 42
                                              13 52 2 60 15 58 59 61 1 9 40 0
                                              63 3 9 0 0 42 40 68 1 70 9 0 71 0
                                              76 0 77 2 76 0 13 0 78 0 6 0 79 1
                                              76 13 0 80 1 76 42 0 81 3 9 0 0
                                              42 11 92 0 11 0 94 2 11 40 0 40
                                              95 1 13 106 0 107 1 106 0 8 108 2
                                              0 40 0 0 1 1 0 9 0 105 1 0 40 0
                                              72 1 0 15 0 73 2 0 0 0 59 75 1 0
                                              0 15 74 2 0 0 0 15 20 1 0 40 0 41
                                              1 0 17 0 45 1 0 0 17 47 2 0 0 0
                                              49 51 2 0 0 0 13 53 2 0 0 0 17 46
                                              1 0 102 0 103 1 0 13 0 26 1 0 13
                                              0 25 3 0 0 0 13 17 39 1 0 40 0 82
                                              3 0 0 83 40 40 87 1 0 83 0 84 4 0
                                              0 0 90 40 40 93 1 0 0 83 86 4 0 0
                                              0 83 40 40 85 4 0 0 0 83 88 11 89
                                              4 0 0 0 90 88 11 91 1 0 0 8 28 2
                                              0 0 0 0 29 1 0 88 0 101 1 0 15 0
                                              96 1 0 99 0 100 1 0 110 0 1 1 0
                                              97 0 98 1 0 111 0 1 1 0 112 0 1 2
                                              0 13 0 15 37 1 0 40 0 54 1 0 15 0
                                              55 2 0 0 0 59 62 1 0 0 15 57 2 0
                                              0 0 15 56 1 0 0 9 24 0 0 0 23 1 0
                                              0 0 35 1 0 8 0 34 1 0 0 8 31 1 0
                                              8 0 33 1 0 106 0 109 1 0 40 0 64
                                              1 0 15 0 65 2 0 0 0 59 69 1 0 0
                                              15 67 2 0 0 0 15 66 1 0 0 0 104 2
                                              0 40 0 0 1)))))
           '|lookupComplete|)) 
