(ADVISE1 @CATALOG3 @ BEFORE  @(ARG1) @(IF (EQUAL ARG1 @ (0 3))
                          THEN
                          (RETURN (LIST T03))
                          ELSEIF
                          (EQUAL ARG1 @ (2 2))
                          THEN
                          (RETURN T22)
                          ELSEIF
                          (EQUAL ARG1 @ (4 1))
                          THEN
                          (RETURN T41)
                          ELSEIF
                          (EQUAL ARG1 @ (2 1))
                          THEN
                          (RETURN (LIST T21))))))))))))
)))))))))))))))))
(GSET (QUOTE T03)
    (STRUCTURE
      NODES = @ (1 2 3)
      LASTNODE# = 3
      UGRAPH = @ T03
      CTABLE =
      (LIST
        (CTENTRY NODENUM = 1 NBRS = @ (2 2 3 3))
        (CTENTRY NODENUM = 2 NBRS = @ (3 3 1 1))
        (CTENTRY NODENUM = 3 NBRS = @ (1 1 2 2)))))))))))
(GSET(QUOTE T21)
    (STRUCTURE
      NODES = @ (1 2 3)
      LASTNODE# = 3
      UGRAPH = @ T21
      CTABLE =
      (LIST
        (CTENTRY NODENUM = 1 NBRS = @ (2 2 3 3))
        (CTENTRY NODENUM = 2 NBRS = @ (1 1 3))
        (CTENTRY NODENUM = 3 NBRS = @ (1 1 2)))))))))))))))))))))))