%%HP: T(1)A(G)F(.);
 "" {
":n estados carga:
:n de barras  :
:nudos activos:{}"
{ 1 18 } } INPUT
OBJ 3 LIST 1
   DTAG
   DOSUBS EVAL DUP
SIZE 4 LIST 'DB'
STO PRX0 DB EVAL 
NBC NB NA NNA
   NNA DUP 2 LIST
0 CON 'KE' STO 1 NB
    FOR I { 0 0 }
    NEXT NB LIST
'BE' STO
  

