%%HP: T(1)A(G)F(.);
 DB EVAL  NEC NB
NA NNA
   NB 4 2 LIST -1
CON 'RGB' STO 1 NB
    FOR I 'PRE20'
PRAUX
    NEXT
  

