%%HP: T(1)A(G)F(.);
 DB EVAL 0  NEC
NB NA NNA f
   0 1 NB
    FOR I 'BE' I
GET 3 GET 1 + +
    NEXT DUP NNA 2
LIST 0 CON 'ECC1'
STO NEC 2 LIST 0
CON 'ECC2' STO 1
NNA
    FOR c 0 'f' STO
1 NB
      FOR I 'BE' I
GET DUP 3 GET SWAP
1 2 SUB  EE EX
         'f' INCR
DROP EX 'NA' c GET
POS DUP
          IF 0 
          THEN
            IF 1 ==
            THEN f
c 2 LIST 'ECC1'
SWAP 'RGB' I { 1 }
+ GET PUT
              IF EE
              THEN
'f' INCR c 2 LIST
'ECC1' SWAP 'RGB' I
{ 3 } + GET PUT
              END
            ELSE f
c 2 LIST 'ECC1'
SWAP 'RGB' I { 4 }
+ GET PUT
              IF EE
              THEN
'f' INCR c 2 LIST
'ECC1' SWAP 'RGB' I
{ 2 } + GET PUT
              END
            END
          ELSE DROP
            IF EE
            THEN
'f' INCR DROP
            END
          END
        
      NEXT
    NEXT
  

