(GSET(QUOTE T22)
    (FOR NEW X IN (CATALOG3 @ (4))
      FOR NEW Y IN (LABEL1 @ (NODES 1 2 3 4) 2 X)
        AS NEW Z IS (COPYSTRUC (LSTRUC Y))
          XLIST
            (CONNECT
              (FINDCTE (CAR (NODENUMS (LABELED Y))) Z)
              (FINDCTE (CADR (NODENUMS (LABELED Y))) Z))
      Z)))))))))))))
(GSET(QUOTE T41)
    (LIST
      (STRUCTURE
        LASTNODE#
        =
        5
        UGRAPH
        @ T41KITE
        CTABLE
        =
        (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 3 4 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 3 NBRS = @ (1 2 4))
          (CTENTRY NODENUM = 4 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 2 4))))
      (STRUCTURE
        LASTNODE#
        =
        5
        UGRAPH
        @ T41SCOOP
        CTABLE
        =
        (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 2 4 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 1 3))
          (CTENTRY NODENUM = 3 NBRS = @ (2 4 5))
          (CTENTRY NODENUM = 4 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 3 4))))
      (STRUCTURE
        LASTNODE#
        =
        5
        UGRAPH
        @ T41FAN
        CTABLE
        =
        (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 4 5 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 3 3))
          (CTENTRY NODENUM = 3 NBRS = @ (2 2 4))
          (CTENTRY NODENUM = 4 NBRS = @ (1 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 1 4))))
      (STRUCTURE
        LASTNODE#
        =
        5
        UGRAPH
        @ T41RING
        CTABLE
        =
        (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 2 5 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 1 3))
          (CTENTRY NODENUM = 3 NBRS = @ (2 4 4))
          (CTENTRY NODENUM = 4 NBRS = @ (3 3 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 1 4))))
      (STRUCTURE
        LASTNODE#
        =
        5
        UGRAPH
        @ T41HOURGLASS
        CTABLE
        =
        (LIST
          (CTENTRY NODENUM = 1 NBRS = @ (2 3 4 5))
          (CTENTRY NODENUM = 2 NBRS = @ (1 3 3))
          (CTENTRY NODENUM = 3 NBRS = @ (1 2 2))
          (CTENTRY NODENUM = 4 NBRS = @ (1 5 5))
          (CTENTRY NODENUM = 5 NBRS = @ (1 4 4))))))
)))))))))))))
  (DEFLIST (QUOTE ((C 4)
                   (N 3)
                   (I 1)
                   (CL 1)
                   (BR 1)
                   (F 1)
                   (S 2)
                   (P 5)
                   (O 2)
                   (SI 4)
                   (H 1)))
           (QUOTE VALENCE))
)))))))))))))))))