%%HP: T(1)A(G)F(.);
 DB EVAL  NEC NB
NA NNA
   1 NNA
    FOR A 'NA' A
GET  N
       1 NB
        FOR I 'BE'
I GET 1 2 SUB N POS
DUP
          IF 0 
          THEN I
SWAP 2 LIST 'RGB'
SWAP GET DUP
            IF -1 
            THEN
'KE' A DUP 2 LIST
GET + 'KE' SWAP A
DUP 2 LIST SWAP
PUT
            ELSE
DROP
            END
          ELSE DROP
          END
        NEXT
      
    NEXT 1 NNA
    FOR A 1 NNA
      FOR B
        IF A B 
        THEN 'NA' A
GET 'NA' B GET 2
LIST  NN
           1 NB
            FOR I
'BE' I GET 1 2 SUB
              IF NN
==
              THEN
'RGB' I { 4 } + GET
DUP
IF -1 
THEN 'KE' A B 2
LIST GET + 'KE'
SWAP A B 2 LIST
SWAP PUT
ELSE DROP
END
              END
'BE' I GET 1 2 SUB
REVLIST
              IF NN
==
              THEN
'RGB' I { 3 } + GET
DUP
IF -1 
THEN 'KE' A B 2
LIST GET + 'KE'
SWAP A B 2 LIST
SWAP PUT
ELSE DROP
END
              END
            NEXT
          
        END
      NEXT
    NEXT
  

