(DEFPROP
    CYCMR2FNS
    (CYCMR2FNS
      (AND LOADING
           (SETQ T22
                 (FOR NEW X IN (PRINT (CATALOG3 (QUOTE (4.0))))
                      FOR NEW Y IN
                      (LABEL1 (QUOTE (NODES 1.0 2.0 3.0 4.0))
                              2.0 X)
                      AS NEW Z IS (COPYSTRUC (LSTRUC Y))
                      XLIST
                      (CONNECT (FINDCTE (CAR (NODENUMS (LABELED Y)))
                                        Z)
                               (FINDCTE (CADR (NODENUMS (LABELED Y)))
                                        Z))
                      Z)))
      T41
      (DEFLIST (QUOTE ((C 4.0)
                       (N 3.0)
                       (I 1.0)
                       (CL 1.0)
                       (BR 1.0)
                       (F 1.0)
                       (S 2.0)
                       (P 5.0)
                       (O 2.0)
                       (SI 4.0)
                       (H 1.0)))
               (QUOTE VALENCE)))
    VALUE)
  (AND LOADING (SETQ
         T22
         (FOR NEW X IN (PRINT (CATALOG3 (QUOTE (4.0))))
              FOR NEW Y IN (LABEL1 (QUOTE (NODES 1.0 2.0 3.0 4.0))
                                   2.0 X)
              AS NEW Z IS (COPYSTRUC (LSTRUC Y))
              XLIST
              (CONNECT (FINDCTE (CAR (NODENUMS (LABELED Y)))
                                Z)
                       (FINDCTE (CADR (NODENUMS (LABELED Y)))
                                Z))
              Z)))
  (DEFPROP T41 (T41 (STRUC ((CTE 1.0 (NIL)
                                 2.0 3.0 4.0 5.0)
                            (CTE 2.0 (NIL)
                                 1.0 3.0 5.0)
                            (CTE 3.0 (NIL)
                                 1.0 2.0 4.0)
                            (CTE 4.0 (NIL)
                                 1.0 3.0 5.0)
                            (CTE 5.0 (NIL)
                                 1.0 2.0 4.0))
                           T41KITE 5.0 NIL)
                    (STRUC ((CTE 1.0 (NIL)
                                 2.0 2.0 4.0 5.0)
                            (CTE 2.0 (NIL)
                                 1.0 1.0 3.0)
                            (CTE 3.0 (NIL)
                                 2.0 4.0 5.0)
                            (CTE 4.0 (NIL)
                                 1.0 3.0 5.0)
                            (CTE 5.0 (NIL)
                                 1.0 3.0 4.0))
                           T41SCOOP 5.0 NIL)
                    (STRUC ((CTE 1.0 (NIL)
                                 2.0 4.0 5.0 5.0)
                            (CTE 2.0 (NIL)
                                 1.0 3.0 3.0)
                            (CTE 3.0 (NIL)
                                 2.0 2.0 4.0)
                            (CTE 4.0 (NIL)
                                 1.0 3.0 5.0)
                            (CTE 5.0 (NIL)
                                 1.0 1.0 4.0))
                           T41FAN 5.0 NIL)
                    (STRUC ((CTE 1.0 (NIL)
                                 2.0 2.0 5.0 5.0)
                            (CTE 2.0 (NIL)
                                 1.0 1.0 3.0)
                            (CTE 3.0 (NIL)
                                 2.0 4.0 4.0)
                            (CTE 4.0 (NIL)
                                 3.0 3.0 5.0)
                            (CTE 5.0 (NIL)
                                 1.0 1.0 4.0))
                           T41RING 5.0 NIL)
                    (STRUC ((CTE 1.0 (NIL)
                                 2.0 3.0 4.0 5.0)
                            (CTE 2.0 (NIL)
                                 1.0 3.0 3.0)
                            (CTE 3.0 (NIL)
                                 1.0 2.0 2.0)
                            (CTE 4.0 (NIL)
                                 1.0 5.0 5.0)
                            (CTE 5.0 (NIL)
                                 1.0 4.0 4.0))
                           T41HOURGLASS 5.0 NIL))
           VALUE)
  (DEFLIST (QUOTE ((C 4.0)
                   (N 3.0)
                   (I 1.0)
                   (CL 1.0)
                   (BR 1.0)
                   (F 1.0)
                   (S 2.0)
                   (P 5.0)
                   (O 2.0)
                   (SI 4.0)
                   (H 1.0)))
           (QUOTE VALENCE))
STOP